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

Text File | 1980-01-01 | 676 b | 33 lines

clear
set talk off
set device to screen
a1=.t.
do while a1
clear
@ 2,15 say "**********************╫¿╝╥╞└╣└***********************"
@ 3,15 say "  ú░ú«═╦│÷                ì
  ú▒ú«┤≥╙í╕≈╧ε╓╕▒Ω▒╚╓╪╚╖╢¿▒φ"
@ 4,15 say "  ú▓ú«┤≥╙í╕≈╧ε╨╘─▄╞└╖╓▒φ    ú│ú«╩Σ╚δ╕≈╧ε╨╘─▄▒╚╓╪╖╓"
@ 5,15 say "  ú┤ú«╕≈╧ε╨╘─▄▒╚╓╪╝╞╦π      ú╡ú«╩Σ╚δ╕≈╧ε╨╘─▄╡├╖╓"
@ 6,15 say "  ú╢ú«┤≥╙í╫¿╝╥╞└╖╓╜ß╣√"
@ 7,15 say "****************************************************"
wait '               ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):'  to w
do case
case w='0'
retu
case w='1'
do hfx1
case w='2'
do hfx2
case w='3'
do hfx6
case w='4'
do hfx3
case w='5'
do hfx5
case w='6'
do hfx4
endcase
enddo