home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SC30.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  461 b   |  33 lines
  1. STORE 'Y' TO D
  2. DO WHILE .NOT. D='N'
  3. CLEAR
  4. @ 4,30 SAY '╟δ╩Σ╚δ╣▄╩⌠┤·┬≡:' GET C
  5. READ
  6. LOCAT FOR GS1=C
  7. IF EOF()
  8. CLEAR
  9. @ 6,30 SAY '╬▐┤╦╣▄╩⌠║┼  '+C
  10. ELSE
  11. CLEA
  12. @ 2,5 SAY '╣▄╩⌠┤·┬δ:'+GS1
  13. @ 3,5 SAY '╣▄╩⌠├√│╞:'+GS2
  14. @ 5,25 SAY '╩╟╥¬╔╛│²┤╦╝╟┬╝┬≡?' GET D
  15. READ
  16. STORE UPPE(D) TO D
  17. IF D='Y'
  18. DELE
  19. ENDIF
  20. ENDIF
  21. STORE 'Y' TO D
  22. @ 8,25 SAY '╗╣╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?' GET D
  23. READ
  24. STORE UPPE(D) TO D
  25. IF D='Y'
  26. GOTO TOP
  27. STORE ' ' TO C
  28. LOOP
  29. ENDIF
  30. PACK
  31. ENDDO
  32. RETURN
  33.