50 PRINT"[147]"
60 PRINT:PRINT
100 PRINT:PRINT:PRINT"     ALSO, IHR LIEBEN KINDERCHEN,"
110 PRINT:PRINT:PRINT:PRINT:PRINT"HEUTE WILL EUCH EUER WEIHNACHTSMANN"
120 PRINT:PRINT"MAL EINE WUNDERSCHOENE ALTE GESCHICHTE"
130 PRINT:PRINT"ERZAEHLEN."
140 PRINT:PRINT"      PASST MAL AUF :"
150 FORN=1TO5000:NEXTN
10130 PRINT"[147]"
10131 GOSUB11000:GOSUB10135:GOSUB11000:GOTO10210
10135 FORI=1TO15:FORJ=0TO16:REM FLACKERN
10140 POKE53280,J:POKE53281,J
10145 NEXTJ:NEXTI
10146 M=M+1:IFM>5THEN30000
10150 RETURN
10210 PRINT"[147]"
10240 V=53248:M=0:REM BAUMSPRITE
10250 POKEV+21,28
10260 POKE2042,13:POKE2043,13:POKE2044,13
10270 M=M+1:IFM>37THEN30000
10280 FORN1=0TO62:READQ:POKE832+N1,Q:NEXTN1
10285 POKEV+23,12:POKEV+29,12
10300 FORX=0TO190
10310 POKEV+4,X
10315 POKEV+6,X
10316 POKEV+8,X
10320 POKEV+5,X
10325 POKEV+7,190-X
10326 POKEV+9,100
10350 NEXTX
10351 RESTORE
10352 GOSUB11000:GOSUB10135
10355 GOTO10270
10359 REM DATAS BAUM
10360 DATA0,0,0,0,0,0,0,16,0,0,56,0
10361 DATA0,40,0,0,124,0,0,186,0
10362 DATA0,238,0,1,251,0,1,191,0
10363 DATA3,239,128,3,125,128
10364 DATA7,187,192,6,238,192
10365 DATA15,255,224,14,219,96
10366 DATA31,255,240,27,238,176
10367 DATA0,56,0,0,56,0,0,56,0
11000 S=54272:REM CRASH
11010 FORL=0TO24:POKES+L,0:NEXT:POKES+0,240:POKES+1,6:POKES+5,2*16+13
11020 POKES+22,100:POKES+23,15*16+3:POKES+24,3*16+15:POKES+4,0:POKES+4,129
11050 RETURN
30000 PRINT"[147]"
30010 PRINT"       ALSO WISST IHR, KINDER,"
30020 PRINT:PRINT"                                       [146]"
30030 PRINT"        W E I H N A C H T E N          [146]"
30040 PRINT"                                       [146]"
30050 PRINT:PRINT:PRINT:PRINT"IST AUCH NICHT MEHR DAS RUHIGE FEST,"
30060 PRINT:PRINT"DAS ES EINMAL WAR....."
30070 PRINT:PRINT:PRINT"VIELLEICHT ERZAEHLE ICH EUCH"
30080 PRINT:PRINT"DIE ALTE GESCHICHTE DOCH LIEBER"
30090 PRINT:PRINT"    ZU  O S T E R N..."
30100 PRINT:PRINT:PRINT"  ALSO -  TSCHUESS :         BIS DANN !"
30105 FORG=1TO7000:NEXTG
30110 PRINT:PRINT:PRINT"LOAD";CHR$(34);"KIND + BAUM";CHR$(34);",8[145][145][145]"
30120 POKE631,13:POKE632,82:POKE633,85
30130 POKE634,78:POKE635,13:POKE198,5:END