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

Text File | 1980-01-01 | 430 b | 22 lines

        *****▓Θ╤»,═│╝╞,┴╨▒φ(CSD)*****
CLEAR
@ 1,20 SAY "******* ▓Θ╤»,═│╝╞,┤≥╙í▒φ╕± *******"
@ 3,28 SAY "1. ╫╩┴╧═│╝╞"
@ 4,28 SAY "2. ╕÷╚╦╟Θ┐÷▓Θ╤»"
@ 5,28 SAY "3. ┤≥╙í▒φ╕±"
@ 6,28 SAY "4. ═╦│÷"
STORE " " TO LLO
@ 8,28 SAY "╟δ╩Σ╚δ╤í╘±(1--4)" GET LLO
READ
CLEAR
DO CASE
   CASE LLO="1"
         DO TOJI
    CASE LLO="2"
         DO QKCX
    CASE LLO="3"
          DO DYBB
     CASE LLO="4"
ENDCASE LLO
RETURN