Rem close screen 0 
Screen Close 0
Rem display our rainbow
_RAINBOW
End 
Procedure _RAINBOW
   Rem reserve a space for the new rainbow
   Set Rainbow 0,0,256,"","",""
   OFFSET=0
   A=$0
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem move 15 colours into the 1st 15 lines of 
      Inc OFFSET : Rem the rainbow (colours $0 to $00f - from black to bright blue) 
      Add A,$1 : Rem increase blue value
   Next 
   A=$F
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem build up from $00f to $f0f 
      Inc OFFSET
      Add A,$100 : Rem increase red value 
   Next 
   A=$F0F
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem build up from $f0f to $fff 
      Inc OFFSET
      Add A,$10 : Rem increase green value 
   Next 
   A=$FFF
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem change colours from $fff To $ff0   
      Inc OFFSET
      A=A-$1 : Rem decrease blue value
   Next 
   A=$FF0
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem change from $ff0 to $f00 
      Inc OFFSET
      A=A-$10 : Rem decrease  green value
   Next 
   A=$F00
   For B=0 To 15
      Rain(0,OFFSET)=A : Rem change from $f00 to $0 
      Inc OFFSET
      A=A-$100 : Rem decrease red value 
   Next 
   Rainbow 0,0,140,100 : Rem display rainbow
End Proc