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, 280,"","",""
Rainbow 0,0, 0, 280 
Colour Back 0
Restore RDATA
For C=0 To  279 : Read CVA : Rain(0,C)=CVA
Next C : View
RDATA:
Data $0,$0,$0,$111,$222,$333,$444,$555
Data $666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD
Data $EEE,$FFF,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA
Data $999,$888,$777,$666,$555,$444,$333,$222
Data $300,$200,$300,$400,$500,$600,$700,$800
Data $900,$A00,$B00,$C00,$D00,$E00,$F00,$F00
Data $E00,$D00,$C00,$B00,$A00,$900,$800,$700
Data $600,$500,$400,$300,$200,$20,$30,$40
Data $50,$60,$70,$80,$90,$A0,$B0,$C0
Data $D0,$E0,$F0,$F0,$E0,$D0,$C0,$B0
Data $A0,$90,$80,$70,$60,$50,$40,$30
Data $30,$0,$1,$2,$3,$4,$5,$6
Data $7,$8,$9,$A,$B,$C,$D,$E
Data $F,$F,$E,$D,$C,$B,$A,$9
Data $8,$7,$6,$5,$4,$3,$2,$1
Data $0,$0,$22,$33,$44,$55,$66,$77
Data $88,$99,$AA,$BB,$CC,$DD,$EE,$FF
Data $FF,$EE,$DD,$CC,$BB,$AA,$99,$88
Data $77,$66,$55,$44,$33,$22,$110,$220
Data $330,$440,$550,$660,$770,$880,$990,$AA0
Data $BB0,$CC0,$DD0,$EE0,$FF0,$FF0,$EE0,$DD0
Data $CC0,$BB0,$AA0,$990,$880,$770,$660,$550
Data $440,$330,$220,$101,$202,$303,$404,$505
Data $606,$707,$808,$909,$A0A,$B0B,$C0C,$D0D
Data $E0E,$F0F,$F0F,$E0E,$D0D,$C0C,$B0B,$A0A
Data $909,$808,$707,$606,$505,$404,$303,$202
Data $111,$222,$333,$444,$555,$666,$777,$888
Data $999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$FFF
Data $EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777
Data $666,$555,$444,$333,$222,$300,$200,$300
Data $400,$500,$600,$700,$800,$900,$A00,$B00
Data $C00,$D00,$E00,$F00,$F00,$E00,$D00,$C00
Data $B00,$A00,$900,$800,$700,$600,$500,$400
Data $300,$200,$20,$30,$40,$50,$60,$70
Data $80,$90,$A0,$B0,$C0,$D0,$E0,$F0
Data $F0,$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!        *