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

Text File | 1979-12-31 | 1.8 KB | 83 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 " ú├ú«╥╟▒φ╣▄└φ                     ú─ú«╫█║╧▒¿▒φ"
@ 8,10 say ì
"*************************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c,d):' to w
do case
case w='0'
retu
case w='1'
do gzl.prg
case w='2'
do sbgl.prg
case w='3'
do bfs.prg
case w='4'
do yl.prg
case w='5'
do dq.prg
case w='6'
do zj.prg
case w='7'
a1=.t.
do while a1
clear
@ 3,10 say "****************╚≤╗«,╨╣┬⌐╣▄└φ********************"
@ 4,10 say "  ú░ú«═╦│÷                 ú▒ú«╚≤╗¼╣▄└φ"
@ 5,10 say "  ú▓ú«╨╣┬⌐╣▄└φ"
@ 6,10 say "*************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2):' to w
do case
case w='0'
exit
case w='1'
do yh.prg
case w='2'
do xl.prg
endcase
enddo a1
case w='8'
do while a1
clear
@ 3,10 say "*****************╣▄╡└,╡τ╞°╧▀┬╖╣▄└φ*****************"
@ 4,10 say "  ú░ú«═╦│÷                   ú▒ú«╣▄╡└╣▄└φ"
@ 5,10 say "  ú▓ú«╡τ╞°╧▀┬╖╣▄└φ"
@ 6,10 say "***************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2):' to w
do case
case w='0'
exit
case w='1'
do gd.prg
case w='2'
do dx.prg
endcase
enddo a1
case w='9'
do gz.prg
case w='a'
do sg.prg
case w='b'
do bjh.prg
case w='c'
do yb.prg
case w='d'
do zhb.prg
endcase
enddo a1
retu