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

Text File | 1980-01-01 | 719 b | 35 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 1,10 say "*******************▒╕╝■╣▄└φ***********************"
@ 2,10 say " ú░ú«═╦│÷                      ú▒ú«│÷╚δ┐Γ╣▄└φ"
@ 3,10 say " ú▓ú«╕≈╓╓╟σ╡Ñ                  ú│ú«┐Γ┤µ╖╓╬÷"
@ 4,10 say " ú┤ú«╕≈╓╓▒¿▒φ                  ú╡ú«║╧═¼╣▄└φ"
@ 5,10 say " ú╢ú«▒╕╝■╡─┼╠┐Γ╙δ▒¿╖╧╩Σ╚δ  "
@ 6,10 say "**************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
do case
case w='0'
clos data
retu
case w='1'
do cr.prg
case w='2'
do qd.prg
case w='3'
do fx.prg
case w='4'
do bb.prg
case w='5'
do bh.prg
case w='6'
do ph.prg
endcase
enddo a1
a1=.t.
retu