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

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

* CK2.PRG
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 CK21
    CASE STRING="2"
      DO CK22
    CASE STRING="3"
      DO CK23
    CASE STRING="4"
      DO CKJ1
    CASE STRING="5"
      RETURN
ENDCASE
ENDDO