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, 158,"","",""
Rainbow 0,0, 73, 158 
Colour Back 0
Restore RDATA
For C=0 To  157 : Read CVA : Rain(0,C)=CVA
Next C : View
RDATA:
Data $0,$0,$0,$F11,$F11,$F11,$F21,$F21
Data $F31,$F31,$F41,$F41,$F51,$F51,$F61,$F61
Data $F71,$F71,$F81,$F81,$F91,$F91,$FA1,$FA1
Data $FB1,$FB1,$FC1,$FC1,$FD1,$FD1,$FE1,$FE1
Data $FF1,$FF1,$FF1,$FF1,$FF1,$FF1,$EF1,$EF1
Data $DF1,$DF1,$CF1,$CF1,$BF1,$BF1,$AF1,$AF1
Data $9F1,$9F1,$8F1,$8F1,$7F1,$7F1,$6F1,$6F1
Data $5F1,$5F1,$4F1,$4F1,$3F1,$3F1,$2F1,$2F1
Data $1F1,$1F1,$1F1,$1F1,$1F1,$1F1,$1F2,$1F2
Data $1F3,$1F3,$1F4,$1F4,$1F5,$1F5,$1F6,$1F6
Data $1F7,$1F7,$1F8,$1F8,$1F9,$1F9,$1FA,$1FA
Data $1FC,$1FC,$1FC,$1FC,$1FD,$1FD,$1FE,$1FE
Data $1FF,$1FF,$1FF,$1FF,$1EF,$1EF,$1DF,$1DF
Data $1CF,$1CF,$1BF,$1BF,$1AF,$1AF,$19F,$19F
Data $18F,$18F,$17F,$17F,$16F,$16F,$15F,$15F
Data $14F,$14F,$13F,$13F,$12F,$12F,$11F,$11F
Data $11F,$11F,$11F,$11F,$21F,$21F,$31F,$31F
Data $41F,$41F,$51F,$51F,$61F,$61F,$71F,$71F
Data $81F,$81F,$91F,$91F,$A1F,$A1F,$B1F,$B1F
Data $C1F,$C1F,$D1F,$D1F,$E1F,$E1F,$F1F,$F1F
Data $0,$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!        *