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

Text File | 1980-01-01 | 672 b | 33 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 1,10 say "*******************╥╟▒φ╣▄└φ*********************"
@ 2,10 say "   ú░ú«═╦│÷                    ú▒ú«╜¿╥╟▒φ╡╡░╕"
@ 3,10 say "   ú▓ú«╨ú▒φ╖┤└í╩Σ╚δ            ú│ú«╙ª╨ú║╦╡─▒φ"
@ 4,10 say "   ú┤ú«┤≥╙í╥╟▒φ╡╡░╕            ú╡ú«╨▐╕─╥╟▒φ╡╡░╕"
@ 5,10 say "   ú╢ú«╔╛│²╥╟▒φ╡╡░╕"
@ 6,10 say "************************************************"
wait "         ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):" to w
do case
case w='0'
retu
case w='5'
do yb7
case w='6'
do yb8
case w='1'
do yb1.prg
case w='2'
do yb2.prg
case w='3'
do yb3.prg
case w='4'
do yb4.prg
endcase
enddo a1
retu