Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 FAST
3 RAND USR 16514
4 POKE 16418,0
5 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
6 SLOW
10 LET A$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
20 LET B$=A$+"\ '\ '\ :% % \ '\ '\ :% % \ '\ '\ :% % \ '\ '\ :% % % %/% %O % "
30 LET C$=A$+"% \ .%-%- \ .%-%- \ .%-%- \ .%-%- % "
40 LET D$=A$+"% \: \: \: % % \ :\ :\ :% % \ :\ :\ :% % \ :\ :\ :% % \;;\;;\;;\;;% "
100 PRINT AT 10,0;B$( TO 32);AT 11,0;C$( TO 32);AT 12,0;D$( TO 32);AT 4,8;"MERRY CHRISTMAS";AT 18,8;"%H%A%P%P%Y% %N%E%W% %Y%E%A%R";AT 4,8;"%M%E%R%R%Y% %C%H%R%I%S%T%M%A%S";AT 18,8;"HAPPY NEW YEAR"
200 LET B$=B$(2 TO LEN B$)+B$(1)
210 LET C$=C$(2 TO LEN C$)+C$(1)
220 LET D$=D$(2 TO LEN D$)+D$(1)
300 GOTO 100
\n9998 SAVE "SEASONS GREETING%S"
\n9999 RUN
