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

Text File | 1980-01-01 | 549 b | 29 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 ì
"**********************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2):' to w
do case
case w='0'
retu
case w='1'
do x1.prg
case w='2'
do x2.prg
case w='3'
do x3.prg
endcase
enddo a1
a1=.t.
retu