[SAMPLE15] SAMPLE

10 REM SAMPLE15
100 COLOR ,,,,0:CLS 3
110 FOR I=1 TO 7
120 COLOR =(I,7)
130 NEXT I
140 FOR I=1 TO 7
150 LINE (0,I*20)-STEP(639, 10),I ,BF
160 NEXT I
170 FOR I=1 TO 7
180 FOR J=1 TO 7
190 COLOR =(J,I)
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