Rem close screen 0 
Screen Close 0
Rem channel amal 0 to our rainbow
Channel 0 To Rainbow 0
Rem cycle through the rainbow using amal 
REIN$="L: For R0 = 0 To 160 ; Let X=R0 ; Next R0 ; Jump L"
Rem assign amal channel 0 to the control string
Amal 0,REIN$
Rem turn amal on 
Amal On 
Rem reserve a rainbow
Set Rainbow 0,0,160,"","",""
Rem build the rainbow - how it is done appears in at least another 2 
Rem files so I won't bother typing it all in again.
OFFSET=0
CL=$0
For A=0 To 15
   Rain(0,OFFSET)=CL
   Inc OFFSET
   Rain(0,OFFSET)=CL
   Inc OFFSET
   CL=CL+$1
Next 
CL=$F
For A=0 To 15
   Rain(0,OFFSET)=CL
   Inc OFFSET
   Rain(0,OFFSET)=CL
   Inc OFFSET
   CL=CL+$100
Next 
CL=$F0F
For A=0 To 15
   Rain(0,OFFSET)=CL
   Inc OFFSET
   Rain(0,OFFSET)=CL
   Inc OFFSET
   CL=CL-$1
Next 
CL=$F00
For A=0 To 15
   Rain(0,OFFSET)=CL
   Inc OFFSET
   Rain(0,OFFSET)=CL
   Inc OFFSET
   CL=CL+$10
Next 
CL=$FF0
For A=0 To 15
   Rain(0,OFFSET)=CL
   Inc OFFSET
   Rain(0,OFFSET)=CL
   Inc OFFSET
   CL=CL-$110
Next 
Rem display our cycling rainbow
Rainbow 0,0,40,256
Rem make a noise and wait for a keypress 
Boom 
Wait Key