'
'Upward scroll 
'
'using the DEF SCROLL command  
'
'
'open a screen to display our data on  
Screen Open 0,320,256,2,Lowres : Curs Off : Cls 0 : Palette $35,$FFF
Hide : Rem turn off mouse pointer 
'
'
'
'
'define the scrolling zone, I've defined it as:- 
'Zone No,Topx,Topy To Bottomx,Bottomy,speed right,speed down 
'topx,topy define the top corner of the area 
'bottomx,bottomy define the bottom corner of the area  
'
Def Scroll 1,0,0 To 320,256,0,-2
'
' Set the data pointer to the label TXT
'
Restore TXT
'
' the LOOP command will return to here when it encounters a LOOP command 
Do 
   ' read a line of data  
   Read A$
   ' check that it isn't the last sentence. If it is, reset the data pointer
   If A$="end of data"
      Restore TXT
      ' and read the next line.If this isn't included, the scroll will print 
      ' "end of data" which we don't want. 
      Read A$
   End If 
   '
   ' So now we have the line of text held in a$ 
   '
   ' set the cursor to the bottom of the screen & print the data  
   '
   '
   Locate 0,29
   Centre A$ : Rem this will centre the data & make it look more presentable
   For A=1 To 4 : Rem scroll the area by 8 pixels (4 x speed of scroll (2) = 8) - see the defscroll command to alter the speed 
      Wait Vbl 
      Scroll 1
   Next 
Loop 
' our scrolling data 
TXT:
Data "An example of an "
Data "vertical scroll."
Data " "
Data "Just one of the "
Data "many routines"
Data "on this disk."
Data " "
Data "end of data"