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

Text File | 1979-12-31 | 1.9 KB | 107 lines

clear
set talk off
set device to screen
close database
sele 1
use gh index gh1
sele 2
use cr
sum l3*l4 to y for l10='r'
a2=.t.
do while a2
clear
@ 1,0 say "╣⌐╗⌡╡Ñ╬╗├√│╞                      ╣⌐╗⌡╜≡╢ε           ╫▄╜≡╢ε            ░┘╖╓▒╚ %"
l=2
sele 1
do while .not. eof()
a=gh1
b=gh2
sele 2
sum l3*l4 to x for l10='r' .and. l6=a
@ l,0 say " "+b
@ l,31 say " "+str(x,10,2)
@ l,50 say " "+str(y,8,2)
z=x*100/y
@ l,70 say " "+str(z,7,2)
sele 1
skip
l=l+1
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°'
exit
endif
else
a2=.f.
endif
enddo
enddo a2
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
p=1
sele 1
goto top
a1=.t.
do while a1
@ prow()+1,20 say "╕≈╡Ñ╬╗╠ß╣⌐╗⌡╘┤╡─░┘╖╓╩²"
@ prow()+1,1 say "              "
@ prow()+1,55 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"================================================================"
@ prow()+1,1 say "|╣⌐╗⌡╡Ñ╬╗├√│╞                  |╣⌐╗⌡╜≡╢ε  |╫▄╜≡╢ε    |░┘╖╓▒╚ % ì
|"
@ prow()+1,1 say ì
"|------------------------------|----------|----------|---------|"
l=6
do while .not. eof()
a=gh1
b=gh2
sele 2
sum l3*l4 to x for l10='r' .and. l6=a
@ prow()+1,1 say "|"+b
@ prow(),32 say "|"+str(x,10,2)
@ prow(),43 say "|"+str(y,10,2)
c=x*100/y
@ prow(),54 say "|"+str(c,8,2)+" |"
sele 1
skip
l=l+1
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
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
close database
set cons on
retu