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

Text File | 1979-12-31 | 2.7 KB | 156 lines

clear
set talk off
set exac on
set device to screen
close database
use sb index sb1
b='        '
c='        '
@ 4,10 say "╞≡╩╝╚╒╞┌:" get b pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get c pict '99.99.99'
read
b1=b
b2=c
t1=substr(b,4,2)
t2=substr(b,7,2)
t3=substr(b,1,2)
b=t1+'/'+t2+'/'+t3
b=ctod(b)
t1=substr(c,4,2)
t2=substr(c,7,2)
t3=substr(c,1,2)
c=t1+'/'+t2+'/'+t3
c=ctod(c)
a1=.t.
do while a1
clear
a='         '
@ 4,10 say "╔Φ▒╕▒α║┼:" get a
read
seek a
clear
repl sb32 with 'w'
wait '╗╣╙╨▒≡╡─╔Φ▒╕┬≡(Y/N)' to w
if w='y'
loop
else
a1=.f.
endif
enddo a1
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
t=1
copy to sb5.dbf for sb32='w' field sb1,sb3,sb33
sele 1
use sb5
sele 2
use gz
sele 1
a1=.t.
if eof() .and. bof()
set device to screen
clear
@ 4,18 say "╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
dele file sb5.dbf
retu
endif
do while a1
clear
@ prow()+1,1 say "                             ì
"+b1+"---"+b2+"╣╩╒╧═ú╗·╟Θ┐÷"
@ prow()+1,1 say "                "
@ prow()+1,1 say "╡Ñ╬╗ú║╨í╩▒"
@ prow(),75 say "╡┌"+str(t,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
========================"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        ì
|═ú╗·┤╬╩²|╫▄═ú╗·╩▒╝Σ|╞╜╛∙╬¼╨▐╝Σ╕⌠╞┌|ì
╞╜╛∙═ú╗·╩▒╝Σ|╫▄╝╞┐╔└√╙├┬╩|"
@ prow()+1,1 say ì
"|---------|----------------|--------|----------|--------------|------------|------------|"
l=6
do while .not. eof()
j1=sb1
j2=sb3
do case
case sb33=1
j3=7.5
case sb33=2
j3=15.5
case sb33=3
j3=24
otherwise
j3=8
endcase
sele 2
sum gz15,gz6 to x,y for gz1=j1 .and. b<=gz3 .and. gz3<=c
@ prow()+1,1 say "|"+j1
@ prow(),11 say "|"+j2
@ prow(),28 say "|"+str(x,4)
@ prow(),37 say "|"+str(y,8,1)
f1=(c-b)*j3/x
if x<>0
@ prow(),48 say "|"+str(f1,8,2)
else
@ prow(),48 say "|"+"    ╬▐╣╩╒╧"
endif
f2=y/x
if x<>0
@ prow(),63 say "|"+str(f2,8,2)
else
@ prow(),63 say "|"+'       0'
endif
f3=((c-b)*j3*305/365-y)/((c-b)*j3*305/365)
f3=f3*100
@ prow(),76 say "|"+str(f3,8,2)+" úÑ |"
sele 1
l=l+1
skip
if .not. eof()
if l<=50
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------------|------------|------------|"
l=l+1
else
@ prow()+1,1 say ì
"=================================================================ì
========================"
ejec
t=t+1
skip
a1=.t.
exit
endif
else
@ prow()+1,1 say ì
"=================================================================ì
========================"
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
close database
dele file sb5.dbf
use sb index sb1
loca for sb32='w'
do while .not. eof()
repl sb32 with 'n'
cont
enddo
set device to screen
a1=.t.
retu