home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTMODI.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  550 b   |  34 lines
  1. ******  ▒α╝¡─│╬─╝■╡─╕±╩╜╬─╝■ FMTMODI.PRG ******
  2. ******   DO FMTMODI                      ******
  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. IF FILE('&FN..FMT')
  13. USE &FN
  14. DO WHILE .T.
  15. MODI COMM &FN..FMT
  16. DO &FN..FMT
  17. CLEAR GET
  18. YN=' '
  19. DO WHILE .NOT.YN$'YN'
  20. @ 9,20 SAY '╗╣╨Φ╥¬╨▐╕─┬≡?[Y/N]:' GET YN PICT '!'
  21. READ
  22. ENDDO
  23. IF YN='N'
  24. USE
  25. EXIT
  26. ENDIF
  27. ENDDO
  28. ELSE
  29. @ 2,20 SAY '╬─╝■ &FN..DBF ╡─╞┴─╗╕±╩╜╬─╝■▓╗┤µ╘┌!!!'
  30. ? CHR(7)
  31. ENDIF
  32. RETU
  33. ** END OF FMTMODI.PRG **
  34.