Hát, sajnos nem teljesen világos, hogy véletlenül nem trollkodsz-e velünk.

10 SCNCLR
20 FORI=12*256TO12*256+999:POKEI,160:NEX
T
30 Z=0
40 FORY=8*256TO8*256+15*40STEP40
50 FORX=0TO7
60 POKEY+X,X*16+Z
70 NEXTX
80 Z=Z+1
90 NEXTY
100 GETKEYA$:SCNCLR

Ha ezt beviszed valahogyan valamelyik emulátorba, akkor megnézheted a szivárványt.