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

Text File | 1979-12-31 | 3.4 KB | 160 lines

clear
set talk off
set device to screen
close database
sele 1
use jf
sele 2
use gz
sele 3
use sg
sele 4
use fyl index fyl1
a='          '
b='     '
if p<>1
@ 4,10 say "╟δ╩Σ╚δ╣ñ╥╡╫▄▓·╓╡" get a pict '#######.##'
endif
@ 5,10 say "─Ω╖▌,╘┬╖▌" get b pict '99.99'
read
if p<>1
a=val(a)
j1=substr(b,4,2)
j2='01'
j3=substr(b,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
d=month(c)
e=d/2
f=int(e)
if d=2
g=c+27
endif
if d<=7
if e-f<>0
g=c+30
else
g=c+29
endif
else
if e-f<>0
g=c+29
else
g=c+30
endif
endif
clear
@ 4,30 say "╒²╘┌╝╞╦π,╟δ╔╘║≥"
set cons off
sele 1
sum jf12,jf11,jf10,jf13,jf14 to x1,x2,x3,x4,x5 for jf3>=c .and. ì
jf3<=g
x=x1+x2+x3+x4+x5
sele 2
sum gz9,gz11,gz10,gz12,gz13 to y1,y2,y3,y4,y5 for gz3>=c .and. ì
gz3<=g
y=y1+y2+y3+y4+y5
sele 3
sum sg17,sg18,sg19,sg20,sg21 to z1,z2,z3,z4,z5 for sg2>=c .and. ì
sg2<=g
z=z1+z2+z3+z4+z5
y6=(x+y+z)*100/a
sele 4
loca for f1=b
if eof()
appe blank
repl f1 with b,f2 with a,f3 with x+y+z,f4 with x1+y1+z1,f5 with ì
x2+y2+z2,f6 with x3+y3+z3,f7 with x4+y4+z4,f8 with x5+y5+z5,f9 with y6
else
repl f2 with a,f3 with x+y+z,f4 with x1+y1+z1,f5 with x2+y2+z2,f6 ì
with x3+y3+z3,f7 with x4+y4+z4,f8 with x5+y5+z5,f9 with y6
endif
set cons on
if p<>1
wait '┤≥╙í┬≡(Y/N)' to w
else
w='y'
endif
if w<>'y'
close database
retu
endif
endif
clear
@ 4,30 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥"
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
set cons on
t1=0
t2=0
t3=0
t4=0
t5=0
t6=0
t7=0
@ prow()+1,40 say "═≥╘¬▓·╓╡╔Φ▒╕╬¼╨▐╖╤╙├═│╝╞▒φ"
@ prow()+1,1 say "                               "
@ prow()+1,1 say ì
"=================================================================ì
=============================================="
@ prow()+1,1 say "|ú▄╧ε─┐|                |                         ╔Φ▒╕╬¼╨▐╖╤╙├   ì
                         |═≥╘¬▓·╓╡╔Φ▒╕       |"
@ prow()+1,1 say "|  ú▄  |╣ñ╥╡╫▄▓·╓╡      ì
|----------|----------|----------|----------|----------|----------ì
|                   |"
@ prow()+1,1 say "|╘┬╖▌ú▄|                |║╧╝╞(╘¬)  |╣ñ╩▒╖╤    ì
|▓─┴╧╖╤    |▒╕╝■╖╤    |═Γ╬»╝╙╣ñ╖╤|╞Σ╦ⁿ╖╤╙├  ì
|╬¼╨▐╖╤╙├┬╩(╘¬/═≥╘¬)|"
@ prow()+1,1 say ì
"|------|----------------|----------|----------|----------|-------ì
---|----------|----------|-------------------|"
loca for f1<=b
do while .not. eof()
q=substr(f1,4,2)
@ prow()+1,1 say "|"+q
@ prow(),8 say "|"+str(f2,10,2)
t1=t1+f2
@ prow(),25 say "|"+str(f3,10,2)
t2=t2+f3
@ prow(),36 say "|"+str(f4,10,2)
t3=t3+f4
@ prow(),47 say "|"+str(f5,10,2)
t4=t4+f5
@ prow(),58 say "|"+str(f6,10,2)
t5=t5+f6
@ prow(),69 say "|"+str(f7,10,2)
t6=t6+f7
@ prow(),80  say "|"+str(f8,10,2)
t7=t7+f8
@ prow(),91 say "|"+str(f9,8,2)+"           |"
cont
@ prow()+1,1 say ì
"|------|----------------|----------|----------|----------|-------ì
---|----------|----------|-------------------|"
enddo
@ prow()+1,1 say "|║╧╝╞  "
@ prow(),8 say "|"+str(t1,10,2)
@ prow(),25 say "|"+str(t2,10,2)
@ prow(),36 say "|"+str(t3,10,2)
@ prow(),47 say "|"+str(t4,10,2)
@ prow(),58 say "|"+str(t5,10,2)
@ prow(),69 say "|"+str(t6,10,2)
@ prow(),80 say "|"+str(t7,10,2)
q=t2*100/t1
@ prow(),91 say "|"+str(q,8,2)+"           |"
@ prow()+1,1 say ì
"=================================================================ì
=============================================="
set print on
? chr(13)
set print off
set device to screen
close database
retu