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

Text File | 1979-12-31 | 1.6 KB | 91 lines

clear
set talk off
set devi to screen
use bj index bj1
a1=.t.
do while a1
clear
@ 1,1 say "▒╕╝■▒α║┼    ▒╕╝■├√│╞         ╣µ╕±               ╡Ñ╝█       ╩²┴┐  ì
    ┤µ┤ó╬╗╓├"
l=2
do while .not. eof()
@ l,1 say b1+"   "+b2+b3+" "+str(b4,8,2)+"    "+str(b5,8,2)+"    "+b9
l=l+1
skip
if .not. eof() .and. l>=9
wait "░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí" to w
if w='r'
clos data
retu
else
exit
endif
endif
enddo
if eof()
exit
endif
enddo
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
clos data
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
goto top
p=1
do while a1
@ prow()+1,30 say "▒╕╝■╫▄├≈╧╕╒╩"
@ prow()+1,1 say "         "
@ prow()+1,60 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
======="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |      ╣µ╕±      |  ì
╡Ñ╝█  |  ╩²┴┐  |┤µ┤ó╬╗╓├|"
@ prow()+1,1 say ì
"|---------|----------------|----------------|--------|--------|--ì
------|"
l=1
do while .not. eof()
@ prow()+1,1 say ì
"|"+b1+"|"+b2+"|"+b3+"|"+str(b4,8,2)+"|"+str(b5,8,2)+"|"+b9+"|"
skip
l=l+1
if .not. eof() .and. l>=50
@ prow()+1,1 say ì
"=================================================================ì
======="
ejec
@ prow()+1,1 say "      "
p=p+1
exit
else
@ prow()+1,1 say ì
"|---------|----------------|----------------|--------|--------|--ì
------|"
endif
else
@ prow()+1,1 say ì
"=================================================================ì
======="
endif
enddo
if eof()
exit
endif
enddo
set print on
? chr(13)
set print off
set device to screen
clos data
retu