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

Text File | 1979-12-31 | 2.4 KB | 157 lines

clear
set talk off
set device to screen
set exac on
close database
sele 1
use bs
sele 2
use bj
set index to bj1
sele 3
use sb
set index to sb1
a='         '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
read
seek a
b=sb4
sele 1
loca for s1=b
if eof()
clear
@ 4,10 say "┤╦╔Φ▒╕╬▐▒╕╝■"
@ 7,0 clear
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞       ╫░╘┌┤╦╔Φ▒╕╔╧╡─╕÷╩²  ì
╩╡╝╩┐Γ┤µ┴┐  ▒╕╝■╨╘╓╩"
l=2
do while .not. eof()
@ l,1 say " "+s2
c=s3
d=s4
e=s2
sele 2
seek e
@ l,11 say " "+b2
@ l,28 say " "+str(c,8,2)
@ l,48 say " "+str(b5,8,2)
do case
case d='y'
c='╥╫╦≡╝■'
case d='yg'
c='╥╫╦≡,╣╪╝ⁿ╝■'
case d='g'
c='╣╪╝ⁿ╝■'
otherwise
c='╥╗░π╝■'
endcase
@ l,58 say " "+c
l=l+1
sele 1
cont
if .not. eof()
if l>=9
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼░┤╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
if w='r' .or. w='R'
clos data
retu
endif
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
p=1
loca for s1=b
a1=.t.
do while a1
clear
@ prow()+1,30 say " "+a+"╔Φ▒╕▒╕╝■╟σ╡Ñ"
@ prow()+1,1 say "               "
@ prow()+1,70 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
=============="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        ì
|╫░╘┌┤╦╔Φ▒╕╔╧╡─╕÷╩²|╩╡╝╩┐Γ┤µ┴┐|▒╕╝■╡─╨╘╓╩ |┤µ┤ó╬╗╓├|"
@ prow()+1,1 say ì
"|---------|----------------|------------------|----------|-------ì
----|--------|"
do while .not. eof()
@ prow()+1,1 say "|"+s2
c=s3
d=s4
e=s2
sele 2
seek e
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+str(c,8,2)
@ prow(),47 say "|"+str(b5,8,2)
do case
case d='g'
c='╣╪╝ⁿ╝■'
case d='y'
c='╥╫╦≡╝■'
case d='yg'
c='╣╪╝ⁿ,╥╫╦≡╝■'
otherwise
c='╥╗░π╝■'
endcase
@ prow(),58 say "|"+c
@ prow(),70 say "|"+b9+"|"
l=l+1
sele 1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
=============="
ejec
p=p+1
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