NEW

REM ROD'S COLORS

10  GOTO 300

100 FOR W = 3 TO 50
110   FOR I = 1 TO 19
120     FOR J = 0 TO 19
130       K  = I + J
140       MI = 40 - I
150       MK = 40 - K
160       COLOR = (J * 3) / (I + 3) + I * W / 12
170       PLOT I,  K 
180       PLOT K,  I 
190       PLOT MI, MK 
200       PLOT MK, MI 
210       PLOT K,  MI 
220       PLOT MI, K 
230       PLOT I,  MK 
240       PLOT MK, I 
250       IF PEEK(-16384) > 127 THEN POKE -16368, 0 : RETURN
260     NEXT
270   NEXT
280 NEXT
290 GOTO 100

300 GR : HOME
310 HTAB 11 : VTAB 22
320 PRINT "PRESS ANY KEY TO EXIT."
330 GOSUB 100
340 TEXT : HOME
350 PRINT "THAT'S ALL FOLKS!"
360 END

RUN