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

Text File | 1988-10-08 | 636 b | 25 lines

* CK3.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 CK31
    CASE STRING="2"
      DO CK32
    CASE STRING="3"
      DO CK33
    CASE STRING="4"
      DO CK34
    CASE STRING="5"
      RETURN
ENDCASE
ENDDO