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

Text File | 1980-01-01 | 2.7 KB | 154 lines

clear
set talk off
set device to screen
close database
sele 1
use bj index bj1
sele 2
use bh
sele 1
loca for b5<=b8
if eof()
clear
@ 4,15 say "╬▐╙ª╢⌐╗⌡╡─▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  ' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞             ╡▒╟░┐Γ┤µ ╬┤╜╗╢⌐╗⌡  ╢⌐╗⌡╡π  ╛¡╝├╢⌐╗⌡ ì
╙ª╢⌐╗⌡┴┐ "
l=2
do while .not. eof()
a=b1
sele 2
sum (h7-h10) to x for h1=a
sele 1
b=b5-b8+x
if b<=0
eoq=(2*b12*b10/b11)**0.5
t=b8*365/b12
b=b+eoq
c=eoq
do while b<=0
b=b+eoq
c=c+eoq
enddo
sele 1
@ l,1 say " "+b1
@ l,11 say " "+b2
@ l,28 say " "+str(b5,8,2)
@ l,37 say " "+str(x,8,2)
@ l,47 say " "+str(b8,8,2)
@ l,57 say " "+str(eoq,8,2)
@ l,67 say " "+str(c,8,2)
l=l+1
endif
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝■╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
sele 1
loca for b5<=b8
p=1
a1=.t.
do while a1
@ prow()+1,40 say "▒╕╝■╢⌐╗⌡▓╬┐╝╡Ñ"
@ prow()+1,1 say "                     "
@ prow()+1,100 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
============================================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |╣µ╕±╨═║┼        ì
|╡▒╟░┐Γ┤µ|╬┤╜╗╢⌐╗⌡|╢⌐╗⌡╡π  ì
|╫▄╞╜║Γ|╛¡╝├╢⌐╗⌡┴┐|╙ª╢⌐╗⌡┴┐|─▄╬¼│╓╠∞╩²|"
@ prow()+1,1 say ì
"|---------|----------------|----------------|--------|--------|--ì
------|------|----------|--------|----------|"
l=6
do while .not. eof()
a=b1
sele 2
sum (h7-h10) to x for h1=a
sele 1
b=b5-b8+x
t1=1
if b<=0
eoq=(2*b12*b10/b11)**0.5
t=365*b5/b12
b=b+eoq
c=eoq
do while b<=0
b=b+eoq
c=c+eoq
enddo
t1=2
sele 1
@ prow()+1,1 say "|"+b1
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+b3
@ prow(),45 say "|"+str(b5,8)
@ prow(),54 say "|"+str(x,8)
@ prow(),63 say "|"+str(b8,8)
e=b5-b8+x
@ prow(),72 say "|"+str(e,6)
@ prow(),79 say "|"+str(eoq,8)
@ prow(),90 say "|"+str(c,8)
@ prow(),99 say "|"+str(t,10)+"|"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
============================================"
p=p+1
ejec
exit
else
@ prow()+1,1 say ì
"|---------|----------------|----------------|--------|--------|--ì
------|------|----------|--------|----------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
============================================="
a1=.f.
endif
endif
if t1=1
cont
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
close database
a1=.t.
set cons on
retu