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

Text File | 1980-01-01 | 4.0 KB | 196 lines

clear
set talk off
set device to screen
close database
sele 5
use bjb
sele 1
use dw
sele 2
use jf
sele 3
use gz
sele 4
use sg
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌╘┬╖▌" get a pict '99.99'
read
e1=a
j1=substr(a,4,2)
j2='01'
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
c=month(a)
if c=2
b=a+28
endif
d=c/2
e=int(d)
if c>=1 .and. c<=7
if d<>e
b=a+31
else
b=a+30
endif
else
if d<>e
b=a+30
else
b=a+31
endif
endif
clear
@ 4,20 say "╒²╘┌╝╞╦π╙δ┤≥╙íú¼╟δ╔╘║≥úí"
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
z1=0
z2=0
z3=0
z4=0
z5=0
z6=0
z7=0
z8=0
@ prow()+1,40 say e1+"╝╞╗«╨▐└φ,╣╩╒╧╨▐└φ╙δ╩┬╣╩╨▐└φ╣ñ╩▒╝░╖╤╙├▒╚╜╧▒φ"
@ prow()+1,1 say "                        "
@ prow()+1,0 say ì
"=================================================================ì
=============================================================="
@ prow()+1,0 say "|  ú▄╧ε─┐    |╫▄╨▐└φ             |╝╞╗«╨▐└φ          ì
|╣╩╒╧╨▐└φ          |╩┬╣╩╨▐└φ          |╒╝╫▄╨▐└φ╣ñ╩▒úÑ   ì
|╒╝╫▄╨▐└φ╖╤╙├úÑ   |"
@ prow()+1,0 say "|    ú▄  ì
    |-------------------|------------------|------------------|----ì
--------------|-----------------|-----------------|"
@ prow()+1,0 say "|╡Ñ╬╗  ú▄    |╣ñ╩▒    |╖╤╙├      |╣ñ╩▒   |╖╤╙├      ì
|╣ñ╩▒   |╖╤╙├      |╣ñ╩▒   |╖╤╙├      |╝╞╗« |╣╩╒╧ |╩┬╣╩ |╝╞╗« ì
|╣╩╒╧ |╩┬╣╩ |"
@ prow()+1,0 say "|--ì
----------|--------|----------|-------|----------|-------|----------ì
|-------|----------|-----|-----|-----|-----|-----|-----|"
sele 1
do while .not. eof()
c=dw1
d=dw2
sele 2
sum jf4+jf5+jf6+jf7+jf9,jf11+jf12+jf13+jf14 to x,y for jf3>=a .and. jf3<=b .and. jf16=c
z1=z1+x
z2=z2+y
sele 3
sum gz7,gz9+gz10+gz11+gz12+gz13 to x1,y1 for gz3>=a .and. gz3<=b ì
.and. gz14=c
z3=x1+z3
z4=y1+z4
sele 4
sum sg15,sg11 to x2,y2 for sg2>=a .and. sg2<=b .and. sg16=c
x3=x+x1+x2
y3=y+y1+y2
z5=z5+x2
z6=z6+y2
z7=z7+x3
z8=z8+y3
@ prow()+1,0 say "|"+d
@ prow(),13 say "|"+str(x3,8,2)
@ prow(),22 say "|"+str(y3,10,2)
@ prow(),33 say "|"+str(x,7,2)
@ prow(),41 say "|"+str(y,10,2)
@ prow(),52 say "|"+str(x1,7,2)
@ prow(),60 say "|"+str(y1,10,2)
@ prow(),71 say "|"+str(x2,7,2)
@ prow(),79 say "|"+str(y2,10,2)
e=x*100/x3
if x3=0
@ prow(),90 say "|"+"~~"
else
@ prow(),90 say "|"+str(e,5,2)
endif
e=x1*100/x3
if x3=0
@ prow(),96 say "|"+"~~"
else
@ prow(),96 say "|"+str(e,5,2)
endif
e=x2*100/x3
if x3=0
@ prow(),102 say "|"+"~~"
else
@ prow(),102 say "|"+str(e,5,2)
endif
e=y*100/y3
if y3=0
@ prow(),108 say "|"+"~~"
else
@ prow(),108 say "|"+str(e,5,2)
endif
e=y1*100/y3
if y3=0
@ prow(),114 say "|"+"~~"
else
@ prow(),114 say "|"+str(e,5,2)
endif
e=y2*100/y3
if y3=0
@ prow(),120 say "|"+"~~   "+"|"
else
@ prow(),120 say "|"+str(e,5,2)+"|"
endif
sele 1
skip
@ prow()+1,0 say ì
"|------------|--------|----------|-------|----------|-------|------ì
----|-------|----------|-----|-----|-----|-----|-----|-----|"
enddo
set cons on
@ prow()+1,0 say "|║╧╝╞        "
@ prow(),13 say "|"+str(z7,8,2)
@ prow(),22 say "|"+str(z8,10,2)
@ prow(),33 say "|"+str(z1,7,2)
@ prow(),41 say "|"+str(z2,10,2)
@ prow(),52 say "|"+str(z3,7,2)
@ prow(),60 say "|"+str(z4,10,2)
@ prow(),71 say "|"+str(z5,7,2)
@ prow(),79 say "|"+str(z6,10,2)
e=z1*100/z7
j1=e
@ prow(),90 say "|"+str(e,5,2)
e=z3*100/z7
j2=e
@ prow(),96 say "|"+str(e,5,2)
e=z5*100/z7
j3=e
@ prow(),102 say "|"+str(e,5,2)
e=z2*100/z8
j4=e
@ prow(),108 say "|"+str(e,5,2)
e=z4*100/z8
j5=e
@ prow(),114 say "|"+str(e,5,2)
e=z6*100/z8
j6=e
@ prow(),120 say "|"+str(e,5,2)+"|"
@ prow()+1,0 say ì
"=================================================================ì
=============================================================="
sele 5
loca for b7=e1
if eof()
appe blank
repl b1 with j1,b2 with j2,b3 with j3,b4 with j4,b5 with j5,b6 ì
with j6,b7 with e1
else
repl b1 with j1,b2 with j2,b3 with j3,b4 with j4,b5 with j5,b6 ì
with j6
endif
set print on
? chr(13)
set print off
set device to screen
close database
set cons on
retu