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

Text File | 1980-01-01 | 482 b | 24 lines

clear
set talk off
set device to screen
a1=.t.
do while a1
clear
@ 2,10 say "********************╔Φ▒╕║≤╞┌╣▄└φ******************"
@ 3,10 say "ú░ú«═╦│÷                      ú▒ú«╫¿╝╥╞└╣└"
@ 4,10 say "ú▓ú«╙Φ▓Γ╨═╛¡╝├╖╓╬÷            ú│ú«╩╡╝∙╨═╛¡╝├╖╓╬÷"
@ 5,10 say "**************************************************"
wait '           ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3):' to w
do case
case w='0'
retu
case w='1'
do hfx0
case w='2'
do jfx
case w='3'
do jc
endcase
enddo
retu