home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTRUN.PRG < prev    next >
Encoding:
Text File  |  1990-04-18  |  655 b   |  44 lines
  1. ******  ╩╘╙├─│╬─╝■╡─╕±╩╜╬─╝■ FMTRUN.PRG ******
  2. ******   DO FMTRUN                      ******
  3. ******   ╚δ┐┌▓╬╩²: FILE.DBF:╬─╝■┐Γ.     ******
  4. FN=''
  5. FNO=''
  6. CFN=''
  7. DO SELEF
  8. IF LEN(FN)=0
  9. RETU
  10. ENDIF
  11. DO WHILE .T.
  12. CLEAR
  13. GN=' '
  14. DO WHILE AT(GN,'RST')=0
  15. @ 0,0 SAY '╡▒╟░╬─╝■:&FN..DBF '+CFN
  16. @ 1,0 SAY '╟δ╤í╘±: R..╩╘╙├ S..╓╪╤í╬─╝■ T..═╦│÷: ' GET GN
  17. READ
  18. GN=UPPE(GN)
  19. ENDDO
  20. DO CASE
  21. CASE GN='S'
  22. DO SELEF
  23. LOOP
  24. CASE GN='T'
  25. USE
  26. RETU
  27. CASE GN='R'
  28. CLEAR
  29. IF FILE('&FN..FMT')
  30. SELE 10
  31. USE &FN
  32. DO &FN..FMT
  33. CLEA GET
  34. USE
  35. ELSE
  36. @ 2,1 SAY '╬─╝■ &FN..DBF ╡─╞┴─╗╕±╩╜╬─╝■▓╗┤µ╘┌!!!'
  37. ? CHR(7)
  38. ENDIF
  39. WAIT
  40. ENDCASE
  41. ENDDO
  42. RETU
  43. ** END OF FMTRUN.PRG **
  44.