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

Text File | 1979-12-31 | 490 b | 24 lines

clear
set talk off
set device to screen
a2=.t.
do while a2
clear
@ 3,10 say ì
"**********************╬≈╒√│º╔Φ▒╕╣▄└φ╫┤┐÷*********************"
@ 4,10 say " ú░ú«═╦│÷                         ú▒ú«▒╛─Ω╢╚╔Φ▒╕╣▄└φ╟Θ┐÷"
@ 5,10 say " ú▓ú«└·─Ω╔Φ▒╕╣▄└φ╟Θ┐÷"
@ 6,10 say ì
"*************************************************************"
wait '           ╟δ╤í╘±╩Σ╚δ║┼(0,1,2):' to qq
do case
case qq='0'
exit
case qq='1'
do tx3.prg
case qq='2'
do tx4.prg
endcase
enddo a2
retu