home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTPTALL.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  443 b   |  21 lines
  1. ******  ┤≥╙í╦∙╙╨╕±╩╜╬─╝■ FMTPTALL.PRG ******
  2. ******   DO FMTPTALL                  ******
  3. ******   ╚δ┐┌▓╬╩²: FILE.DBF :╬─╝■┐Γ   ******
  4. CLEAR
  5. WAIT '┤≥╙í╗·╫╝▒╕║├║≤!  ░┤╚╬╥Γ╝ⁿ...'
  6. USE FILE
  7. SET FILT TO SYSFILE='3'
  8. GO TOP
  9. DO WHILE .NOT. EOF()
  10. FN=TRIM(F_NAME)
  11. IF FILE('&FN..FMT')
  12. TYPE &FN..FMT TO PRINT
  13. ELSE
  14. @ 2,1 SAY '╬─╝■ '+FN+' ['+TRIM(C_FNAME)+'] ╡─▒α╝¡╨═╕±╩╜╬─╝■▓╗┤µ╘┌'
  15. ENDIF
  16. WAIT
  17. SKIP
  18. ENDDO
  19. RETU
  20. ** END OF FMTPTALL.PRG **
  21.