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

Text File | 1979-12-31 | 1.1 KB | 53 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 0,10 say "*********************╤╣┴ª╚▌╞≈╣▄└φ***********************"
@ 1,10 say " ú░ú«═╦│÷                     ú▒ú«╤╣┴ª╚▌╞≈╝∞╤Θ╝╞╗«"
@ 2,10 say " ú▓ú«╝∞╤Θ║≤╖┤└í╩Σ╚δ           ú│ú«▓╗║╧╕±╡─╤╣┴ª╚▌╞≈"
@ 3,10 say " ú┤ú«╤╣┴ª╚▌╞≈╡─╜¿╡╡           ú╡ú«┤≥╙í╕≈╡Ñ╬╗╤╣┴ª╚▌╞≈┐¿╞¼"
@ 4,10 say " ú╢ú«╥╤╡╜╩╣╙├─Ω╧▐╡─╚▌╞≈       ì
ú╖ú«┤≥╙í╡Ñ╠¿╤╣┴ª╚▌╞≈┐¿╞¼"
@ 5,10 say " ú╕ú«╙ª╝∞╤Θ╡─╤╣┴ª╚▌╞≈         ú╣ú«┤≥╙í╤╣┴ª╚▌╞≈╡╟╝╟▒φ"
@ 6,10 say " ú┴ú«╨▐╕─╤╣┴ª╚▌╞≈╡╡░╕         ú┬ú«╔╛│²╤╣┴ª╚▌╞≈╡╡░╕"
@ 7,10 say " ú├ú«╨▐╕─░▓╚½╫░╓├╡╡░╕         ú─ú«╔╛│²░▓╚½╫░╓├╡╡░╕"
@ 8,10 say "********************************************************"
wait "          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c,d):" to w
do case
case w='0'
retu
case w='a'
do xg3
case w='b'
do sc3
case w='c'
do xg4
case w='d'
do sc4
case w='1'
do yl1.prg
case w='2'
do yl2.prg
case w='3'
a1=.t.
do yl3.prg
case w='4'
a1=.t.
do yl4.prg
case w='5'
do yl5.prg
case w='6'
do yl6.prg
case w='7'
do yl7.prg
case w='8'
do yl8.prg
case w='9'
do yl9.prg
endcase
enddo a1
retu