'
' change the variable LOR to alter the amount of colours displayed 
'(you will also need to type in the $RGB values in data statements)
'
'
Screen Close 0
LOR=18 : Rem length of rainbow
Set Rainbow 1,0,LOR,"","","" : Rem reserve rainbow
Restore HUES : Rem restore data 
For A=0 To LOR-1
   Read SHADE : Rem get shade from data statement
   Rain(1,A)=SHADE : Rem move into rainbow 1
Next 
HUES:
Data $FFF,$FDD,$FCC,$FBB,$F99,$F77,$F55,$F33,$F11
Data $F00,$E00,$D00,$C00,$B00,$A00,$900,$800,$700
Rainbow 1,1,205,LOR : Rem display rainbow