home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SC20.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  722 b   |  44 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 AN1=C
  7. IF EOF()
  8. @ 6,30 SAY '╬▐┤╦╨═║┼╔Φ▒╕░▓╚½╩┬╧ε  '+C
  9. ELSE
  10. STORE 'Y' TO CD
  11. DO WHILE .NOT.EOF() .AND. CD='Y'
  12. CLEAR
  13. @ 2,25 SAY '╔Φ▒╕╨═║┼:'+AN1
  14. @ 3,25 SAY '┤·    ┬δ:'+AN2
  15. @ 4,10 SAY '─┌    ╚▌:'+AN3
  16. @ 6,30 SAY '╩╟╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡?' GET CD
  17. READ
  18. STORE UPPE(CD) TO CD
  19. IF CD='Y'
  20. DELE
  21. ENDIF
  22. @ 7,25 SAY '╗╣╥¬╔╛│²═¼╨═║┼╞Σ╦ⁿ░▓╚½╫ó╥Γ╩┬╧ε┬≡?' GET CD
  23. READ
  24. STORE UPPE(CD) TO CD
  25. CONT
  26. IF CD='Y'
  27. IF EOF()=.T.
  28. @ 8,30 SAY '╘┘╬▐┤╦╨═║┼░▓╚½╩┬╧ε'
  29. ENDIF
  30. ENDIF
  31. ENDDO
  32. ENDIF
  33. @ 9,30 SAY '╗╣╝╠╨°╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?' GET D
  34. READ
  35. STORE UPPE(D) TO D
  36. IF D='Y'
  37. STORE '                ' TO C
  38. GOTO TOP
  39. LOOP
  40. ENDIF
  41. PACK
  42. ENDDO
  43. RETURN
  44.