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

Text File | 1979-12-31 | 714 b | 34 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 "  ú╢ú«╡Ñ╠⌡╝╟┬╝╡─╨▐╕─,╔╛│²,▓Θ╤»"
@ 7,10 say "******************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
do case
case w='0'
retu
case w='1'
do gz1.prg
case w='2'
do gz2.prg
case w='3'
do gz3.prg
case w='4'
do gz5.prg
case w='5'
do gz4.prg
case w='6'
do gz6.prg
endcase
enddo a1
retu