Liren Large Software Subsidy 6/06.iso/b/b034/ck.img/S5/CK4.PRG

Text File | 1988-10-15 | 768 b | 25 lines

* CK4.PRG 213A ┤≥╙í
DO WHILE .T.
CLEAR
@1,20 SAY "=================================================="
@2,20 SAY "          ▓╓ ┐Γ ╣▄ └φ ┤≥ ╙í ▒¿ ▒φ ▓╦ ╡Ñ"
@3,20 SAY "       1---┐Γ┤µ├≈╧╕╟Θ┐÷▒φ   2---▒╛┤╬╚δ┐Γ╟Θ┐÷▒φ"
@4,20 SAY "       3---▒╛┤╬┴∞┴╧╟Θ┐÷▒φ   4---┐Γ┤µ═│╝╞╟Θ┐÷▒φ"
@5,20 SAY "       5---╖╡╗╪╓≈▓╦╡Ñ"
@6,20 SAY "=================================================="
WAIT '              ╟δ░┤╨≥║┼╜°╨╨╤í╘±ú█ú▒ú¡ú╡ú▌ ' TO STRING
CLEAR
DO CASE
    CASE STRING="1"
      DO CK41
    CASE STRING="2"
      DO CK42
    CASE STRING="3"
      DO CK43
    CASE STRING="4"
      DO CK44
    CASE STRING="5"
      RETURN
ENDCASE
ENDDO