10 SCREEN 8:FOR I=0 TO 255:COLOR,I:CLS
40 FOR J=0 TO 300:NEXT J,I