home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / ZFTSC.PRG < prev    next >
Encoding:
Text File  |  1990-04-26  |  257 b   |  16 lines
  1. ** BEGIN OF ZFTSC.PRG **
  2. CLEAR
  3. DO WHILE .T.
  4. @ 0,0
  5. @ 0,10 PROM '0-╖╡╗╪'
  6. @ 0,COL()+2 PROM '1-╥╘╫╓╢╬├√╬¬║ß╫°▒Ω▓╬╩²'
  7. @ 0,COL()+2 PROM '2-╥╘╫╓╢╬╓╡╬¬║ß╫°▒Ω▓╬╩²'
  8. MENU TO YN
  9. IF YN=1
  10. RETU
  11. ENDIF
  12. YN=STR(YN-1,1)
  13. DO ZFTSC&YN
  14. ENDDO
  15. ** END OF ZFTSC.PRG **
  16.