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

Text File | 1979-12-31 | 1.6 KB | 88 lines

clear
set talk off
set device to screen
close database
sele 1
use sb
set index to sb1
sele 2
use bj
set index to bj1
sele 3
use cr
a='      '
u='          '
@ 4,15 say "╟δ╩Σ╚δ─Ω,╘┬" get a pict '99.99'
@ 5,15 say "┐Γ┤µ╣▄└φ╖╤" get u pict '#######.##'
read
u=val(u)
q=a
j1=substr(a,4,2)
j2='01'
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
c=month(a)
d=c/2
e=int(d)
if c<=7
if c=2
b=a+27
endif
if d-e<>0
b=a+30
else
b=a+29
endif
else
if d-e<>0
b=a+29
else
b=a+30
endif
endif
sele 1
sum sb15 to x
sele 2
sum b4*b5 to y
sele 3
sum l3*l4 to z for l10='c' .and. l2>=a .and. l2<=b
p1=y*100/x
p2=y/z
p3=u*100/y
p4=u*100/z
@ 1,25 say " "+q+"╡─╕≈╧ε┐Γ┤µ╓╕▒Ω"
@ 3,1 say "▒╚┬╩=▒╕╝■┐Γ┤µ╝█╓╡ú»╣╠╢¿╫╩▓·╘¡╓╡ú╜"+str(p1,9,2)+"úÑ"
@ 5,1 say "╓▄╫¬┬╩ú╜▒╕╝■┐Γ┤µ╝█╓╡ú»╘┬╧√║─┴┐ú╜"+str(p2,5,1)+"╘┬"
@ 7,1 say ì
"┐Γ┤µ╖╤╒╝┐Γ┤µ╝█╓╡╡─▒╚┬╩ú╜┐Γ┤µ╣▄└φ╖╤ú»┐Γ┤µ╝█╓╡ú╜"+str(p3,9,2)+"úÑ"
@ 9,1 say ì
"┐Γ┤µ╣▄└φ╖╤╒╝╖ó│÷▒╕╝■╝█╓╡╡─▒╚┬╩ú╜┐Γ┤µ╣▄└φ╖╤ú»╖ó│÷▒╕╝■╝█╓╡ú╜"+str(pì
4,9,2)+"úÑ"
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
@ prow()+1,15 say " "+q+"╡─╕≈╧ε┐Γ┤µ╓╕▒Ω"
@ prow()+2,1 say "┐Γ┤µ▒╕╝■╒╝╣╠╢¿╫╩▓·╘¡╓╡╡─▒╚┬╩ú╜"+str(p1,9,2)+"úÑ"
@ prow()+2,1 say "▒╕╝■╓▄╫¬┬╩ú╜"+str(p2,6,1)+"  ╘┬"
@ prow()+2,1 say "┐Γ┤µ╣▄└φ╖╤╒╝╫▄┐Γ┤µ╝┘╓╡╡─▒╚┬╩ú╜"+str(p3,9,2)+"úÑ"
@ prow()+2,1 say ì
"┐Γ┤µ╣▄└φ╖╤╒╝╖ó│÷▒╕╝■╝█╓╡╡─▒╚┬╩ú╜"+str(p4,9,2)+"úÑ"
set print on
? chr(13)
set print off
set device to screen
close database
set cons on
retu