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

Text File | 1979-12-31 | 2.0 KB | 104 lines

clear
set talk off
set device to screen
close database
use zc
a1=.t.
if eof() .and. bof()
clear
@ 4,26 say "╬▐╡╜╗⌡╔Φ▒╕,░┤╗╪│╡"
wait '  '
retu
endif
do while a1
clear
@ 1,1 say "║╧═¼║┼        ╔Φ▒╕├√│╞          ╡Ñ╝█    ╩²┴┐    ┤µ╖┼╡╪╡π        ╡╜╗⌡╚╒╞┌"
l=2
do while .not. eof()
@ l,1 say " "+zc1
@ l,13 say " "+zc2
@ l,30 say " "+str(zc5,8,2)
@ l,38 say " "+str(zc6,4)
@ l,46 say " "+zc7
@ l,64 say " "+zc8
l=l+1
skip
if .not. eof()
if l>=9
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
retu
endif
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
set cons on
goto top
p=1
a1=.t.
do while a1
@ prow()+1,45 say "╥╤╡╜╗⌡╡─╔Φ▒╕"
@ prow()+1,1 say "                  "
@ prow()+1,92 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
============================================="
@ prow()+1,1 say "|╢⌐╗⌡╡Ñ║┼ |╔Φ▒╕├√│╞        |╔Φ▒╕╨═║┼            |╣µ╕± ì
               |╡Ñ╝█    |╩²┴┐|┤µ╖┼╡╪╡π        |╡╜╗⌡╚╒╞┌|"
@ prow()+1,1 say ì
"|---------|----------------|--------------------|--------------------|---ì
-----|----|----------------|--------|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+zc1
@ prow(),11 say "|"+zc2
@ prow(),28 say "|"+zc4
@ prow(),49 say "|"+zc3
@ prow(),70 say "|"+str(zc5,8,2)
@ prow(),79 say "|"+str(zc6,4)
@ prow(),84 say "|"+zc7
@ prow(),101 say "|"+zc8+"|"
l=l+1
skip
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
a1=.t.
retu