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

Text File | 1988-10-08 | 1.2 KB | 34 lines

* CK1.PRG ╩Σ╚δ╩²╛▌╫▄▓╦╡Ñ
CLEAR
? CHR(7)+"             ╩Σ ╚δ ╩² ╛▌ ╓« ╟░ ╟δ ╫╨ ╧╕ ╘─ ╢┴ ╙╨ ╣╪ ╦╡ ├≈ ╩Θ"
? " "
? "         ╩Σ╚δ╩²╛▌░ⁿ└¿┴╜╧ε╝┤╚δ┐Γ╩²╛▌║═│÷┐Γ╩²╛▌íú╘┌╩Σ╚δ╚δ┐Γ╩²╛▌╩▒╦∙╙╨╡─▓·╞╖"
? "     ╢╝╨Φ╥¬▒α╔╧┤·║┼ú¼╝┤╩╣╩╟▓·╞╖╧α═¼ú¼╓╗╥¬╩Σ╚δ╧ε─┐╓╨╙╨╥╗╧ε▓╗═¼╢╝▒╪╨δ╩╣╙├▓╗"
? "     ═¼┤·║┼ú¼╝┤┐╔╘┌╘¡┤·║┼║≤╝╙╥╗╕÷╫╘╢¿▒Ω╝╟! ╩Σ╚δ╚╒╞┌╦│╨≥╩╟╘┬ú»╚╒ú»─Ωú¼└²╚τ:"
? "     ú░ú▓ú»ú░ú╡ú»ú╕ú╕ú¼ú▒ú▒ú»ú▓ú░ú»ú╕ú╕íú╠ε┴∞┴╧╡Ñ╩▒ú¼╚⌠═¼┤·║┼▓·╞╖╥╗╠∞┴∞╢α"
? "     ┤╬ú¼╓╗╫╝╠ε╥╗┤╬╩²┴┐ú¼╟╥╬¬╕≈┤╬╓«║═íú"
? "         ╝╞╦π╗·╡─╨º┬╩╙δ─π╡─╩Σ╚δ╦┘╢╚│╔╖┤▒╚ú¼╩Σ╚δ╡─╘╜┐∞┤φ╬≤╛═╘╜╢α! "
WAIT "     ╟δ─π╫╨╧╕▓┘╫≈├┐╥╗▓╜╓Φ !"
DO WHILE .T.
CLEAR
@1,20 SAY "=================================================="
@2,20 SAY "          ▓╓┐Γ╣▄└φ╩Σ╚δ╩²╛▌╫▄▓╦╡Ñ"
@3,20 SAY "            1---▒╛  ┤╬  ╚δ  ┐Γ"
@4,20 SAY "            2---▒╛  ┤╬  ┴∞  ┴╧÷"
@5,20 SAY "            3---╩Σ╚δ═Ω▒╧╩²╛▌┤ª└φ"
@6,20 SAY "            4---╖╡ ╗╪ ╓≈ ▓╦ ╡Ñ"
@7,20 SAY "=================================================="
WAIT '              ╟δ░┤╨≥║┼╜°╨╨╤í╘±ú█ú▒ú¡ú┤ú▌ ' TO STRING
CLEAR
DO CASE
    CASE STRING="1"
      DO CK11
    CASE STRING="2"
      DO CK12
    CASE STRING="3"
      DO CKJ1
    CASE STRING="4"
      RETURN
ENDCASE
ENDDO