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

Text File | 1980-01-01 | 1.9 KB | 90 lines

clear
set talk off
set device to screen
close database
use ygz
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict '99.99'
read
set exac off
loca for g1<=a
a1=.t.
do while a1
clear
@ 1,1 say "─Ω.╘┬    ╡▒╘┬╔Φ▒╕╩╡┐¬╩▒╝Σ    ╘┬╣╩╒╧═ú╗·╩▒╝Σ    ì
    ╣╩╒╧═ú╗·┬╩"
l=2
do while .not. eof()
@ l,1 say " "+g1
@ l,10 say " "+str(g6,8,1)
@ l,30 say " "+str(g3,8,1)
e=g3/(g3+g6)*100
@ l,50 say " "+str(e,8,2)
cont
l=l+1
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 "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
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 ì
"|----------|----------------|--------------|------------------|"
loca for g1=a
do while .not. eof()
@ prow()+1,1 say "|"+g1
@ prow(),12 say "|"+str(g6,8,1)
@ prow(),29 say "|"+str(g3,8,1)
e=g3/(g3+g6)*100
@ prow(),44 say "|"+str(e,8,2)+"          |"
cont
if .not. eof()
@ prow()+1,1 say ì
"|----------|----------------|--------------|------------------|"
else
sum g3,g6 to x,y for g1=a
z=x*100/(x+y)
@ prow()+1,1 say ì
"|----------|----------------|--------------|------------------|"
@ prow()+1,1 say "|║╧      ╝╞|    "+str(y,8,2)+"    |"+"   ì
"+str(x,8,2)+"   |      "+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
close database
a1=.t.
set cons on
set exac on
retu