home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / ║╧╝╞.PRG < prev    next >
Encoding:
Text File  |  1990-10-08  |  4.3 KB  |  118 lines

  1. *║╧╝╞╫╙│╠╨≥:║╧╝╞.PRG
  2. clear
  3. set talk off
  4. hjbm=0
  5. aw=.t.
  6. do while aw
  7. aw=.f.
  8. clear
  9. @ 2,34 say '╥¬║╧╝╞╡─▓┐├┼'
  10. @ 3,33 say '============='
  11. @ 5,15 say '╓▒╩⌠--------------- 1'
  12. @ 5,45 say '╕ú└√--------------- 5'
  13. @ 7,15 say '╟░▓µ--------------- 2'
  14. @ 7,45 say '╙═╞ß--------------- 6'
  15. @ 9,15 say '│σ╤╣--------------- 3'
  16. @ 9,45 say '╗·─ú--------------- 7'
  17. @ 11,15 say '▒╕┴╧--------------- 4'
  18. @ 11,45 say '╨┬▓·╞╖------------- 8'
  19. @ 13,30 say '╫▄╫░--------------- 9'
  20. @ 17,15 say '╫ó   ╘┌ A:┼╠(╔╧)▓σ╚δ╧α╙ª▓┐├┼╩²╛▌┐¿'
  21. @ 18,15 say '╥Γ:  ╘┌ B:┼╠(╧┬)▓σ╚δ╩²╛▌╫▄┐¿'
  22. @ 15,10 say '╟δ╩Σ╚δ╥¬║╧╝╞╡─▓┐├┼╡─▒α║┼' get hjbm
  23.      read
  24. if hjbm=1
  25.    store '╓▒╩⌠' to w1
  26. endif
  27. if hjbm=2
  28.    store '╟░▓µ' to w1
  29. endif
  30. if hjbm=3
  31.    store '│σ╤╣' to w1
  32. endif
  33. if hjbm=4
  34.    store '▒╕┴╧' to w1
  35. endif
  36. if hjbm=5
  37.    store '╕ú└√' to w1
  38. endif
  39. if hjbm=6
  40.    store '╙═╞ß' to w1
  41. endif
  42. if hjbm=7
  43.    store '╗·─ú' to w1
  44. endif
  45. if hjbm=8
  46.    store '╨┬▓·╞╖' to w1
  47. endif
  48. if hjbm=9
  49.    store '╫▄╫░' to w1
  50. endif
  51. use a:gz
  52. if ▓┐├┼<>w1
  53.    clear
  54.    @ 5,22 say '─·╘┌ A:┼╠(╔╧)▓σ╚δ╡─▓┐├┼╩²╛▌┐¿┤φ┴╦'
  55.    @ 7,22 say '         ╟δ─·╓╪╨┬▓σ╣²'
  56.    ?
  57.    ?
  58.    wait
  59.    aw=.t.
  60. endif
  61. enddo
  62. n=0
  63. do while n<=2
  64. use a:gz
  65. n=n+1
  66. if n=1
  67.    store '╚½├±' to w3
  68. endif
  69. if n=2
  70.    store '╝»╠σ' to w3
  71. endif
  72. if n=3
  73.    store '║╧═¼' to w3
  74. endif
  75. if ▓┐├┼='╕ú└√'
  76.    store '╚½├±' to w3
  77. endif
  78. count all to rs for ╦∙╙╨╓╞=w3
  79. sum all ╗∙▒╛╣ñ╫╩,╩┬╝┘,▓í╝┘,┴╕▓ε,╬∩╠∙,╥╣▓═,▓╣╖ó,▓╣│╡╖╤,╚²╠∙,▒ú╜í,╟σ╥√,╕í╢»,╙ª╖ó╩²,╥⌐╖╤,╖┐╫Γ,═╨╖╤,┐█│╡╖╤,┤ó╜≡,╡µ┐ε,╣·┐Γ,▒ú╧╒,╫▄┐█┐ε,╩╡╖ó╩² to h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23 for ╦∙╙╨╓╞=w3
  80. use b:zgz
  81. replace all ╚╦╩² with rs,╗∙▒╛╣ñ╫╩ with h1,╩┬╝┘ with h2,▓í╝┘ with h3,┴╕▓ε with h4,╬∩╠∙ with h5,╥╣▓═ with h6,▓╣╖ó with h7,▓╣│╡╖╤ with h8,╚²╠∙ with h9,▒ú╜í with h10,╟σ╥√ with h11,╕í╢» with h12 for ╦∙╙╨╓╞=w3.and.▓┐├┼=w1
  82. replace all ╙ª╖ó╩² with h13,╥⌐╖╤ with h14,╖┐╫Γ with h15,═╨╖╤ with h16,┐█│╡╖╤ with h17,┤ó╜≡ with h18,╡µ┐ε with h19,╣·┐Γ with h20,▒ú╧╒ with h21,╫▄┐█┐ε with h22,╩╡╖ó╩² with h23 for ╦∙╙╨╓╞=w3.and.▓┐├┼=w1
  83. replace all ╘┬╖▌ with mo2 for ▓┐├┼=w1
  84. enddo
  85. use a:gz
  86. if ▓┐├┼='╓▒╩⌠'.or.▓┐├┼='╟░▓µ'.or.▓┐├┼='│σ╤╣'.or.▓┐├┼='╙═╞ß'.or.▓┐├┼='▒╕┴╧'.or.▓┐├┼='╗·─ú'.or.▓┐├┼='╨┬▓·╞╖'.or.▓┐├┼='╫▄╫░'
  87.    count all to rs for ╦∙╙╨╓╞='╚½├±'.and.╣ñ╓╓='╣▄└φ'
  88.    sum all ╗∙▒╛╣ñ╫╩,╩┬╝┘,▓í╝┘,┴╕▓ε,╬∩╠∙,╥╣▓═,▓╣╖ó,▓╣│╡╖╤,╚²╠∙,▒ú╜í,╟σ╥√,╕í╢»,╙ª╖ó╩² to h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13 for ╦∙╙╨╓╞='╚½├±'.and.╣ñ╓╓='╣▄└φ'
  89.    sum all ╥⌐╖╤,╖┐╫Γ,═╨╖╤,┐█│╡╖╤,┤ó╜≡,╡µ┐ε,╣·┐Γ,▒ú╧╒,╫▄┐█┐ε,╩╡╖ó╩² to h14,h15,h16,h17,h18,h19,h20,h21,h22,h23 for ╦∙╙╨╓╞='╚½├±'.and.╣ñ╓╓='╣▄└φ'
  90.    use b:gzgz
  91.    replace all ╚╦╩² with rs,╗∙▒╛╣ñ╫╩ with h1,╩┬╝┘ with h2,▓í╝┘ with h3,┴╕▓ε with h4,╬∩╠∙ with h5,╥╣▓═ with h6,▓╣╖ó with h7,▓╣│╡╖╤ with h8,╚²╠∙ with h9,▒ú╜í with h10,╟σ╥√ with h11,╕í╢» with h12 for ▓┐├┼=w1
  92.    replace all ╙ª╖ó╩² with h13,╥⌐╖╤ with h14,╖┐╫Γ with h15,═╨╖╤ with h16,┐█│╡╖╤ with h17,┤ó╜≡ with h18,╡µ┐ε with h19,╣·┐Γ with h20,▒ú╧╒ with h21,╫▄┐█┐ε with h22,╩╡╖ó╩² with h23 for ▓┐├┼=w1
  93.    replace all ╘┬╖▌ with mo2 for ▓┐├┼=w1
  94. endif
  95. use b:zgz
  96. sum all ╚╦╩²,╗∙▒╛╣ñ╫╩,╩┬╝┘,▓í╝┘,┴╕▓ε,╬∩╠∙,╥╣▓═,▓╣╖ó,▓╣│╡╖╤,╚²╠∙,▒ú╜í,╟σ╥√,╕í╢» to rs,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12 for ▓┐├┼=w1.and.(╦∙╙╨╓╞='╚½├±'.or.╦∙╙╨╓╞='║╧═¼')
  97. sum all ╙ª╖ó╩²,╥⌐╖╤,╖┐╫Γ,═╨╖╤,┐█│╡╖╤,┤ó╜≡,╡µ┐ε,╣·┐Γ,▒ú╧╒,╫▄┐█┐ε,╩╡╖ó╩² to h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23 for ▓┐├┼=w1.and.(╦∙╙╨╓╞='╚½├±'.or.╦∙╙╨╓╞='║╧═¼')
  98. replace all ╚╦╩² with rs,╗∙▒╛╣ñ╫╩ with h1,╩┬╝┘ with h2,▓í╝┘ with h3,┴╕▓ε with h4,╬∩╠∙ with h5,╥╣▓═ with h6,▓╣╖ó with h7,▓╣│╡╖╤ with h8,╚²╠∙ with h9,▒ú╜í with h10,╟σ╥√ with h11,╕í╢» with h12 for ╦∙╙╨╓╞='╚½,║╧'.and.▓┐├┼=w1
  99. replace all ╙ª╖ó╩² with h13,╥⌐╖╤ with h14,╖┐╫Γ with h15,═╨╖╤ with h16,┐█│╡╖╤ with h17,┤ó╜≡ with h18,╡µ┐ε with h19,╣·┐Γ with h20,▒ú╧╒ with h21,╫▄┐█┐ε with h22,╩╡╖ó╩² with h23 for ╦∙╙╨╓╞='╚½,║╧'.and.▓┐├┼=w1
  100. sum all ╚╦╩²,╗∙▒╛╣ñ╫╩,╩┬╝┘,▓í╝┘,┴╕▓ε,╬∩╠∙,╥╣▓═,▓╣╖ó,▓╣│╡╖╤,╚²╠∙,▒ú╜í,╟σ╥√,╕í╢» to rs,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12 for ▓┐├┼=w1.and.(╦∙╙╨╓╞='╚½,║╧'.or.╦∙╙╨╓╞='╝»╠σ')
  101. sum all ╥⌐╖╤,╖┐╫Γ,═╨╖╤,┐█│╡╖╤,┤ó╜≡,╡µ┐ε,╣·┐Γ,▒ú╧╒,╩╡╖ó╩² to h14,h15,h16,h17,h18,h19,h20,h21,h23 for ▓┐├┼=w1.and.(╦∙╙╨╓╞='╚½,║╧'.or.╦∙╙╨╓╞='╝»╠σ')
  102. h13=h1-h2-h3+h4+h5+h6+h7+h8+h9+h10+h11+h12
  103. h22=h14+h15+h16+h17+h18+h19+h20+h21
  104. pxs=h13-h22
  105. pxs1=int((pxs-h23)*100)
  106. if pxs1<>0
  107. clear
  108. @ 10,20 say '╫█║╧▓╗╞╜║Γ,╟δ╜°╚δ╨▐╕─╧ε─┐▓ó═╦│÷.'
  109. @ 11,30 say '╚╗║≤╘┘║╧╝╞íú'
  110. ?
  111. ?
  112. wait
  113. endif
  114. use
  115. release all
  116. return
  117.  
  118.