Rem
Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *
Rem  *  Yup, you can blame good ol' Spadge for this one...  *
Rem
Set Rainbow 0,0, 64,"","",""
Rainbow 0,0, 96, 64 
Colour Back 0
Restore RDATA
For C=0 To  63 : Read CVA : Rain(0,C)=CVA
Next C : View
RDATA:
Data $0,$0,$0,$0,$1F1,$0,$1F1,$0
Data $2F1,$0,$2F1,$0,$3F1,$0,$4F1,$0
Data $5F1,$0,$6F1,$0,$7F1,$0,$8F1,$0
Data $9F1,$0,$AF1,$0,$BF1,$0,$CF1,$0
Data $DF1,$0,$EF1,$0,$FF1,$0,$FE1,$0
Data $FD1,$0,$FC1,$0,$FB1,$0,$FA1,$0
Data $F91,$0,$F81,$0,$F71,$0,$F61,$0
Data $F51,$0,$F41,$0,$F31,$0,$F21,$0
Data $F11,$0,$0,$0,$0,$0,$0,$0
Rem
Rem  * Alter the values in the RAINBOW and SET RAINBOW *
Rem  * to position and control the rainbows. See the   *
Rem  * manual to check on Y positioning, Length and    *
Rem  * which colour it is to effect.. Have fun!        *