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

Text File | 1980-01-01 | 2.0 KB | 104 lines

clear
set talk off
set device to screen
close database
sele 1
use bjh
sele 2
use ygz
clear
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict '99.99'
read
clear
sele 1
set exac off
count to x
count to y for bjh14='0'
sele 2
loca for g1=a
if eof()
appe blank
repl g1 with a,g8 with x,g9 with y
else
repl g8 with x,g9 with y
endif
loca for g1<=a
a1=.t.
do while a1
clear
@ 1,6 say "─Ω.╘┬    ╓≈╥¬╔Φ▒╕╫▄╠¿╩²       ═Ω║├╠¿╩²       ì
╩╡╝╩═Ω║├┬╩"
l=2
do while .not. eof()
@ l,6 say " "+g1
@ l,15 say " "+str(g8,5)
@ l,35 say " "+str(g9,5)
e=g9/g8*100
@ l,50 say " "+str(e,8,2)
l=l+1
cont
if .not. eof()
if l>=8
wait '      ░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo a1
wait '      ┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
a1=.t.
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
loca for g1<=a
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
@ prow()+1,20 say "╓≈╥¬╔Φ▒╕═Ω║├┬╩"
@ prow()+1,1 say "                      "
@ prow()+1,1 say ì
"============================================================"
@ prow()+1,1 say "|   ─Ω.╘┬   ì
|╡▒╘┬╓≈╥¬╔Φ▒╕╫▄╠¿╩²|╘┬═Ω║├╔Φ▒╕╫▄╠¿╩²|  ═Ω║├┬╩  |"
@ prow()+1,1 say ì
"|-----------|------------------|----------------|----------|"
do while .not. eof()
@ prow()+1,1 say "|"+g1
@ prow(),13 say "|"+str(g8,5)
@ prow(),32 say "|"+str(g9,5)
e=g9/g8*100
@ prow(),49 say "|"+str(e,8,2)+"  |"
cont
if .not. eof()
@ prow()+1,1 say ì
"|-----------|------------------|----------------|----------|"
else
sum g9,g8 to x,y for g1<=a
z=x*100/y
@ prow()+1,1 say ì
"|-----------|------------------|----------------|----------|"
@ prow()+1,1 say "|║╧       ╝╞|     "+str(y,8)+"     |    ì
"+str(x,8)+"    |  "+str(z,6,2)+"  |"
@ prow()+1,1 say ì
"============================================================"
endif
enddo
@ prow()+1,1 say "╓≈╥¬╔Φ▒╕═Ω║├┬╩ú╜═Ω║├╔Φ▒╕╠¿╩²ú»╓≈╥¬╔Φ▒╕╫▄╠¿╩²"
set print on
? chr(13)
set print off
set device to screen
a1=.t.
close database
set cons on
retu