home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XG4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  52 lines
  1. use yan
  2. STORE 'Y' 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 'N' TO W
  14. DO WHILE W='N'.AND.(.NOT.EOF())
  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. @ 6,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?' GET W
  22. READ
  23. STORE UPPE(W) TO W
  24. STORE RECNO() TO A
  25. CONT
  26. IF W='N' .AND. EOF()
  27. @ 7,25 SAY '╘┘╬▐┤╦▒α║┼░▓╚½╫░╓├'
  28. ENDIF
  29. IF W='Y'
  30. GO A
  31. CLEAR
  32. @ 4,15 SAY '╚▌╞≈▒α║┼ú║' GET YAN1
  33. @ 4,40 SAY '░▓╚½╫░╓├├√│╞ú║' GET YAN2
  34. @ 5,15 SAY '╣µ╕±ú║' GET YAN3
  35. @ 5,40 SAY '╩²┴┐ú║' GET YAN4
  36. READ
  37. ENDIF
  38. ENDDO
  39. ENDIF
  40. @ 9,25 SAY '╗╣╨▐╕─┬≡?' GET D
  41. READ
  42. STORE UPPE(D) TO D
  43. IF D='Y'
  44. GOTO TOP
  45. STORE '    ' TO C
  46. LOOP
  47. ENDIF
  48. ENDDO
  49. RETURN
  50.  
  51.  
  52.