10 SCREEN 2:COLOR 1,15,4
20 FOR I=1 TO 1000:NEXT
30 COLOR 15,1,4:CLS
40 FOR I=1 TO 1000:NEXT:END