Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/BB1.PRG

Text File | 1979-12-31 | 5.0 KB | 240 lines

clear
set talk off
c8='     '
@ 4,15 say "╟δ╩Σ╚δ╧╓╘┌╡──Ω╘┬:" get c8 pict '99.99'
read
clear
@ 4,15 say "╒²╘┌╝╞╦π╙δ┤≥╙íú¼╟δ╔╘║≥"
set cons off
use jdx
loca for jdx2='╛½├▄'
tt=jdx1
loca for jdx2='┤≤╨═'
rr=jdx1
loca for jdx2='╧í╙╨'
qq=jdx1
close database
sele 1
use dw
sele 2
use bjh
sele 3
use dq
sele 4
use yl
sele 5
use yb
sele 6
use sb
sele 7
use dgm
sele 8
use xl
sele 9
use bb
set print on
? chr(27)+"IJ"
set print off
set device to print
@ prow()+1,55 say "╔Φ▒╕╫┤┐÷╫█║╧▒¿▒φ"
@ prow()+1,1 say "                                    "
@ prow()+1,100 say "▒¿▒φ╚╒╞┌:"+c8
c=c8+'.'+'30'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
@ prow()+1,1 say ì
"=================================================================ì
========================================================="
@ prow()+1,1 say "|            |╓≈   ╥¬   ╔Φ   ▒╕|╛½  ┤≤  ╧í  ╔Φ ▒╕|╤╣   ┴ª   ╚▌   ╞≈|╢»   ┴ª   ╔Φ   ▒╕|╥╟             ▒φ|╛▓   ├▄   ì
╖Γ   ╡π|"
y1=0
y2=0
y4=0
y5=0
y7=0
y8=0
y10=0
@ prow()+1,1 say "|            ì
|-----------------------------------------------------------------ì
------------------------------------------|"
@ prow()+1,1 say "|            |  ╫▄ |  ═Ω |  ═Ω |  ╫▄ |  ═Ω | ì
 ═Ω |  ╫▄ |  ╬┤ |  ═Ω |  ╫▄ |  ═Ω |  ═Ω |  ╫▄ |  ═Ω |  ì
═Ω |  ╫▄ |  ╨╣ |  ╨╣ |"
@ prow()+1,1 say "|▓┐        ├┼|  ╠¿ |  ║├ |  ║├ |  ╠¿ |  ║├ | ì
 ║├ |  ╠¿ |  ═Ω |  │╔ |  ╠¿ |  ║├ |  ║├ |  ╠¿ |  ║├ |  ì
║├ |     |  ┬⌐ |  ┬⌐ |"
@ prow()+1,1 say "|            |  ╩² |  ╠¿ |  ┬╩ |  ╩² |  ╠¿ | ì
 ┬╩ |  ╩² |  │╔ |  ┬╩ |  ╩² |  ╠¿ |  ┬╩ |  ╩² |  ╠¿ |  ì
┬╩ |  ╩² |  ╡π |  ┬╩ |"
y11=0
y13=0
y14=0
y16=0
y17=0
@ prow()+1,1 say "|            | (╕÷)|  ╩² |  %  | (╕÷)|  ╩² |  %  ì
| (╕÷)|  ╩² |  %  | (╕÷)|  ╩² |  %  | (╕÷)|  ╩² |  %  |(╕÷ì
) |  ╩² |  %. |"
y3=0
y6=0
y9=0
y12=0
y15=0
y18=0
@ prow()+1,1 say ì
"|================================================================ì
========================================================|"
sele 1
do while .not. eof()
a=dw1
b=dw2
sele 2
set exac off
count to x1 for bjh15=a
count to x2 for bjh15=a .and. bjh14='y'
y1=y1+x1
y2=x2+y2
if x1<>0
x3=x2/x1*100
endif
count to x4 for bjh15=a .and. (bjh16=tt .or. bjh16=rr .or. ì
bjh16=qq)
count to x5 for bjh15=a .and. (bjh16=tt .or. bjh16=rr .or. ì
bjh16=qq) .and. bjh14='y'
y4=y4+x4
y5=y5+x5
if x4<>0
x6=x5/x4*100
endif
set exac on
sele 4
count to x7 for yl4=a
count to x8 for yl4=a .and. (yl31+yl26<c .or. yl32+yl27<c .or. ì
yl33+yl28<c)
y7=y7+x7
y8=y8+x8
if x7<>0
x9=(x7-x8)/x7*100
endif
sele 3
count to x10 for dq9=a
count to x11 for dq9=a .and. dq8='y'
y10=y10+x10
y11=y11+x11
if x10<>0
x12=x11/x10*100
endif
sele 5
count to x13 for yb10=a
count to x14 for yb10=a .and. yb7='y'
y13=y13+x13
y14=x14+y14
if x13<>0
x15=x14/x13*100
endif
sele 6
sum sb35 to x16 for sb28=a
sele 7
loca for dgm1=a
x16=x16+dgm2
sele 8
loca for xl2=a
x17=xl4
y16=y16+x16
y17=x17+y17
if x16<>0
x18=x17/x16*1000
endif
sele 9
@ prow()+1,1 say "|"+b
@ prow(),14 say "|"+str(x1,5)
@ prow(),20 say "|"+str(x2,5)
if x1<>0
@ prow(),26 say "|"+str(x3,5)
y3=y3+x3
else
@ prow(),26 say "|"+"  ~~%"
endif
@ prow(),32 say "|"+str(x4,5)
@ prow(),38 say "|"+str(x5,5)
if x4<>0
@ prow(),44 say "|"+str(x6,5)
y6=y6+x6
else
@ prow(),44 say "|"+"  ~~%"
endif
@ prow(),50 say "|"+str(x7,5)
@ prow(),56 say "|"+str(x8,5)
if x7<>0
@ prow(),62 say "|"+str(x9,5)
y9=y9+x9
else
@ prow(),62 say "|"+"  ~~%"
endif
@ prow(),68 say "|"+str(x10,5)
@ prow(),74 say "|"+str(x11,5)
if x10<>0
@ prow(),80 say "|"+str(x12,5)
y12=y12+x12
else
@ prow(),80 say "|"+"  ~~%"
endif
@ prow(),86 say "|"+str(x13,5)
@ prow(),92 say "|"+str(x14,5)
if x13<>0
@ prow(),98 say "|"+str(x15,5)
y15=y15+x15
else
@ prow(),98 say "|"+"  ~~%"
endif
@ prow(),104 say "|"+str(x16,5)
@ prow(),110 say "|"+str(x17,5)
if x16<>0
@ prow(),116 say "|"+str(x18,5)+"|"
y18=y18+x18
else
@ prow(),116 say "|"+"  ~~%"+"|"
endif
sele 1
skip
@ prow()+1,1 say ì
"|------------|-----|-----|-----|-----|-----|-----|-----|-----|---ì
--|-----|-----|-----|-----|-----|-----|-----|-----|-----|"
enddo
count to x
y3=y3/x
y6=y6/x
y9=y9/x
y12=y12/x
y15=y15/x
y18=y18/x
sele 9
@ prow()+1,1 say "|"+b1
@ prow(),14 say "|"+str(b2,5)
@ prow(),20 say "|"+str(b3,5)
@ prow(),26 say "|"+str(b4,5)
@ prow(),32 say "|"+str(b5,5)
@ prow(),38 say "|"+str(b6,5)
@ prow(),44 say "|"+str(b7,5)
@ prow(),50 say "|"+str(b8,5)
@ prow(),56 say "|"+str(b9,5)
@ prow(),62 say "|"+str(b10,5)
@ prow(),68 say "|"+str(b11,5)
@ prow(),74 say "|"+str(b12,5)
@ prow(),80 say "|"+str(b13,5)
@ prow(),86 say "|"+str(b14,5)
@ prow(),92 say "|"+str(b15,5)
@ prow(),98 say "|"+str(b16,5)
@ prow(),104 say "|"+str(b17,5)
@ prow(),110 say "|"+str(b18,5)
@ prow(),116 say "|"+str(b19,5)+"|"
@ prow()+1,1 say "=========================================================================================================================="
set print on
? chr(13)
set print off
set device to screen
retu