0 'CHRMAS.BA AUTHOR UNKNOWN 2 DIM A(50):FOR N=1 TO 10:FOR X=1 TO 310 STEP 5:PRINT@X,"Happy New Year ":NEXT X:FOR X=1 TO 1500:NEXT X:FOR X=308 TO 0 STEP -7:PRINT@X,"From Mod100":NEXT X:FOR X=1 TO 1000:NEXT X:CLS:PRINT CHR$(23):PRINT@59,"Merry";:PRINT@98,"Seasons"; 3 PRINT@65,"Christmas!";:PRINT@106,"Greetings!";:J=64:K=64:FOR S=1 TO 39 STEP 2:FOR Y=S TO 39:PSET(J,Y):PSET(K,Y):J=J-1:K=K+1:NEXT Y:J=64:K=64:NEXT S:FOR Y=40 TO 47:PSET(63,Y):PSET(64,Y):PSET(65,Y):NEXT Y:FOR X=50 TO 78:PSET(X,47):NEXT X 4 FOR X=53 TO 76:PSET(X,46):NEXT X:FOR X=54 TO 74:PSET(X,45):NEXT X:FOR D=1 TO 50:READ A(D):NEXT D:DATA 55,74,49,56,83,64,75,42,66,55,74:DATA 51,70,47,60,48,88,73,49,36,78,82:DATA 47,83,88,44,71,58,72,57,83,78,54:DATA 62,48,35,61,73,41,62,34,78,29,76 5 DATA 81,43,73,45,87,81:FOR F=1 TO 12:D=0:FOR Y=17 TO 39:D=D+1:K=A(D):PSET(K,Y):IF D=50 THEN Y=39 6 NEXT Y:D=0:FOR Y=20 TO 39:D=D+1:K=A(D):PSET(K,Y):NEXT Y:D=0:FOR Y=1 TO 20:D=D+1:K=A(D):PRESET(K,Y):PRESET(K,Y+10):NEXT Y:FOR Y=20 TO 40:D=D+1:K=A(D):PRESET(K,Y):IF D=20 THEN Y=40 7 NEXT Y:NEXT F:RESTORE:CLS:NEXT N