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