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

Text File | 1980-01-01 | 2.4 KB | 141 lines

clear
set talk off
set device to screen
close database
sele 1
use cr
sele 2
use bj index bj1
sele 3
use gh index gh1
clear
a='         '
@ 4,10 say "╟δ╩Σ╚δ▒╕╝■▒α║┼" get a
read
sele 1
loca for l1=a .and. l10='r'
if eof()
clear
@ 4,20 say "╬▐┤╦▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait ' ' to w
retu
endif
a2=.t.
do while a2
clear
@ 1,1 say "▒╕╝■▒α║┼   ▒╕╝■├√│╞        ╣⌐╗⌡╚╒╞┌   ╣⌐╗⌡╡Ñ╬╗         ì
           ╡Ñ╝█"
l=2
do while .not. eof()
@ l,1 say " "+a
c=dtoc(l2)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
sele 2
seek a
@ l,11 say " "+b2
sele 1
@ l,28 say " "+c
s=l6
sele 3
seek s
@ l,38 say " "+gh2
endif
sele 1
@ l,64 say " "+str(l4,8,2)
cont
l=l+1
if .not. eof()
if l>=9
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
loca for l10='r' .and. l1=a
a1=.t.
do while a1
@ prow()+1,25 say "═¼╓╓▒╕╝■▓╗═¼╣⌐╗⌡│º╓«╡Ñ╝█"
@ prow()+1,1 say "            "
@ prow()+1,80 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
========================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        ì
|╜°╗⌡╚╒╞┌|╣⌐╙ª╡Ñ╬╗▒α║┼|╣⌐╙ª╡Ñ╬╗├√│╞ ì
                 |╡Ñ╝█    |"
@ prow()+1,1 say ì
"|---------|----------------|--------|------------|---------------ì
--------------ì
-|--------|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+a
sele 2
seek a
@ prow(),11 say "|"+b2
sele 1
c=dtoc(l2)
j1=substr(c,7,2)
j2=substr(c,1,2)
j3=substr(c,4,2)
c=j1+'.'+j2+'.'+j3
@ prow(),28 say "|"+c
@ prow(),37 say "|"+l6
c=l6
sele 3
seek c
@ prow(),50 say "|"+gh2
sele 1
@ prow(),81 say "|"+str(l4,8,2)+"|"
cont
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
close database
a1=.t.
set cons on
retu