4 CLS
5 WAIT 300
6 LET A,0
7 LET B,1
10 T=30
20 LED 0
30 WAIT T
45 LED 1
46 LET A,A+1
50 WAIT T
51 IF B=1 THEN GOTO 52 ELSE GOTO 70
52 IF A>14 THEN GOTO 53 ELSE GOTO 20
53 PRINT "011Merry ";CHR$(13);CHR$(10)
54 LET B,2
70 IF B=2 THEN GOTO 71
71 IF A>23 THEN GOTO 72 ELSE GOTO 20
72 PRINT "011Christmas!";CHR$(13);CHR$(10)
73 LET B,1
74 LET A,0
80 GOTO 20
90 END