Atari Regenbogenfarben (Beispiel)

10 REM * * ATARI REGENBOGEN FARBEN * *
20 DIM C$ ( 24 )
30 SETCOLOR 2, 0, 0 : poke 752, 1 : ? “ „
40 FOR I=l TO 24
50 READ D
60 C$ ( I, I ) =CHR$ ( D )
70 NEXT I
80 D=USR ( ADR ( C$ ) )
90 END
100 DATA 162, 0, 173, 11, 212, 201, 32, 208 , 249, 141
110 DATA 10, 212, 142, 24, 208, 232, 232, 208 , 246, 142
120 DATA 24, 208, 240, 232