Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╫█║╧.PRG

Text File | 1989-01-17 | 1.0 KB | 41 lines

*╫█║╧╞╜║Γ╝╞╦π╫╙│╠╨≥:╫█║╧.PRG
set talk off
clear
@ 10,20 say '╟δ╘┌ B:┼╠▓σ╚δ╩²╛▌╫▄┐¿'
?
?
wait
use b:zgz
sum all ╚╦╩²,╗∙▒╛╣ñ╫╩,╩┬╝┘,▓í╝┘,┴╕▓ε,╬∩╠∙,╥╣▓═,▓╣╖ó,▓╣│╡╖╤,╚²╠∙,▒ú╜í,╟σ╥√,╕í╢» to rs,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12 for ╦∙╙╨╓╞<>'╚½,║╧'
sum all ╥⌐╖╤,╖┐╫Γ,═╨╖╤,┐█│╡╖╤,┤ó╜≡,╡µ┐ε,╣·┐Γ,▒ú╧╒,╩╡╖ó╩² to h14,h15,h16,h17,h18,h19,h20,h21,h23 for ╦∙╙╨╓╞<>'╚½,║╧'
h13=h1-h2-h3+h4+h5+h6+h7+h8+h9+h10+h11+h12
h22=h14+h15+h16+h17+h18+h19+h20+h21
pxs=h13-h22
use b:pes
sum all ╩╡╖ó╩² to sfs
h221=str(h23,9,2)
pxs1=str(pxs,9,2)
sfs1=str(sfs,9,2)
clear
@ 08,15 say '╫▌╧≥╩╡╖ó╩²:  '+h221
@ 10,15 say '║ß╧≥╩╡╖ó╩²:  '+pxs1
@ 12,15 say '╞▒╢ε╩╡╖ó╩²:  '+sfs1
if h221=pxs1.and.h221=sfs1
   @ 15,20 say '**************************'
   @ 16,20 say '* ╫▌║ß╞╜║Γ OK;┐╔╜°╨╨┤≥╙í *'
   @ 17,20 say '**************************'
   ?
   wait
endif
if h221<>pxs1.or.h221<>sfs1
   @ 15,20 say '*********************'
   @ 16,20 say '* ╫▌║ß▓╗╞╜║Γ;╟δ╕┤▓Θ *'
   @ 17,20 say '*********************'
   ?
   wait
endif
use
release all
return