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

Text File | 1979-12-31 | 819 b | 42 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 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):' to w
do case
case w='0'
retu
case w='1'
do qd1.prg
case w='6'
do qd6
case w='2'
do qd2.prg
case w='3'
do qd3.prg
case w='4'
do qd4.prg
case w='5'
do qd5.prg
case w='7'
qq='1'
do qd7
case w='8'
qq='2'
do qd7
endcase
enddo a1
a1=.t.
retu