Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/QKCX.PRG

Text File | 1980-01-01 | 670 b | 33 lines

          *****╕÷╚╦╫╩┴╧▓Θ╤»(QKCX)*****
DO WHILE .T.
CLEAR
@ 0,24 SAY "*****╕÷╚╦╫╩┴╧▓Θ╤»*****"
@ 1,28 SAY "1. ╝≥└·"
@ 2,28 SAY "2. │╔╝¿"
@ 3,28 SAY "3. ╫ó▓ß"
@ 4,28 SAY "4. ╨▌,╕┤,╫¬,═ú╤º"
@ 5,28 SAY "5. ╣ñ╫≈╡Ñ╬╗▒Σ╢»"
@ 6,28 SAY "6. ╜▒,│═"
@ 7,28 SAY "7. ═╦│÷"
STORE " " TO LLO
@ 8,28 SAY "╟δ╩Σ╚δ╤í╘± (1--7)" GET LLO
READ
CLEAR
    DO CASE
       CASE LLO="1"
            DO CH1
       CASE LLO="2"
            DO CH2
       CASE LLO="3"
            DO CH3
       CASE LLO="4"
            DO CH4
       CASE LLO="5"
            DO CH5
       CASE LLO="6"
            DO CH6
       CASE LLO="7"
            RETURN
     ENDCASE
RETURN