home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / NBZZ-1.PRG < prev    next >
Encoding:
Text File  |  1990-01-22  |  7.1 KB  |  250 lines

  1. *─┌▓┐╫¿╒╦╫╙│╠╨≥╓«╥╗:NBZZ-1.PRG
  2. set talk off
  3. clear
  4. set scoreboard off
  5. set status off
  6. select 1
  7. use a:nbzzjf.dbf alias z1
  8. select 2
  9. use a:nbzzdf.dbf alias z2
  10. aa4='      '
  11. bb4=.t.
  12. do while bb4
  13. j1='        '
  14. j2='        '
  15. j3=0
  16. j4=0
  17. j5=0
  18. j6=0
  19. j7=0
  20. j8=0
  21. j9=0
  22. j10=0
  23. j11=0
  24. j12=0
  25. j13=0
  26. j14=0
  27. j15=0
  28. j16=0
  29. j17=0
  30. j18=0
  31. j19=0
  32. j20=0
  33. j21=0
  34. j22=0
  35. j23=0
  36. j24=0
  37. j25=0
  38. j26=0
  39. j27=0
  40. j28=0
  41. j29=0
  42. j30=0
  43. j31=0
  44. j32=0
  45. j33=0
  46. j34=0
  47. j35=0
  48. j36=0
  49. j37=0
  50. j38=0
  51. j39=0
  52. q3=0
  53. q4=0
  54. q5=0
  55. q6=0
  56. q7=0
  57. q8=0
  58. q9=0
  59. q10=0
  60. q11=0
  61. q12=0
  62. q13=0
  63. q14=0
  64. q15=0
  65. q16=0
  66. q17=0
  67. q18=0
  68. q19=0
  69. q20=0
  70. q21=0
  71. q22=0
  72. q23=0
  73. q24=0
  74. q25=0
  75. q26=0
  76. q27=0
  77. q28=0
  78. q29=0
  79. q30=0
  80. q31=0
  81. q32=0
  82. q33=0
  83. q34=0
  84. q35=0
  85. q36=0
  86. q37=0
  87. q38=0
  88. q39=0
  89. q40=0
  90. q41=0
  91. q42=0
  92. ms1="picture '99999999.99'"
  93. aa1='      '
  94. bb1=.t.
  95. do while bb1
  96. aa2='      '
  97. bb2=.t.
  98. do while bb2
  99. clear
  100. @ 0,24 say '╟δ╩Σ╚δ─┌▓┐╫¿╒╦(╜Φ╖╜)╕≈╧ε─┐╩²'
  101. @ 1,24 say '============================'
  102. @ 3,2 say '╚╒╞┌            ' get j1 picture 'xxxxxxxx'
  103. @ 4,2 say '▒α║┼            ' get j2 picture 'xxxxxxxx'
  104. @ 5,2 say '╣╠╢¿╫╩▓·        ' get j3 &ms1
  105. @ 6,2 say '╘¡▓─┴╧          ' get j4 &ms1
  106. @ 7,2 say '╚╝┴╧            ' get j5 &ms1
  107. @ 8,2 say '░ⁿ╫░╬∩          ' get j6 &ms1
  108. @ 9,2 say '╡═╓╡╥╫║─╞╖      ' get j7 &ms1
  109. @ 10,2 say '▓─┴╧│╔▒╛▓ε╥∞    ' get j8 &ms1
  110. @ 11,2 say '╗∙▒╛╔·▓·        ' get j9 &ms1
  111. @ 12,2 say '╕¿╓·╔·▓·        ' get j10 &ms1
  112. @ 13,2 say '│╡╝Σ╛¡╖╤        ' get j11 &ms1
  113. @ 14,2 say '╞≤╥╡╣▄└φ╖╤      ' get j12 &ms1
  114. @ 15,2 say '┤²╠»╖╤╙├        ' get j13 &ms1
  115. @ 16,2 say '▓·│╔╞╖          ' get j14 &ms1
  116. @ 17,2 say '╙ª╩╒╧·┤√┐ε      ' get j15 &ms1
  117. @ 18,2 say '╞Σ╦√╙ª╩╒┐ε      ' get j16 &ms1
  118. @ 19,2 say '╫¿╧ε╣ñ│╠╓º│÷    ' get j17 &ms1
  119. @ 20,2 say '╫¿╧ε╬∩╫╩        ' get j18 &ms1
  120. @ 21,2 say '╫¿╧ε╙ª╩╒┐ε      ' get j19 &ms1
  121. @ 22,2 say '└√╚≤╖╓┼Σ        ' get j20 &ms1
  122. @ 3,43 say '╣╠╢¿╗∙╜≡        ' get j21 &ms1
  123. @ 4,43 say '╒█╛╔            ' get j22 &ms1
  124. @ 5,43 say '╙ª╕╢╣║┤√┐ε      ' get j23 &ms1
  125. @ 6,43 say '╙ª╕╢╣ñ╫╩        ' get j24 &ms1
  126. @ 7,43 say '╞Σ╦√╙ª╕╢┐ε      ' get j25 &ms1
  127. @ 8,43 say '╘ñ╠ß╖╤╙├        ' get j26 &ms1
  128. @ 9,43 say '╙ª╜╗╦░╜≡        ' get j27 &ms1
  129. @ 10,43 say '╫¿╙├╗∙╜≡        ' get j28 &ms1
  130. @ 11,43 say '└√╚≤            ' get j29 &ms1
  131. @ 12,43 say '╧·╩█            ' get j30 &ms1
  132. @ 13,43 say '╓░╣ñ╜▒└°╜≡      ' get j31 &ms1
  133. @ 14,43 say '╕ú└√╗∙╜≡        ' get j32 &ms1
  134. @ 15,43 say '─▄╘┤╜╗═¿╜¿╔Φ╗∙╜≡' get j33 &ms1
  135. @ 16,43 say '─┌▓┐╥°╨╨═∙└┤    ' get j34 &ms1
  136. @ 17,43 say '╣ñ╫╩╗∙╜≡        ' get j35 &ms1
  137. @ 18,43 say '╫¿╧ε╙ª╕╢        ' get j36 &ms1
  138. @ 19,43 say '╜╗╒█╛╔╗∙╜≡      ' get j37 &ms1
  139. @ 20,43 say '╙ª┐█╦░╜≡        ' get j38 &ms1
  140. @ 21,43 say '╫¿╙├╜Φ┐ε        ' get j39 &ms1
  141.        read
  142. @ 23,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa2
  143.      read
  144. if aa2='Y'.or.aa2='y'
  145.    bb2=.f.
  146. endif
  147. enddo
  148. aa3='      '
  149. bb3=.t.
  150. do while bb3
  151. clear
  152. @ 0,24 say '╟δ╩Σ╚δ─┌▓┐╫¿╒╦(┤√╖╜)╕≈╧ε─┐╩²'
  153. @ 1,24 say '============================'
  154. @ 2,2 say '╚╒╞┌            ' get j1 picture 'xxxxxxxx'
  155. @ 3,2 say '▒α║┼            ' get j2 picture 'xxxxxxxx'
  156. @ 4,2 say '╣╠╢¿╫╩▓·        ' get q3 &ms1
  157. @ 5,2 say '╘¡▓─┴╧          ' get q4 &ms1
  158. @ 6,2 say '╚╝┴╧            ' get q5 &ms1
  159. @ 7,2 say '░ⁿ╫░╬∩          ' get q6 &ms1
  160. @ 8,2 say '╡═╓╡╥╫║─╞╖      ' get q7 &ms1
  161. @ 9,2 say '▓─┴╧│╔▒╛▓ε╥∞    ' get q8 &ms1
  162. @ 10,2 say '╗∙▒╛╔·▓·        ' get q9 &ms1
  163. @ 11,2 say '╕¿╓·╔·▓·        ' get q10 &ms1
  164. @ 12,2 say '│╡╝Σ╛¡╖╤        ' get q11 &ms1
  165. @ 13,2 say '╞≤╥╡╣▄└φ╖╤      ' get q12 &ms1
  166. @ 14,2 say '┤²╠»╖╤╙├        ' get q13 &ms1
  167. @ 15,2 say '▓·│╔╞╖          ' get q14 &ms1
  168. @ 16,2 say '╙ª╩╒╧·┤√┐ε      ' get q15 &ms1
  169. @ 17,2 say '╞Σ╦√╙ª╩╒┐ε      ' get q16 &ms1
  170. @ 18,2 say '╫¿╧ε╣ñ│╠╓º│÷    ' get q17 &ms1
  171. @ 19,2 say '╫¿╧ε╬∩╫╩        ' get q18 &ms1
  172. @ 20,2 say '╫¿╧ε╙ª╩╒┐ε      ' get q19 &ms1
  173. @ 21,2 say '└√╚≤╖╓┼Σ        ' get q20 &ms1
  174. @ 22,2 say '╣╠╢¿╗∙╜≡        ' get q21 &ms1
  175. @ 2,43 say '╒█╛╔            ' get q22 &ms1
  176. @ 3,43 say '╙ª╕╢╣║┤√┐ε      ' get q23 &ms1
  177. @ 4,43 say '╫¿╙├▓ª┐ε        ' get q24 &ms1
  178. @ 5,43 say '╞Σ╦√╙ª╕╢┐ε      ' get q25 &ms1
  179. @ 6,43 say '╘ñ╠ß╖╤╙├        ' get q26 &ms1
  180. @ 7,43 say '╙ª╜╗╦░╜≡        ' get q27 &ms1
  181. @ 8,43 say '╫¿╙├╗∙╜≡        ' get q28 &ms1
  182. @ 9,43 say '└√╚≤            ' get q29 &ms1
  183. @ 10,43 say '╧·╩█            ' get q30 &ms1
  184. @ 11,43 say '╓░╣ñ╜▒└°╜≡      ' get q31 &ms1
  185. @ 12,43 say '╕ú└√╗∙╜≡        ' get q32 &ms1
  186. @ 13,43 say '─▄╘┤╜╗═¿╜¿╔Φ╗∙╜≡' get q33 &ms1
  187. @ 14,43 say '─┌▓┐╥°╨╨═∙└┤    ' get q34 &ms1
  188. @ 15,43 say '╣ñ╫╩╗∙╜≡        ' get q35 &ms1
  189. @ 16,43 say '╫¿╧ε╙ª╕╢        ' get q36 &ms1
  190. @ 17,43 say '╜╗╒█╛╔╗∙╜≡      ' get q37 &ms1
  191. @ 18,43 say '╙ª┐█╦░╜≡        ' get q38 &ms1
  192. @ 19,43 say '╫¿╙├╜Φ┐ε        ' get q39 &ms1
  193. @ 20,43 say '┴≈╢»╗∙╜≡        ' get q40 &ms1
  194. @ 21,43 say '╫¿╧ε╡≈╜┌╗∙╜≡    ' get q41 &ms1
  195. @ 22,43 say '╜╠╙²╕╜╝╙        ' get q42 &ms1
  196.      read
  197. @ 23,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa3
  198.      read
  199. if aa3='Y'.or.aa3='y'
  200.    bb3=.f.
  201. endif
  202. enddo
  203. hj11=j3+j4+j5+j6+j7+j8+j9+j10+j11+j12+j13+j14+j15+j16+j17+j18+j19
  204. hj12=j20+j21+j22+j23+j24+j25+j26+j27+j28+j29+j30+j31+j32+j33+j34+j35+j36+j37+j38+j39
  205. hj1=hj11+hj12
  206. hj21=q3+q4+q5+q6+q7+q8+q9+q10+q11+q12+q13+q14+q15+q16+q17+q18+q19+q20+q21
  207. hj22=q22+q23+q24+q25+q26+q27+q28+q29+q30+q31+q32+q33+q34+q35+q36+q37+q38+q39+q40+q41+q42
  208. hj2=hj21+hj22
  209. hjc=hj1-hj2
  210. if hjc=0
  211.    bb1=.f.
  212. else
  213.    clear
  214.    @ 10,20 say '╩╒╚δ╩²╛▌╙╨┤φ,╟δ░┤╚╬╥Γ╜í║≤╕ⁿ╒²!'
  215.    wait
  216. endif
  217. enddo
  218. select 1
  219. append blank
  220. go bottom
  221. replace next 1 ╚╒╞┌ with j1,▒α║┼ with j2
  222. replace next 1 ║╧╝╞ with hj1,╣╠╢¿╫╩▓· with j3,╘¡▓─┴╧ with j4,╚╝┴╧ with j5,░ⁿ╫░╬∩ with j6,╡═╓╡╥╫║─╞╖ with j7,▓─┴╧▓ε╥∞ with j8,╗∙▒╛╔·▓· with j9,╕¿╓·╔·▓· with j10,│╡╝Σ╛¡╖╤ with j11,╞≤╥╡╣▄└φ╖╤ with j12,┤²╠»╖╤╙├ with j13,▓·│╔╞╖ with j14
  223. replace next 1 ╙ª╩╒╧·┤√┐ε with j15,╞Σ╦√╙ª╩╒┐ε with j16,╫¿╧ε╣ñ│╠│÷ with j17,╫¿╧ε╬∩╫╩ with j18,╫¿╧ε╙ª╩╒┐ε with j19,└√╚≤╖╓┼Σ with j20,╣╠╢¿╗∙╜≡ with j21,╒█╛╔ with j22,╙ª╕╢╣║┤√┐ε with j23,╙ª╕╢╣ñ╫╩ with j24,╞Σ╦√╙ª╕╢┐ε with j25
  224. replace next 1 ╘ñ╠ß╖╤╙├ with j26,╙ª╜╗╦░╜≡ with j27,╫¿╙├╗∙╜≡ with j28,└√╚≤ with j29,╧·╩█ with j30,╓░╣ñ╜▒└°╜≡ with j31,╕ú└√╗∙╜≡ with j32,╜¿╔Φ╗∙╜≡ with j33,─┌▓┐═∙└┤ with j34,╣ñ╫╩╗∙╜≡ with j35,╫¿╧ε╙ª╕╢ with j36,╜╗╒█╛╔╗∙╜≡ with j37
  225. replace next 1 ╙ª┐█╦░╜≡ with j38,╫¿╙├╜Φ┐ε with j39
  226. select 2
  227. append blank
  228. go bottom
  229. replace next 1 ╚╒╞┌ with j1,▒α║┼ with j2
  230. replace next 1 ║╧╝╞ with hj2,╣╠╢¿╫╩▓· with q3,╘¡▓─┴╧ with q4,╚╝┴╧ with q5,░ⁿ╫░╬∩ with q6,╡═╓╡╥╫║─╞╖ with q7,▓─┴╧▓ε╥∞ with q8,╗∙▒╛╔·▓· with q9,╕¿╓·╔·▓· with q10,│╡╝Σ╛¡╖╤ with q11,╞≤╥╡╣▄└φ╖╤ with q12,┤²╠»╖╤╙├ with q13,▓·│╔╞╖ with q14
  231. replace next 1 ╙ª╩╒╧·┤√┐ε with q15,╞Σ╦√╙ª╩╒┐ε with q16,╫¿╧ε╣ñ│╠│÷ with q17,╫¿╧ε╬∩╫╩ with q18,╫¿╧ε╙ª╩╒┐ε with q19,└√╚≤╖╓┼Σ with q20,╣╠╢¿╗∙╜≡ with q21,╒█╛╔ with q22,╙ª╕╢╣║┤√┐ε with q23,╫¿╙├▓ª┐ε with q24,╞Σ╦√╙ª╕╢┐ε with q25
  232. replace next 1 ╘ñ╠ß╖╤╙├ with q26,╙ª╜╗╦░╜≡ with q27,╫¿╙├╗∙╜≡ with q28,└√╚≤ with q29,╧·╩█ with q30,╓░╣ñ╜▒└°╜≡ with q31,╕ú└√╗∙╜≡ with q32,╜¿╔Φ╗∙╜≡ with q33,─┌▓┐═∙└┤ with q34,╣ñ╫╩╗∙╜≡ with q35,╫¿╧ε╙ª╕╢ with q36,╜╗╒█╛╔╗∙╜≡ with q37
  233. replace next 1 ╙ª┐█╦░╜≡ with q38,╫¿╙├╜Φ┐ε with q39,┴≈╢»╗∙╜≡ with q40,╫¿╧ε╡≈╜┌╜≡ with q41,╜╠╙²╕╜╝╙ with q42
  234. clear
  235. @ 10,20 say '╩╟╖±╝╠╨°╩Σ╚δ╩²╛▌(Y/N)?   ' get aa4
  236.      read
  237. if aa4='N'.or.aa4='n'
  238.    bb4=.f.
  239. endif
  240. enddo
  241. select 1
  242. use
  243. select 2
  244. use
  245. release all
  246. return
  247.  
  248.  
  249.  
  250.