home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JKZ9.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.6 KB  |  119 lines
  1. STORE 'Y' TO C
  2. DO WHILE .NOT. C='N'
  3. APPEND BLANK
  4. CLEAR
  5. STOR "N" TO CD
  6. DO WHILE CD="N"
  7. @ 2,15 SAY '╣▄╡└╛▓├▄╖Γ╡π╩²' GET DGM2
  8. @ 3,15 SAY '╡Ñ  ╬╗  ┤·  ┬δ' GET DGM1
  9. READ
  10. IF SUBS(DGM1,1,1)='H'
  11. USE DW
  12. @ 2,35 CLEAR
  13. STOR "N" TO B
  14. STOR 1 TO M
  15. DO WHILE .NOT.EOF().AND.B="N"
  16. STOR 2 TO N
  17. STOR 1 TO P
  18. DO WHILE N<=6.AND.(.NOT.EOF())
  19. @ N,35 SAY '('+STR(P,1)+')'
  20. @ N,41 SAY '╡Ñ╬╗┤·┬δ  '+DW1
  21. @ N,57 SAY '╡Ñ╬╗├√│╞  '+DW2
  22. STOR P+1 TO P
  23. @ N+1,30 CLEAR
  24. SKIP
  25. STOR N+1 TO N
  26. ENDDO
  27. SET CONS OFF
  28. WAIT " " TO B1
  29. SET CONS ON
  30. IF B1=","
  31. STOR M-1 TO M
  32. IF M>0
  33. SKIP -5*2
  34. ELSE
  35. SKIP -6
  36. STOR M+1 TO M
  37. ENDIF
  38. STOR "N" TO B
  39. ELSE
  40. IF B1="1"
  41. SKIP -5
  42. STOR DW1 TO Q
  43. USE DGM
  44. GOTO BOTT
  45. REPL DGM1 WITH Q
  46. STOR  'Y' TO B
  47. ELSE
  48. IF B1="2"
  49. SKIP -4
  50. STOR DW1 TO Q
  51. USE DGM
  52. GOTO BOTT
  53. REPL DGM1 WITH Q
  54. STOR 'Y' TO B
  55. ELSE
  56. IF B1='3'
  57. SKIP -3
  58. STOR DW1 TO Q
  59. USE DGM
  60. GOTO BOTT
  61. REPL DGM1 WITH Q
  62. STOR 'Y' TO B
  63. ELSE
  64. IF B1='4'
  65. SKIP -2
  66. STOR DW1 TO Q
  67. USE DGM
  68. GOTO BOTT
  69. REPL DGM1 WITH Q
  70. STOR 'Y' TO B
  71. ELSE
  72. IF B1='5'
  73. SKIP -1
  74. STOR DW1 TO Q
  75. USE DGM
  76. GOTO BOTT
  77. REPL DGM1 WITH Q
  78. STOR 'Y' TO B
  79. ELSE
  80. IF B1="."
  81. IF EOF()
  82. SKIP -1
  83. ENDIF
  84. STOR 'N' TO B
  85. STOR M+1 TO M
  86. ELSE
  87. IF B1="R"
  88. STOR "Y" TO B
  89. ELSE
  90. ? CHR(7)
  91. SKIP -5
  92. STOR 'N' TO B
  93. ENDIF
  94. ENDIF
  95. ENDIF
  96. ENDIF
  97. ENDIF
  98. ENDIF
  99. ENDIF
  100. ENDIF
  101. ENDDO
  102. @ 1,30 CLEAR
  103. USE DGM
  104. GOTO BOTT
  105. @ 3,15 SAY "╡Ñ  ╬╗  ┤·  ┬δ" GET DGM1
  106. ENDIF
  107. @ 4,15 SAY '╢╘╕≈╡Ñ╬╗╥¬╟≤╛▓╨╣┬⌐┬╩' GET DGM3
  108. @ 5,15 SAY '╢╘╕≈╡Ñ╬╗╥¬╟≤╢»╨╣┬⌐┬╩' GET DGM4
  109. READ
  110. @ 7,25 SAY "╩Σ╚δ╒²╚╖┬≡ ? (Y/N) " GET CD
  111. READ
  112. STOR UPPE(CD) TO CD
  113. ENDDO
  114. @ 7,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ? (Y/N)' GET C
  115. READ
  116. STOR UPPE(C) TO C
  117. ENDDO
  118. RETURN
  119.