10 DEFINT a-z:MODE 1:PEN 1:INK 1,11:PRINT TAB(9)"**** Christmas 2022 ****":PEN 3:INK 2,26:FOR b=0 TO 8:a$=STRING$(17-c*2,42):LOCATE 12+c,11+b:PRINT a$:WINDOW#2,16+b,16+b,7+c,24-c:PEN#2,3:PRINT#2,a$:c=c+1+2*(b>3):NEXT:WHILE 1:FOR z=0 TO 9
40 c(z)=12+RND*16:l(z)=7+RND*16:t(z)=TEST(-8+c(z)*16,409-l(z)*16):PEN 2*-(t(z)=3):LOCATE c(z),l(z):PRINT CHR$(&E3):NEXT:FOR z=0 TO 9:PEN 2*-(t(z)=3):LOCATE c(z),l(z):PRINT"+":NEXT:FOR z=0 TO 9:LOCATE c(z),l(z):PEN 3*-(t(z)>0):PRINT"*":NEXT:WEND