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

Text File | 1979-12-31 | 1.8 KB | 105 lines

clear
set talk off
set device to screen
close database
use bj
set index to bj1
loca for b13='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 " "+b1
@ l,11 say " "+b2
@ l,28 say " "+str(b4,8,2)
@ l,38 say " "+str(b5,8,2)
@ l,48 say " "+b9
l=l+1
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
a1=.t.
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 b13='b'
a1=.t.
do while a1
@ prow()+1,40 say "╙ª▒¿╖╧╡─▒╕╝■"
@ prow()+1,1 say "              "
@ prow()+1,70 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 "|"+b1
@ prow(),11 say "|"+b1
@ prow(),28 say "|"+b3
@ prow(),45 say "|"+str(b4,8,2)
@ prow(),54 say "|"+str(b5,8,2)
@ prow(),63 say "|"+b9+"|"
l=l+1
cont
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
a1=.t.
close database
retu