40 SCREEN 1:COLOR 15,4,4
50 FOR I=0 TO 255:PRINT CHR$(I);:NEXT
60 FOR I=0 TO 255
70    FOR J=8192 TO 8223
80       VPOKE J,I
90       FOR K=1 TO 25:NEXT K
100   NEXT J
110 NEXT I