Graphics 800,600 Repeat Cls x=MilliSecs()/10.0 Mod 800 SinScroll("A nice sinus scroller, just a small example how this can be done :)",800-x,300,MilliSecs()/5.0) SinScroll("A nice sinus scroller, just a small example how this can be done :)",800-x-800,300,MilliSecs()/5.0) Flip Until KeyDown(1) End Function SinScroll(txt$,x,y,am,amp=25,per=20,d=10) For n=1 To Len(txt$) DrawText Mid$(txt$,n,1),x+xx,y+Sin(am+n*per)*amp xx=xx+d Next End Function
I removed the "SetBuffer" line, and changed the Text..... line as BlitxMax uses DrawText instead, and with the parameters swapped around - string, x, y - instead of - x, y, string.