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

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

clear
set talk off
set device to screen
close database
use yb
d=recno()
a1=.t.
do while a1
clear
@ 1,0 say "╥╟▒φ├√│╞           ╨═║┼           │÷│º║┼   ╛½╢╚╡╚╝╢   ì
╩╣╙├┤╦▒φ╡─╔Φ▒╕║┼  ╨ú▒φ╓▄╞┌"
l=2
goto d
do while .not. eof()
@ l,0 say " "+yb1
@ l,14 say " "+yb2
@ l,32 say " "+yb3
@ l,45 say " "+yb4
@ l,57 say " "+yb8
@ l,74 say " "+str(yb5,4)
l=l+1
skip
if .not. eof()
if l>=9
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
d=recno()
goto bott
skip
a1=.t.
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 print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
goto top
d=recno()
p=1
a1=.t.
do while a1
clear
@ 1,40 say "╥╟▒φ╡╡░╕"
@ 2,1 say "                        "
@ 3,70 say "╡┌"+str(p,2)+"╥│"
@ 4,1 say ì
"=================================================================ì
==========="
@ 5,1 say "|╥╟▒φ├√│╞    |╥╟▒φ╨═║┼        |│÷│º║┼   ì
|╛½╢╚╡╚╝╢|╩╣╙├┤╦▒φ╡─╔Φ▒╕║┼|╨ú▒φ╓▄╞┌|"
@ 6,1 say ì
"|------------|----------------|---------|--------|----------------|--ì
------|"
l=7
goto d
do while .not. eof()
@ prow()+1,1 say "|"+yb1
@ prow(),14 say "|"+yb2
@ prow(),31 say "|"+yb3
@ prow(),41 say "|"+yb4
@ prow(),50 say "|"+yb8
@ prow(),67 say "|"+str(yb5,4)+"    |"
skip
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
==========="
d=recno()
p=p+1
goto bott
skip
ejec
a1=.t.
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