Liren Large Software Subsidy 6

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / ┤≥╙I.PRG next >

Wrap

Text File | 1991-06-22 | 8.4 KB | 555 lines

*┤≥╙í╫╙│╠╨≥:┤≥╙í.PRG set talk off store '╚½├±' to qm store '╝»╠σ' to jt store '║╧═¼' to ht store '▓┐├┼' to bm store '░α╫Θ' to bz store '╦∙╙╨╓╞' to syz abc1='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' abc2='for ░α╫Θ=w2.and.╦∙╙╨╓╞=w3' abc3='for ╦∙╙╨╓╞=w3' abc4='count all for ░α╫Θ=w2.and.╦∙╙╨╓╞=w3 to rs' abc5='count all for ╦∙╙╨╓╞=w3 to rs' d1=0 clear @ 2,30 say '┤≥╙í▓┐├┼╟σ╡Ñ' @ 3,29 say '=============' @ 5,15 say '╓▒╩⌠-------------- 1' @ 5,45 say '╙═╞ß-------------- 7' @ 7,15 say '═╦╨▌-------------- 2' @ 7,45 say '╗·─ú-------------- 8' @ 9,15 say '╟░▓µ-------------- 3' @ 9,45 say '╨┬▓·╞╖------------ 9' @ 11,15 say '│σ╤╣-------------- 4' @ 11,45 say '╫▄╫░-------------- 10' @ 13,15 say '▒╕┴╧-------------- 5' @ 13,45 say '┤≥╙í╫▄▒φ---------- 11' @ 15,15 say '╕ú└√-------------- 6' @ 15,45 say '┤≥╙í╣▄└φ╚╦╘▒╫▄▒φ-- 12' @ 17,15 say '┤≥╙í╞▒╢ε╒┼╩²▒φ---- 13' @ 17,45 say '═╦│÷-------------- 14' @ 19,10 say '╟δ╘┌A┼╠╓╨▓σ╚δ╧α╙ª╡─╣ñ╫╩┐¿▓ó╩Σ╚δ─·╥¬╤í╘±╡─║┼┬δ:' get d1 read if d1=1 use a:gz n=0 do while n<=28 n=n+1 do case case n=1 store '╓▒╩⌠' to w1 store '░∞╣½' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╓▒╩⌠' to w1 store '░∞╣½' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╓▒╩⌠' to w1 store '▒ú╬└' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=4 store '╓▒╩⌠' to w1 store '▒ú╬└' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=5 store '╓▒╩⌠' to w1 store '└═╚╦' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=6 store '╓▒╩⌠' to w1 store '└═╚╦' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=7 store '╓▒╩⌠' to w1 store '╔·╝╝' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=8 store '╓▒╩⌠' to w1 store '╔·╝╝' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=9 store '╓▒╩⌠' to w1 store '▓╞╬±' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=10 store '╓▒╩⌠' to w1 store '▓╞╬±' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=11 store '╓▒╩⌠' to w1 store '╝╝┐¬' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=12 store '╓▒╩⌠' to w1 store '╝╝┐¬' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=13 store '╓▒╩⌠' to w1 store '╣⌐╧·1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=14 store '╓▒╩⌠' to w1 store '╣⌐╧·1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=15 store '╓▒╩⌠' to w1 store '╣⌐╧·2' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=16 store '╓▒╩⌠' to w1 store '╣⌐╧·2' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=17 store '╓▒╩⌠' to w1 store '╓╩╝∞' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=18 store '╓▒╩⌠' to w1 store '╓╩╝∞' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=19 store '╓▒╩⌠' to w1 store '╒■╣ñ' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=20 store '╓▒╩⌠' to w1 store '╒■╣ñ' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=21 store '╓▒╩⌠' to w1 store '╧·╩█' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=22 store '╓▒╩⌠' to w1 store '╧·╩█' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=23 store '╓▒╩⌠' to w1 store '╨╨╒■' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=24 store '╓▒╩⌠' to w1 store '╨╨╒■' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=25 store '╓▒╩⌠' to w1 store '▒α═Γ' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=26 store '╓▒╩⌠' to w1 store '▒α═Γ' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=27 store '╓▒╩⌠' to w1 store '1' to w2 store ht to w3 &abc1 &abc2 &abc4 case n=28 store '╓▒╩⌠' to w1 store '2' to w2 store ht to w3 &abc1 &abc2 &abc4 case n=29 store '╓▒╩⌠' to w1 store '3' to w2 store ht to w3 &abc1 &abc2 &abc4 endcase do c:┤≥╙í1 enddo endif if d1=2 use a:gz n=0 do while n<=1 n=n+1 do case case n=1 store '═╦╨▌' to w1 store qm to w3 sum all ╗∙▒╛╣ñ╫╩,┴╕▓ε,╬∩╠∙,▓╣╖ó,╚²╠∙,╙ª╖ó╩²,╥⌐╖╤,╖┐╫Γ,╡µ┐ε,╫▄┐█┐ε,╩╡╖ó╩² to h1,h4,h5,h7,h9,h12,h13,h14,h18,h21,h22 for ▓┐├┼=w1.and.╦∙╙╨╓╞=w3 count all for ▓┐├┼=w1.and.╦∙╙╨╓╞=w3 to rs case n=2 store '═╦╨▌' to w1 store jt to w3 sum all ╗∙▒╛╣ñ╫╩,┴╕▓ε,╬∩╠∙,▓╣╖ó,╚²╠∙,╙ª╖ó╩²,╥⌐╖╤,╖┐╫Γ,╡µ┐ε,╫▄┐█┐ε,╩╡╖ó╩² to h1,h4,h5,h7,h9,h12,h13,h14,h18,h21,h22 for ▓┐├┼=w1.and.╦∙╙╨╓╞=w3 count all for ▓┐├┼=w1.and.╦∙╙╨╓╞=w3 to rs endcase do c:┤≥╙í5 enddo endif if d1=3 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '╟░▓µ' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╟░▓µ' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╟░▓µ' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=4 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '│σ╤╣' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '│σ╤╣' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '│σ╤╣' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=5 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '▒╕┴╧' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '▒╕┴╧' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '▒╕┴╧' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=6 use a:gz store '╕ú└√' to w1 store '0' to w2 store qm to w3 &abc1 &abc3 &abc5 do c:┤≥╙í1 endif if d1=7 use a:gz n=0 do while n<=18 n=n+1 do case case n=1 store '╙═╞ß' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╙═╞ß' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╙═╞ß' to w1 store '2' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=4 store '╙═╞ß' to w1 store '2' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=5 store '╙═╞ß' to w1 store '3' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=6 store '╙═╞ß' to w1 store '3' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=7 store '╙═╞ß' to w1 store '4' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=8 store '╙═╞ß' to w1 store '4' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=9 store '╙═╞ß' to w1 store '5' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=10 store '╙═╞ß' to w1 store '5' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=11 store '╙═╞ß' to w1 store '6' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=12 store '╙═╞ß' to w1 store '6' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=13 store '╙═╞ß' to w1 store '7' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=14 store '╙═╞ß' to w1 store '7' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=15 store '╙═╞ß' to w1 store '8' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=16 store '╙═╞ß' to w1 store '8' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=17 store '╙═╞ß' to w1 store '9' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=18 store '╙═╞ß' to w1 store '9' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=19 store '╙═╞ß' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=8 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '╗·─ú' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╗·─ú' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╗·─ú' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=9 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '╨┬▓·╞╖' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╨┬▓·╞╖' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╨┬▓·╞╖' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=10 use a:gz n=0 do while n<=2 n=n+1 do case case n=1 store '╫▄╫░' to w1 store '1' to w2 store qm to w3 &abc1 &abc2 &abc4 case n=2 store '╫▄╫░' to w1 store '1' to w2 store jt to w3 &abc1 &abc2 &abc4 case n=3 store '╫▄╫░' to w1 store ' ' to w2 store ht to w3 &abc1 &abc3 &abc5 endcase do c:┤≥╙í1 enddo endif if d1=11 do c:┤≥╙í2 endif if d1=12 do c:┤≥╙í3 endif if d1=13 do c:┤≥╙í4 endif if d1=14 ? '═╦│÷' endif use release all return