'
'Basically the same as the other rainbow scroll but this uses
' 2 rainbows & reads the colours in the following sequence 
'rainbow 1   colour 1 to colour 17 
'rainbow 2   colour 17 to colour 1 
'  
'
Set Rainbow 1,1,18,"","",""
Set Rainbow 0,1,18,"","",""
Restore HUES
For A=0 To 17
   Read SHADE : Rem get $rgb colour from data statements 
   Rain(0,A)=SHADE : Rem move into rainbow
Next 
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
Rainbow 1,1,259,18
Restore HUES
For A=17 To 1 Step -1
   Read SHADE : Rem get $rgb colour from data statements 
   Rain(1,A)=SHADE : Rem move into rainbow
Next 
Rainbow 0,1,276,16
PART2:
Screen Open 0,720,56,2,Hires : Curs Off : Palette $0,$FFF
Screen Display 0,122,260,,
Hide : Def Scroll 1,0,0 To 720,56,-5,0
OFFSET=1 : Rem character offset to be printed 
TXT$="Test data for scroll.....                 "
Repeat 
   Locate 86,0
   Print Mid$(TXT$,OFFSET,1)
   Zoom 0,86*8,0,87*8,8 To 0,85*8,0,87*8,32
   Add OFFSET,1,1 To Len(TXT$)
   For A=0 To 2
      Scroll 1 : Rem scroll character out 
      Wait Vbl 
   Next 
Until Mouse Click : Rem exit if mouse button pressed