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

Text File | 1980-01-01 | 727 b | 34 lines

clear
set talk off
set device to screen
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,7):' to w
do case
case w='0'
retu
case w='6'
do xg7
case w='7'
do sc7
case w='1'
do dx5.prg
case w='2'
do dx1.prg
case w='3'
do dx2.prg
case w='4'
do dx4.prg
case w='5'
do dx3.prg
endcase
enddo a1
retu