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

Text File | 1980-01-01 | 709 b | 36 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 "*****************************************************"
wait '         ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
do case
case w='0'
exit
case w='5'
do dq6
case w='6'
do dq7
case w='1'
do dq1.prg
case w='2'
do dq2.prg
case w='3'
do dq3.prg
case w='4'
do dq4.prg
endcase
enddo a1
a1=.t.
retu