254 Xmas Eve
810 PEN 3:LOCATE X+1,18:PRINT CHR$(143); CHR$(143);CHR$(143);CHR$(143):LOCATE X+1 ,20:PRINT CHR$(143);" ";CHR$(143);:PEN 1
820 PEN 3:LOCATE X+1,21:PRINT STRING$(4, 143);:LOCATE X+I,22:PRINT STR1NG$(4,143) ;:PEN 1
830 NEXT
840 FOR X=I60 TO 480 STEP.64:PLOT X,48,1 :DRAWR 0,78,1:NEXT:
850 FOR X=I12 TO 496 STEP 64:PLOT X,94,3 :DRAWR 30,0,3:NEXT
860 RETURN
870 RESTORE 880:FOR XX=360 TO 366:READ A A: POKE XX,AA:NEXT:RESTORE:RETURN
880 DATA 205,96,187,50,111,1,201