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

Text File | 1979-12-31 | 755 b | 35 lines

clear
set talk off
set device to screen
a1=.t.
do while a1
clear
@ 1,8 say "*************************╣▄╡└╣▄└φ****************************"
@ 2,8 say "      ú░ú«═╦│÷                       ú▒ú«┤≥╙í╣▄╡└╠¿╒╩"
@ 3,8 say "      ú▓ú«╙ª╕ⁿ╗╗╗≥╙ª╝∞▓Γ╡─╣▄╡└       ú│ú«╣▄╡└╝∞▓Γ╝╞╗«"
@ 4,8 say "      ú┤ú«╣▄╡└╕ⁿ╗╗╝╞╗«               ú╡ú«╝∞╨▐╖┤└í╩Σ╚δ"
@ 5,8 say "      ú╢ú«╨▐╕─╣▄╡└╡╡░╕               ú╖ú«╔╛│²╣▄╡└╡╡░╕"
@ 6,8 say "*************************************************************"
wait '       ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7):' to w
do case
case w='0'
retu
case w='1'
do gd2.prg
case w='2'
do gd1.prg
case w='3'
do gd3.prg
case w='4'
do gd4.prg
case w='5'
do gd5.prg
case w='6'
do xg6
case w='7'
do sc6
endcase
enddo
retu