smooth scroll

I don't know if this is any help to you but this scroller is very small and should be easy to covert to your need:

Graphics 640,480,16,2:Dim scroll$(100):Color 255,255,255
Type scr Field x,y,txt$ End Type:Global a
.scrollread:a=a+1:Read scroll$(a)
If Not scroll$(a)="EOF" Goto scrollread
a=a-1:SetBuffer BackBuffer():Repeat
For b=1 To a:ln.scr=New scr:Ln\x=200:Ln\y=490:ln\txt$=scroll$(b)
  For c=1 To 20:For ln.scr=Each scr:ln\y=ln\y-1:Text ln\x,ln\y,ln\txt$:If ln\y<-10 Then Delete ln.scr
 Next:Flip:Cls:Next:Next:Until KeyDown(1)
Data "Hello world":Data"Line two":Data"Line three":Data "EOF":End