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

Text File | 1980-01-01 | 697 b | 35 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 "   ú┤ú«╨▐╕─╕≈╡Ñ╬╗╣▄╡└├▄╖Γ╡π    ú╡ú«╔╛│²╕≈╡Ñ╬╗╣▄╡└├▄╖Γ╡π"
@ 6,10 say "**********************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5):' to w
do case
case w='0'
retu
case w='4'
do xg9
case w='5'
do sc9
case w='6'
do xg22
case w='7'
do sc22
case w='1'
do xl1.prg
case w='2'
do xl2.prg
case w='3'
do xl3.prg
endcase
enddo
retu