home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTPTONE.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  427 b   |  22 lines
  1. ******  ┤≥╙í─│╬─╝■╡─╕±╩╜╬─╝■ FMTPTONE.PRG ******
  2. ******   DO FMTPTONE                      ******
  3. ******   ╚δ┐┌▓╬╩²:  FILE.DBF:╬─╝■┐Γ.      ******
  4. IF TYPE('FN')='U'
  5. FN=''
  6. DO SELEF
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. ENDIF
  11. CLEAR
  12. WAIT '╟δ╫╝▒╕║├┤≥╙í╓╜║≤!░┤╚╬╥Γ╝ⁿ......'
  13. IF FILE('&FN..FMT')
  14. TYPE &FN..FMT TO PRINT
  15. ELSE
  16. @ 2,20 SAY '╬─╝■ &FN..DBF ╡─╞┴─╗╕±╩╜╬─╝■▓╗┤µ╘┌!!!'
  17. ? CHR(7)
  18. ENDIF
  19. WAIT
  20. RETU
  21. ** END OF FMTPTONE.PRG **
  22.