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

Text File | 1979-12-31 | 940 b | 46 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 0,10 say "**********************┐Γ┤µ╖╓╬÷************************"
@ 1,10 say " ú░ú«═╦│÷                     ú▒ú«│÷╚δ┐Γ┴≈╦«╒╩"
@ 2,10 say " ú▓ú«│¼┤ó▒╕╝■                 ú│ú«╢╠╚▒▒╕╝■"
@ 3,10 say " ú┤ú«╙ª╢⌐╗⌡╡─▒╕╝■             ú╡ú«▒╕╝■╢⌐╗⌡▓╬┐╝╡Ñ"
@ 4,10 say " ú╢ú«╓▄╫¬╞┌│ñ╡─▒╕╝■           ú╖ú«╕≈╣⌐╗⌡│º╠ß╣⌐╗⌡╘┤╡─▒╚└²"
@ 5,10 say " ú╕ú«═¼╓╓▒╕╝■╕≈╣⌐╗⌡│º╓«╡Ñ╝█   ú╣ú«╕≈▒╕╝■╚δ┐Γ╗π╫▄"
@ 6,10 say " ú┴ú«╕≈▒╕╝■│÷┐Γ╗π╫▄"
@ 7,10 say "******************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8):' to w
do case
case w='9'
c='r'
do fx9
case w='a'
c='c'
do fx9
case w='0'
retu
case w='1'
do fx1.prg
case w='2'
do fx2.prg
case w='3'
do fx3.prg
case w='4'
do fx4.prg
case w='5'
do fx5.prg
case w='6'
do fx6.prg
case w='7'
do fx7.prg
case w='8'
do fx8.prg
endcase
enddo a1
a1=.t.
retu