home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.4 KB  |  87 lines
  1. STORE 'Y' TO C
  2. DO WHILE .NOT. C='N'
  3. APPEND BLANK
  4. CLEAR
  5. STORE 'N' TO CD
  6. DO WHILE CD='N'
  7. @ 1,8 SAY '╣ñ╫≈╓ñ║┼' GET RS1
  8. @ 1,40 SAY '╨╒    ├√' GET RS2
  9. @ 2,8 SAY '╨╘    ▒≡' GET RS3
  10. @ 2,40 SAY '─Ω    ┴Σ' GET RS4
  11. @ 3,8 SAY '╬─╗»╦«╞╜' GET RS5
  12. @ 3,40 SAY '╝╝╩⌡╡╚╝╢' GET RS6
  13. @ 4,8 SAY '╓░    ╬±' GET RS7
  14. @ 4,40 SAY '╓░    │╞' GET RS8
  15. @ 5,8 SAY '╣ñ    ╫╩' GET RS9
  16. @ 5,40 SAY '╒■╓╬├µ├▓' GET RS10
  17. read
  18. a1=.t.
  19. do while a1
  20. @ 6,0 clea
  21. @ 6,8 SAY '╡Ñ╬╗▒α║┼' GET RS11
  22. READ
  23. pp=rs11
  24. IF rs11='h'
  25. USE wx
  26. b='wx1'
  27. f='wx2'
  28. do hel20
  29. use rs
  30. goto bott
  31. loop
  32. endif
  33. exit
  34. enddo 
  35. *@ 2,35 CLEAR
  36. *STOR "N" TO B
  37. *STOR 1 TO M
  38. *DO WHILE .NOT.EOF().AND.B="N"
  39. */STOR 2 TO N
  40. *STOR 1 TO P
  41. *DO WHILE N<=6.AND.(.NOT.EOF())
  42. *@ N,35 SAY '('+STR(P,1)+')'
  43. *@ N,45 SAY '╡Ñ╬╗┤·┬δ  '+DW1
  44. *@ N,60 SAY '╡Ñ╬╗├√│╞  '+DW2
  45. *STOR P+1 TO P
  46. *@ N+1,45 CLEAR
  47. *SKIP
  48. *STOR N+1 TO N
  49. *ENDDO
  50. *SET CONS OFF
  51. *WAIT " " TO B1
  52. *SET CONS ON
  53. *IF B1=","
  54. *STOR M-1 TO M
  55. *IF M>0
  56. *SKIP -5*2
  57. *ELSE
  58. *SKIP -6
  59. *STOR M+1 TO M
  60. *ENDIF
  61. *STOR "N" TO B
  62. *ELSE
  63. *IF B1="1"
  64. *SKIP -5
  65. *STOR DW1 TO Q
  66. *USE RS
  67. @ 6,40 SAY '╣ñ╫≈╡τ╗░' GET RS13
  68. @ 7,8 SAY '└═┴ª╦«╞╜' GET RS12
  69. READ
  70. @ 8,25 SAY "╩Σ╚δ╒²╚╖┬≡? (Y/N) " GET CD
  71. READ
  72. use wx
  73. loca for wx1=pp
  74. repl wx3 with wx3+1
  75. STOR UPPE(CD) TO CD
  76. use rs 
  77. goto bott
  78. ENDDO
  79. @ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?(Y/N)' GET C
  80. READ
  81. STOR UPPE(C) TO C
  82. use rs
  83. ENDDO
  84. clos data
  85. RETURN
  86.  
  87.