COLOR 12, 0: CLS

RESTORE xmastree
RANDOMIZE TIMER

PRINT
DO
   COLOR 0, 0: PRINT : PRINT SPACE$(8);
   READ aline$: aline$ = RTRIM$(aline$)
   IF aline$ = "*END*" THEN EXIT DO
   FOR char = 1 TO LEN(aline$)
      ch$ = MID$(aline$, char, 1)
      SELECT CASE ch$
         CASE "/", "\": COLOR 0, 2: PRINT " ";
         CASE "_", ".": COLOR 0, 2: PRINT " ";
         CASE "+": COLOR INT(RND * 13) + 18, 2: PRINT "o";
         CASE " ": COLOR 12, 0: PRINT ch$;
         CASE "Ý": COLOR 6, 0: PRINT "²";
         CASE "#": COLOR 4, 0: PRINT "Û";
         CASE ELSE: COLOR INT(RND * 6) + 10, 0: PRINT ch$;
      END SELECT
   NEXT
LOOP
SLEEP 2

COLOR 15, 0

infiniteloop:
SLEEP 10
GOTO infiniteloop

xmastree:


DATA"   Ý        PPPP  L     EEEEE   A    SSS  EEEEE       Ý
DATA"   Ý        P   P L     E      A A  S   S E           Ý
DATA"   Ý        P   P L     E     A   A S     E           Ý
DATA"   Ý        PPPP  L     EEEE  AAAAA  SSS  EEE         Ý
DATA"   Ý        P     L     E     A   A     S E           Ý
DATA"   Ý        P     L     E     A   A S   S E           Ý
DATA"   Ý        P     LLLLL EEEEE A   A  SSS  EEEEE       Ý
DATA"   Ý                                                  Ý
DATA"   Ý         SSS  W W W IIIII TTTTT  CCC  H   H       Ý
DATA"   Ý        S   S W W W   I     T   C   C H   H       Ý
DATA"   Ý        S     W W W   I     T   C     H   H       Ý
DATA"   Ý         SSS  W W W   I     T   C     HHHHH       Ý
DATA"   Ý            S W W W   I     T   C     H   H       Ý
DATA"   Ý        S   S W W W   I     T   C   C H   H       Ý
DATA"   Ý         SSS   WWW  IIIII   T    CCC  H   H       Ý
DATA"   Ý                                                  Ý
DATA"   Ý                  OOO  FFFFF FFFFF !              Ý
DATA"   Ý                 O   O F     F     !              Ý
DATA"   Ý                 O   O F     F     !              Ý
DATA"   Ý                 O   O FFFF  FFFF  !              Ý
DATA"   Ý                 O   O F     F     !              Ý
DATA"   Ý                 O   O F     F                    Ý
DATA"   Ý                  OOO  F     F     !              Ý
DATA"*END*