December 25

   10 GO SUB 5E3: GO SUB 4E3
 1100 FOR n=1 TO LEN d$-2 STEP 3
 1135 LET dur=VAL d$(n): LET pit=VAL d$(n+1 TO n+2)-10: BEEP dur/48,pit: GO SUB 2e3+(1e3 AND n/2=INT (n/2)): NEXT n
 1200 FOR n=1 TO LEN a$-2 STEP 3
 1235 LET dur=VAL a$(n): LET pit=VAL a$(n+1 TO n+2)-10: BEEP dur/48,pit: GO SUB 2e3+(1e3 AND n/2=INT (n/2)): NEXT n
 1300 FOR n=1 TO LEN c$-2 STEP 3
 1335 LET dur=VAL c$(n): LET pit=VAL c$(n+1 TO n+2)-10: BEEP dur/48,pit: GO SUB 2e3+(1e3 AND n/2=INT (n/2)): NEXT n
 1350 PAUSE 30: GO TO 1100
 2000 PRINT AT 6,0; INK 6;f$( TO 32)' INK 6;g$( TO 32): GO TO 3500
 3005 PRINT AT 6,0; INK 6;f$( TO 32)' INK 6;h$( TO 32)
 3500 LET f$=f$(2 TO LEN f$)+f$(1): LET g$=g$(2 TO LEN g$)+g$(1): LET h$=h$(2 TO LEN h$)+h$(1): RETURN 
 4005 BORDER 0: PAPER 0: INK 7: CLS : FOR N=1 TO 70
 4030 PLOT OVER 1; INK (3*RND+4);255*RND,50*RND+125: NEXT N
 4040 FOR f=1 TO 8 STEP 1.3: CIRCLE OVER 1;200,145,f: NEXT f
 4050 PLOT 0,48: DRAW 255,32: PLOT 0,112: DRAW 110,-51
 4060 PRINT AT 13,5; INK 2;"▐"
 4070 PRINT AT 14,5;"██████";AT 15,5;"██████";AT 16,5; INK 1;"▐████▌";AT 17,5;"▝▀▀▀▀▘"
 4090 PRINT AT 16,6; INK 6;"▄";AT 16,9;"▄";AT 17,9;"▀": PLOT OVER 1;78,39
 4120 PRINT INK 1;AT 9,8;".";AT 11,5;".";AT 12,5;"."
 4130 PRINT INK 1;AT 11,6;"S"; OVER 1;CHR$ 8;"s"
 4140 PRINT INK 1;AT 10,7;"O"; OVER 1;CHR$ 8;"s"
 4150 PRINT FLASH 1; INK 4; PAPER 2;AT 19,2;"                  ";AT 20,2;" MERRY  CHRISTMAS ";AT 21,2;"                  "
 4160 PRINT INK 4;AT 9,26;"█";AT 10,25;"█ █";AT 11,26;"██";AT 12,25;"█ ██";AT 13,26;"██";AT 14,24;"█ ███";AT 15,23;"█ ███ █";AT 16,22;"█   █   █"
 4170 FOR N=16 TO 18: PRINT INK 6;AT N,26;"█": NEXT N
 4200 PRINT AT 8,26;"_";AT 9,25;"_";AT 9,27;"_"
 4210 SOUND 0,34;1,0;2,26;3,0;4,12;5,0;6,0;7,0;8,16;9,16;10,16;12,8;13,8
 4220 PRINT AT 11,28;"_";AT 13,28;"_";AT 14,29;"_";AT 15,30;"_";AT 17,11;"_";AT 18,2;"__________________";AT 19,24;"______";AT 20,21;"____": RETURN 
 5000 RESTORE : FOR n=0 TO 87: READ k: POKE USR "a"+n,k: NEXT n
 5010 DATA 0,2,4,8,120,24,28,27,0,0,0,0,0,0,24,240,0,16,16,32,96,176,24,27,19,15,6,28,32,64,0,0
 5020 DATA 112,242,48,24,4,2,0,0,19,79,60,32,16,8,0,0,112,242,48,32,32,64,128,0,0,0,6,7,2,3,7,7
 5030 DATA 0,0,1,2,8,21,88,170,95,151,188,82,49,15,0,0,218,254,8,20,34,255,0,0
 5040 DIM E$(32): DATA .25,.5,1,2,4,6,8,12,16,20
 5050 LET F$=E$+"\a\b\c\b\a\b\c\b\h\i"
 5060 LET G$=E$+"\d\e\f\g\d\e\f\g\j\k"
 5070 LET H$=E$+"\f\g\d\e\f\g\d\e\j\k"
 5100 READ a,b,c,d,e,f,g,h,i,j
 5120 LET A$="d17d14d15e17f17d17d19d21e22g22d14d15e17e17e17d19d17e15g15e14e17e10e14e12g15e09i10"
 5130 LET b$="g79e79d79"
 5140 LET c$="g69e69e12e14e12e11e12e09g09e12e14e12e11e12h09e14e16e14e13e14e11e11e11d11d12e14e12e11e09e07e69f07d07d04d05e07f07d07d09d11e12g12d04d05e07e07e07d09d07e05g05e04e07e00e04e02g05e14j12h69"
 5150 LET d$=a$+b$
 5999 RETURN 
 6000 SAVE "dec25" LINE 1