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