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

Text File | 1979-12-31 | 2.5 KB | 112 lines

clear
set talk off
set device to screen
close database
sele 1
use ygz
sele 2
use ysg index ysg1
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict 'xx.xx'
read
sele 1
loca for g1<=a
a1=.t.
do while a1
clear
@ 1,0 say "─Ω,╘┬  ╓≈╥¬╔Φ▒╕╠¿╩²  ╝╞╗«╙Φ╨▐═ú╗·╩▒╝Σ  ì
╣╩╒╧,╩┬╣╩═ú╗·╩▒╝Σ  ╫▄═ú╗·╩▒╝Σ  ╨º└√╙├┬╩"
l=2
do while .not. eof()
@ l,0 say " "+g1
@ l,6 say " "+str(g5,5)
@ l,20 say " "+str(g4,8,1)
c=g1
sele 2
seek c
e=y3
sele 1
e=e+g3
@ l,38 say " "+str(e,8,1)
e=e+g4
@ l,58 say " "+str(e,8,1)
e=g6/g7*100
@ l,68 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 "|─Ω.╘┬|        ì
|----------------------------------|        |            |"
@ prow()+1,1 say "|     |╠¿    ì
╩²|╝╞╗«╙Φ╨▐═ú╗·╩▒╝Σ|╩┬╣╩,╣╩╒╧═ú╗·╩▒╝Σ|╩▒    ╝Σ|╙├        ┬╩|"
@ prow()+1,1 say ì
"|-----|--------|----------------|-----------------|--------|---ì
---------|"
sele 1
loca for g1<=a
do while .not. eof()
@ prow()+1,1 say "|"+g1
@ prow(),7 say "|"+str(g5,5)
@ prow(),16 say "|"+str(g4,8,1)
c=g1
sele 2
loca for y1=c
e=y3
sele 1
e=e+g3
@ prow(),33 say "|"+str(e,8,1)
e=e+g4
@ prow(),51 say "|"+str(e,8,1)
e=g6/g7*100
@ prow(),60 say "|"+str(e,6,2)+"      |"
cont
if .not. eof()
@ prow()+1,1 say ì
"|-----|--------|----------------|-----------------|--------|-ì
-----------|"
else
@ prow()+1,1 say ì
"=================================================================ì
========"
endif
enddo
@ prow()+1,1 say ì
"╔Φ▒╕╓╞╢╚╠¿╩▒└√╙├┬╩ú╜╓≈╥¬╔Φ▒╕╘┬╩╡┐¬╠¿╩▒ú»╚╒└·╝╞╗«╘╦╫¬╠¿╩▒"
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
retu