home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SC4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  49 lines
  1. use yan
  2. STORE ' ' TO D
  3. DO WHILE .NOT. D='N'
  4. CLEAR
  5. c='         '
  6. @ 4,25 SAY '╟δ╩Σ╚δ╚▌╞≈▒α║┼' GET C
  7. READ
  8. LOCAT FOR YAN1=C
  9. IF EOF()
  10. CLEAR
  11. @ 5,25 SAY '╬▐┤╦▒α║┼╚▌╞≈░▓╚½╫░╓├╝╟┬╝  '+C
  12. ELSE
  13. STORE 'Y' TO CD
  14. DO WHILE .NOT.EOF().AND.CD='Y'
  15. CLEAR
  16. @ 2,25 SAY '╣°┬»╤╣┴ª╚▌╞≈░▓╚½╫░╓├┐Γ'
  17. @ 4,15 SAY '╚▌╞≈▒α║┼:'+YAN1
  18. @ 4,40 SAY '░▓╚½╫░╓├├√│╞:'+YAN2
  19. @ 5,15 SAY '╣µ╕±:'+YAN3
  20. @ 5,40 SAY '╩²┴┐:'+STR(YAN4,2,0)
  21. @ 7,25 SAY '╩╟╥¬╔╛│²▒╛╝╟┬╝┬≡?(Y/N)' GET CD
  22. READ
  23. STORE UPPE(CD) TO CD
  24. IF CD='Y'
  25. DELE
  26. ENDIF
  27. STORE 'Y' TO CD
  28. @ 8,25 SAY '╗╣╥¬╔╛│²┤╦╚▌╞≈╞Σ╦ⁿ░▓╚½╫░╓├╝╟┬╝┬≡?' GET CD
  29. READ
  30. STORE UPPE(CD) TO CD
  31. CONT
  32. IF CD='Y'.AND.EOF()
  33. CLEAR
  34. @ 4,25 SAY '╘┘╬▐┤╦╚▌╞≈╞Σ╦ⁿ░▓╚½╫░╓├╝╟┬╝'
  35. ENDIF
  36. ENDDO
  37. ENDIF
  38. @ 9,25 SAY '╗╣╥¬╔╛│²╞Σ╦ⁿ╝╟┬╝┬≡?(Y/N)' 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.