[SAMPLE16] SAMPLE

10 REM SAMPLE16
100 SCREEN 3,0:COLOR ,,,,2:CLS 3
110 FOR I=1 TO 15
120 COLOR =(I,&HFFF)
130 NEXT I
140 FOR I=1 TO 15
150 LINE (0,I*20)-STEP(639, 10),I ,BF
160 NEXT I
170 FOR I=1 TO 15
180 FOR J=1 TO 15
190 COLOR =(J, 16*I^2)
200 GOSUB *WAITSUB
210 NEXT J
220 NEXT I
230 COLOR
240 END
250 *WAITSUB
260 FOR K=0 TO 100
270 NEXT K
280 RETURN