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

Text File | 1980-01-01 | 642 b | 42 lines

clear
set talk off
set device to screen
close database
use yb
a1=.t.
do while a1
clear
c='         '
@ 4,10 say "╟δ╩Σ╚δ╥╟▒φ▒α║┼" get c
read
loca for yb11=c
if eof()
clear
w=' '
@ 4,10 say "╬▐┤╦╥╟▒φú¼╗╣╨▐╕─┬≡ú¿ú┘ú»ú╬ú⌐" get w
read
if w='y'
loop
else
exit
endif
endif
clear
@ 1,1 say "╥╟▒φ▒α║┼" get yb11
@ 2,1 say "╥╟▒φ├√│╞" get yb1
@ 3,1 say "╥╟▒φ╨═║┼" get yb2
@ 4,1 say "│÷│º║┼" get yb3
@ 5,1 say "╛½╢╚╡╚╝╢" get yb4
@ 6,1 say "╨ú▒φ╓▄╞┌" get yb5
@ 7,1 say "╩╣╙├┤╦▒φ╡─╔Φ▒╕▒α║┼" get yb6
@ 8,1 say "╩╣╙├╡Ñ╬╗▒α║┼" get yb10
read
wait '╗╣╨▐╕─┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
loop
endif
exit
enddo
clos data
retu