home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJCL.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.8 KB  |  145 lines
  1. STORE ' ' TO AC
  2. do while .not. ac='0'
  3. STORE ' ' TO AC
  4. clear
  5. @ 2,13 SAY "********************╒█╛╔┤ª└φ*************************"
  6. @ 3,13 SAY "    ú░ú«═╦│÷                  ú▒ú«╒█╛╔╝╞╦π"
  7. @ 4,13 SAY "    ú▓ú«┤≥╙í╒█╛╔├≈╧╕╒╩        ú│ú«╧╘╩╛ú¼▓Θ╤»╒█╛╔╟Θ┐÷"
  8. @ 5,13 say "    ú┤ú«╙ª╜°╨╨╛╗╓╡╓╪╓├╡─╔Φ▒╕  ì
  9. ú╡ú«╔Φ▒╕╛╗╓╡╙δ╥╤╠ß╒█╛╔╡≈╒√"
  10. @ 6,13 say ì
  11. "*****************************************************"
  12. wait "            ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5):" TO AC
  13. DO CASE
  14. case ac='4'
  15. use sb 
  16. set index to sb1
  17. set talk off
  18. loca all for sb17<=sb15*sb26/100
  19. if eof()
  20. clea
  21. @ 4,0 clear
  22. wait say "               ╬▐┤╦└α╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
  23. retu
  24. endif
  25. a1=.t.
  26. do while a1
  27. clea
  28. @ 1,1 say "╔Φ▒╕▒α║┼     ╔Φ▒╕├√│╞                ╘¡╓╡             ╛╗╓╡     ì
  29.     ╛╗▓╨╓╡"
  30. l=2
  31. do while .not. eof() .and. l<=8
  32. @ l,1 say " "+sb1+"    "+sb3+"     "+str(sb15,10,2)+"     ì
  33. "+str(sb17,10,2)+"     "+str(sb15*sb26/100,10,2)
  34. cont
  35. l=l+1
  36. enddo
  37. if eof()
  38. exit
  39. else
  40. wait '░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to p
  41. if p='r'
  42. retu
  43. endif
  44. endif
  45. enddo 
  46. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐ú┐' to p
  47. if p<>'y'
  48. retu
  49. endif
  50. set devi to print 
  51. set print on
  52. ? chr(27)+"IJ"
  53. set print off
  54. loca all for sb17<=sb15*sb26/100
  55. pp=1
  56. a1=.t.
  57. do while a1
  58. @ prow()+1,30 say "╙ª╜°╨╨╛╗╓╡╓╪╓├╡─╔Φ▒╕"
  59. @ prow()+1,1 say "      "
  60. @ prow()+1,44 say "╠ε▒φ╚╒╞┌"+p100
  61. @ prow()+1,1 say ì
  62. "============================================================="
  63. @ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |   ╘¡╓╡   |   ╛╗╓╡  ì
  64.  |  ╛╗▓╨╓╡  |"
  65. @ prow()+1,1 say ì
  66. "|---------|----------------|----------|----------|----------|"
  67. l=1
  68. do while .not. eof()
  69. @ prow()+1,1 say ì
  70. "|"+sb1+"|"+sb3+"|"+str(sb15,10,2)+"|"+str(sb17,10,2)+"|"+str(sb15*sb26ì
  71. /100,10,2)+"|"
  72. l=l+1
  73. cont
  74. if .not. eof() 
  75. if l<=50
  76. @ prow()+1,1 say ì
  77. "|---------|----------------|----------|----------|----------|"
  78. else
  79. @ prow()+1,1 say ì
  80. "============================================================="
  81. @ prow()+1,45 say "╡┌"+str(pp,2)+"╥│"
  82. pp=pp+1
  83. @ prow()+1,1 say "     "
  84. @ prow()+1,1 say "     "
  85. endif
  86. else
  87. @ prow()+1,1 say ì
  88. "============================================================="
  89. @ prow()+1,60 say "╡┌"+str(pp,2)+"╥│"
  90. exit
  91. endif
  92. enddo 
  93. set print on 
  94. ? chr(13)
  95. set print off
  96. set devi to scree
  97. retu
  98. case ac='5'
  99. a1=.t.
  100. use sb index sb1
  101. do while a1
  102. clea
  103. a='         '
  104. @ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
  105. read
  106. seek a
  107. if eof() 
  108. clear
  109. @ 4,0 clear
  110. wait '            ╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  111. retu
  112. endif
  113. a2=.t.
  114. do while a2
  115. clea
  116. @ 3,25 say "╔Φ▒╕▒α║┼:"+a
  117. @ 4,10 say "╛╗╓╡" get sb17
  118. @ 4,40 say "╥╤╠ß╒█╛╔" get sb18
  119. @ 5,10 say "╡▒─Ω╥╤╠ß╒█╛╔" get sb49
  120. read
  121. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐ú┐' to w
  122. if w<>'y'
  123. loop
  124. endif
  125. exit
  126. enddo 
  127. wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐ú┐' to p
  128. if p<>'y'
  129. exit 
  130. endif
  131. enddo 
  132. CASE AC="1"
  133. DO ZJJS1
  134. CASE AC='2'
  135. DO ZJDY
  136. CASE AC='3'
  137. DO ZJBB
  138. CASE AC='0'
  139. exit  
  140. OTHERWISE
  141. ?'╩Σ╚δ╙╨┤φ╬≤'
  142. ENDCASE
  143. ENDDO
  144. RETURN
  145.