Rem reserve a rainbow
Set Rainbow 1,1,18,"","",""
Restore HUES
Rem move the background colours into rainbow 1 
For A=0 To 17
   Read SHADE : Rem get $rgb colour from data statements 
   Rain(1,A)=SHADE : Rem move into rainbow
Next 
Rem these are the $rgb colours for the rainbow 
Rem they fade from $fff (white) to $f0 (bright green) to $10 (dark green)  
HUES:
Data $FFF,$DFD,$CFC,$BFB,$9F9,$7F7,$5F5,$3F3,$1F1,$F0
Data $E0,$D0,$C0,$B0,$A0,$90,$80,$70,$60,$50,$40,$30,$20,$10
Rem display the rainbow on the screen
Rainbow 1,1,261,18
PART2:
Rem open the screen
Screen Open 0,720,56,2,Hires : Curs Off : Palette $0,$FFF
Rem display it at the bottom of the tv/monitor 
Screen Display 0,122,260,,
Rem hide the cursor and define a scrolling area
Hide : Def Scroll 1,0,0 To 720,56,-3,0
OFFSET=1 : Rem character offset to be printed 
TXT$="another rainbow scroller coded by gaz......"
Repeat 
   Rem position cursor offscreen
   Locate 86,0
   Rem print a character from txt$
   Print Mid$(TXT$,OFFSET,1)
   Rem magnify it 
   Zoom 0,86*8,0,87*8,8 To 0,85*8,0,87*8,16
   Rem increase the pointer to point to the next character to be printed
   Rem and check it hasnt gone past the end of txt$.if is has 
   Rem reset to the beginning of txt$.(all in one command)
   Add OFFSET,1,1 To Len(TXT$)
   For A=0 To 4
      Scroll 1 : Rem scroll character out 
      Wait Vbl 
   Next 
Until Mouse Click : Rem exit if mouse button pressed