home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTTEST.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  534 b   |  27 lines
  1. ******  ╝∞▓Θ╕±╩╜╬─╝■╩╟╖±╞δ╚½ FMTTEST.PRG ******
  2. ******   DO FMTTEST                      ******
  3. ******   ╚δ┐┌▓╬╩²: FILE.DBF :╬─╝■┐Γ      ******
  4. CLEAR
  5. YN=' '
  6. DO WHILE AT(YN,'YN')=0
  7. @ 2,1 SAY '╨Φ╥¬┤≥╙í┬≡?[╥¬--Y /▓╗╥¬--N ] : ' GET YN
  8. READ
  9. YN=UPPE(YN)
  10. ENDDO
  11. IF YN='Y'
  12. SET PRINT ON
  13. ENDIF
  14. USE FILE
  15. SET FILT TO SYSFILE='3'
  16. GO TOP
  17. DO WHILE .NOT. EOF()
  18. FN=TRIM(F_NAME)
  19. IF .NOT. FILE('&FN..FMT')
  20. ? '╬─╝■ '+FN+' ['+TRIM(C_FNAME)+'] ╡─╞┴─╗╕±╩╜╬─╝■▓╗┤µ╘┌!!!'
  21. ENDIF
  22. SKIP
  23. ENDDO
  24. SET PRINT OFF
  25. RETU
  26. ** END OF FMRTEST.PRG **
  27.