home *** CD-ROM | disk | FTP | other *** search
- set talk off
- do while .t.
- clear
- @ 2,5 say '****************************╛¡╝├╖╓╬÷*************************'
- @ 3,7 say ' ú░ú«═╦ │÷ ú▒ú«┤≥╙í╔Φ▒╕═╢╫╩╙Φ▓Γ┐╒▒φ'
- @ 4,7 say ' ú▓ú«╝╞╦π┤≥╙í╔Φ▒╕═╢╫╩╙Φ▓Γ▒φ ú│ú«┤≥╙í▓·╞╖│╔▒╛╙Φ▓Γ┐╒▒φ'
- @ 5,7 say ' ú┤ú«╝╞╦π┤≥╙í▓·╞╖│╔▒╛╙Φ▓Γ▒φ ú╡ú«┤≥╙í└√╚≤╙Φ▓Γ┐╒▒φ'
- @ 6,7 say ' ú╢ú«╝╞╦π┤≥╙í└√╚≤╙Φ▓Γ▒φ'
- @ 7,5 say '**************************************************************'
- wait ' ╟δ╩Σ╚δú¿0,1,2,3,4,5,6ú⌐:' to h
- do case
- case h='0'
- retu
- case h='1'
- do c:xfx1
- case h='2'
- do c:xfx2
- case h='3'
- do c:xfx3
- case h='4'
- do c:xfx4
- case h='5'
- do c:xfx5
- case h='6'
- do c:xfx6
- otherwise
- clear
- @ 3,24 say '==================='
- @ 4,24 say ' ╩Σ╚δ┤φ╬≤,╟δ─·╓╪└┤'
- @ 5,24 say '==================='
- wait ' '
- endcase
- enddo
- retu
-
-
