Source Code
5 LET A=0
10 LET A$="%S%Y%N%C%H%R%O%-%S%E%T%T%E "
20 LET B$=" PRESENTS"
30 FOR N=31 TO 8 STEP -1
40 IF A>=LEN A$ THEN LET A=A-1
50 PRINT AT 10,N;A$(1 TO A+1);" "
60 LET A=A+1
70 NEXT N
80 LET A=0
85 LET B=1
90 FOR N=0 TO 16
95 IF B>=9 THEN LET B=9
100 IF N>=LEN B$ THEN LET A=A+1
110 PRINT AT 12,A;" ";B$(10-B TO 9)
120 LET B=B+1
130 NEXT N
140 PAUSE 100
150 CLS
152 FOR N=1 TO 21
158 PRINT AT N-1,11;" "
160 PRINT AT N,11;"NOTHING"
167 NEXT N
180 CLS
182 FOR N=20 TO 0 STEP -1
183 PRINT AT N+1,12;" "
184 PRINT AT N,12;"AT ALL."
188 NEXT N
189 CLS
190 PAUSE 100
200 RUN
210 SAVE "RIP-OF%F"
220 RUN
