home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / GOODIES / PROCOMP.PRG < prev    next >
Encoding:
Text File  |  1989-11-30  |  891 b   |  32 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: PROCOMP.PRG
  4. *:
  5. *:         System: ProDemo Archive Example
  6. *:         Author: Fox Software, Inc.
  7. *:      Copyright (c) 1989, Fox Software, Inc.
  8. *:  Last modified: 11/30/89     12:30
  9. *:
  10. *:            Notes:    This routine illustrates (1) how to use FLS.EXE
  11. *:                    to build a list of files, (2) how convenient
  12. *:                    the low-level I/O routines can be, (3) how to
  13. *:                    provide FoxPro with FoxBASE+ style batch
  14. *:                    compiling capabilities.
  15. *:
  16. *:      Documented 11/30/89 at 13:56               FoxDoc  version 2.0
  17. *:*********************************************************************
  18. SET TALK OFF
  19. X = FOPEN("$files.lst")
  20. IF X<0
  21.    ? "Can't open $FILES.LST"
  22.    DO setswx
  23.    RETURN
  24. ENDIF
  25. DO WHILE ! FEOF(X)
  26.    file = FGETS(X)
  27.    compile &file
  28. ENDDO
  29. X = FCLOSE(X)
  30. CLOSE ALL
  31. QUIT
  32.