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