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