home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XG32.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  354 b   |  26 lines
  1. STORE 'Y' TO D
  2. DO WHILE .NOT. D='N'
  3. CLEAR
  4. @ 9,30 SAY '╟δ╩Σ╚δ╡Ñ╬╗┤·║┼:' GET C
  5. READ
  6. LOCAT FOR DW1=C
  7. IF EOF()
  8. CLEAR
  9. @ 8,30 SAY '╬▐┤╦╡Ñ╬╗'+C
  10. ELSE
  11. CLEAR
  12. @ 2,5 SAY '╡Ñ╬╗┤·┬δ' GET DW1
  13. @ 3,5 SAY '╡Ñ╬╗├√│╞' GET DW2
  14. READ
  15. ENDIF
  16. @ 9,30 SAY '╗╣╨▐╕─┬≡?' GET D
  17. READ
  18. STORE UPPE(D) TO D
  19. IF D='Y'
  20. GOTO TOP
  21. STORE '  ' TO C
  22. LOOP
  23. ENDIF
  24. ENDDO
  25. RETURN
  26.