Rip-Off

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