home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XG23.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  764 b   |  48 lines
  1. STORE 'Y' TO D
  2. DO WHILE .NOT. D='N'
  3. CLEAR
  4. @ 4,30 SAY '╟δ╩Σ╚δ╔Φ▒╕╨═║┼' GET C
  5. *@ 9,30 SAY '╟δ╩Σ╚δ╣ñ╛▀┤·┬δ' GET E
  6. READ
  7. LOCAT FOR GJ1=C 
  8. IF EOF()
  9. CLEAR
  10. @ 7,30 SAY '╬▐┤╦╨═║┼╔Φ▒╕╣ñ╛▀┤·┬δ  '+C
  11. ELSE
  12. STORE 'N' TO CD
  13. DO WHILE CD='N' .AND. (.NOT.EOF())
  14. CLEAR
  15. @ 3,15 SAY '╔Φ▒╕╨═║┼:'+GJ1
  16. @ 4,15 SAY '╣ñ╛▀┤·┬δ:'+GJ2
  17. @ 5,15 SAY '╣ñ    ╛▀:'+GJ3
  18. @ 7,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?' GET CD
  19. READ
  20. STORE UPPE(CD) TO CD
  21. STORE RECNO() TO A
  22. CONT
  23. IF CD='N'
  24. IF  EOF()
  25. @ 8,25 SAY '╘┘╬▐┤╦╝╟┬╝'
  26. ENDIF
  27. ENDIF
  28. IF CD='Y'
  29. GO A
  30. CLEAR
  31. @ 3,15 SAY '╔Φ▒╕╨═║┼' GET GJ1
  32. @ 4,15 SAY '╣ñ╛▀┤·┬δ' GET GJ2
  33. @ 5,15 SAY '╣ñ    ╛▀' GET GJ3
  34. READ
  35. ENDIF
  36. ENDDO
  37. ENDIF
  38. @ 9,30 SAY '╗╣╨▐╕─┬≡ ?' GET D
  39. READ
  40. d=uppe(d)
  41. IF D='Y'
  42. GOTO TOP
  43. STORE '            ' TO C
  44. LOOP
  45. ENDIF
  46. ENDDO
  47. RETURN
  48.