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

Text File | 1979-12-31 | 2.2 KB | 114 lines

clear
set talk off
set device to screen
close database
use bj
set index to bj1
loca for b13='g'
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,12 say " "+str(b4,8,2)
@ l,20 say " "+str(b5,8,2)
@ l,29 say " "+b9
@ l,39 say " "+str(b6,8,2)
@ l,49 say " "+str(b7,8,2)
@ l,58 say " "+str(b8,8,2)
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='g'
a1=.t.
do while a1
@ prow()+1,40 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 "|"+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
@ prow(),72 say "|"+str(b6,8,2)
@ prow(),81 say "|"+str(b7,8,2)
@ prow(),90 say "|"+str(b8,8,2)+"|"
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
set cons on
retu