home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / FMTDISP.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  533 b   |  35 lines
  1. ******  ╧╘╩╜─│╬─╝■╡─╕±╩╜╬─╝■ FMTDISP.PRG ******
  2. ******   DO FMTDISP                      ******
  3. FN=''
  4. CFN=''
  5. DO SELEF
  6. IF LEN(FN)=0
  7. RETU
  8. ENDIF
  9. CLEAR
  10. DO WHILE .T.
  11. CLEAR
  12. GN=' '
  13. DO WHILE AT(GN,'STX')=0
  14. @ 0,0 SAY '╡▒╟░╬─╝■:'+FN+'.DBF '+CFN
  15. @ 1,0 SAY '╨Φ╧╘╩╛: T..═╦│÷ S..╤í╘±╬─╝■ X..╧╘╩╛ : ' GET GN
  16. READ
  17. GN=UPPE(GN)
  18. ENDDO
  19. IF GN='S'
  20. DO SELEF
  21. LOOP
  22. ENDIF
  23. IF GN='T'
  24. RETU
  25. ENDIF
  26. IF FILE('&FN..FMT')
  27. CLEAR
  28. TYPE &FN..FMT
  29. ELSE
  30. @ 2,1 SAY '&FN..DBF &CFN ╕±╩╜╬─╝■▓╗┤µ╘┌!!!'
  31. ENDIF
  32. WAIT
  33. ENDDO
  34. ** END OF FMTDISP.PRG **
  35.