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

Text File | 1980-01-01 | 502 b | 24 lines

        *****╫ó▓ß╡╟╝╟(ZHUCE)*****
STOR .T. TO T1
DO WHILE T1
   CLEAR
   @ 1,20 SAY "********╤º╔·╫ó▓ß╤í╘±▓╦╡Ñ********"
   @ 3,26 SAY "0____═╦│÷"
   @ 4,26 SAY "1____╨┬╔·╫ó▓ß"
   @ 5,26 SAY "2____╛╔╔·╫ó▓ß"
   STORE 0 TO LLO
   @ 8,16 SAY "╟δ╤í╘±╣ª─▄╝ⁿ╩Σ╚δ (0,1,2)" GET LLO RANG 0,2
   READ
   DO CASE
      CASE LLO=0
           CLEAR
           @ 8,15 SAY "╫ó▓ß╜ß╩°"
           RETURN
       CASE LLO=1
            DO XIN
       CASE LLO=2
            DO JIU
    ENDCASE
ENDDO