' 1st set up the rainbow effect that will scroll in the background 
_RAINBOW
' Now open our screen & position it at the bottom of the TV/Monitor
Screen Open 0,704,24,2,Hires : Curs Off : Palette $0,$357
Screen Display 0,112,285,,
Hide : Rem turn off mousey
Amal On : Rem turn on our rainbow effect 
TXT$="Test data for the rainbow scroller coded by Gaz...Copyleft 1991.                    "
' define our scrolling area  
Def Scroll 1,0,0 To 712,200,-3,0
OFFSET=1
Rem where to start getting the text from i.e. the 1st character
Repeat 
   Locate 83,0 : Rem when 'Print' is called - this will print at 83 characters across the screen
   Print Mid$(TXT$,OFFSET,1)
   Rem Print our character from the the string 'TXT$' 
   Zoom 0,83*8,0,84*8,8 To 0,82*8,0,84*8,16
   Rem enlarge it 
   Add OFFSET,1,1 To Len(TXT$) : Rem  
   For A=0 To 4
      Scroll 1
      Rem scroll out our enlarged character
      Wait Vbl 
   Next 
Until Mouse Click
Rem exit if button pressed, else go back to the 'Repeat' command 
For DAHN=285 To 320
   Rem 285 is the hardware co-ords of where our screen starts 
   Screen Display 0,112,DAHN,, : Rem move it to the DAHN' value 
   Wait Vbl 
Next 
Amal Off : Rem turn off our rainbow effects 
End 
Procedure _RAINBOW
   Rem change the 0,1 to 0,0 to make the rainbow appear on the background 
   Set Rainbow 0,1,290,"","",""
   OFFSET=0
   A=$0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$1
   Next 
   A=$F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$100
   Next 
   A=$F0F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$10
   Next 
   A=$FFF
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$1
   Next 
   A=$FF0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$10
   Next 
   A=$F00
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$100
   Next 
   A=$0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$1
   Next 
   A=$F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$100
   Next 
   A=$F0F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$10
   Next 
   A=$FFF
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$1
   Next 
   A=$FF0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$10
   Next 
   A=$F00
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$100
   Next 
   A=$0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$1
   Next 
   A=$F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$100
   Next 
   A=$F0F
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      Add A,$10
   Next 
   A=$FFF
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$1
   Next 
   A=$FF0
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$10
   Next 
   A=$F00
   For B=0 To 15
      Rain(0,OFFSET)=A
      Inc OFFSET
      A=A-$100
   Next 
   Rainbow 0,0,0,270
   Channel 0 To Rainbow 0
   R$="L: For R0= 0 To 290 ; Let X=R0 ; Next R0 ; Jump L:"
   Amal 0,R$
   Amal On 
End Proc