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

Text File | 1980-01-01 | 714 b | 31 lines

set talk off
do while .t.
clear
@ 2,5 say '****************************╫¿╝╥╞└╣└*************************'
@ 3,7 say '     ú░ú«═╦    │÷                 ú▒ú«┤≥╙í╞└╖╓┐╒▒φ'
@ 4,7 say '     ú▓ú«┤≥╙í╕≈╧ε╨╘─▄╞└╖╓┐╒▒φ     ú│ú«╝╞╦π┤≥╙í╕≈╧ε╨╘─▄▒╚╓╪▒φ'
@ 5,7 say '     ú┤ú«╝╞╦π┤≥╙í╫¿╝╥╞└╖╓╜ß╣√▒φ '
@ 6,5 say '**************************************************************'
wait '       ╟δ╩Σ╚δú¿0,1,2,3,4,5,6ú⌐:' to h
do case
case h='0'
     retu
case h='1'
     do c:xzp1
case h='2'
     do c:xzp2
case h='3'
     do c:xzp3
case h='4'
     do c:xzp4
otherwise
clear
@ 3,24 say '==================='
@ 4,24 say ' ╩Σ╚δ┤φ╬≤,╟δ─·╓╪└┤'
@ 5,24 say '==================='
wait  ' '
endcase
enddo
retu