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

Text File | 1980-01-01 | 574 b | 28 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 3,10 say "*******************╩┬╣╩╣▄└φ********************"
@ 4,10 say "  ú░ú«═╦│÷                    ú▒ú«╩┬╣╩╡─╩Σ╚δ"
@ 5,10 say "  ú▓ú«╩┬╣╩═│╝╞▒¿▒φ            ú│ú«╩┬╣╩├≈╧╕▒φ"
@ 6,10 say "  ú┤ú«╡Ñ╠⌡╩┬╣╩╡─╨▐╕─,╔╛│²,▓Θ╤»²"
@ 7,10 say "***********************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to w
do case
case w='0'
retu
case w='1'
do sg1.prg
case w='2'
do sg2.prg
case w='3'
do sg3.prg
case w='4'
do sg4.prg
endcase
enddo a1
retu