Now you know how to make stuff to scroll, I'm sure you could code a
very simple Sine Scroller (No per-pixel stuff, no pointers, just text).
To scroll a text horizontally, we changed the X value in time. Now, what is a sine scroller ? You just have to make your letters move along X but also along the Y axis with a sinus method.
Here a little code to make it. Warning, it's not optimized, and I didn't thought about what's the better way to do it. So this code may not be the best example. Anyway, I think it can help to understand the thing.
'' To keep our letters in memory
Dim as string LettersToScroll(12) => {"H","e","l","l","o"," ","W","o","r","l","d"," ","!"}
'' To keep our letters position somewhere :
Dim as single LettersX(12), LettersY(12)
'' init Letters position (I assume a letter width and Height is 10)
For i as integer = 0 to 12
LettersX(i) = i*10
LettersY(i) = 320 '' middle screen
next
Screenres 640,480,16,2
Do : screenlock : cls
For i as integer = 0 to 12
LettersX(i) += 1 ' scroll along X axis
LettersY(i) = 320+10*sin(LettersX(i)/10) ' Sine Scroll along Y axis
Draw String(LettersX(i), LettersY(i)),LettersToScroll(i)
if LettersX(i)>640 then LettersX(i) = 0 '' if a letter is too far on the right, make it start again on the left
Next
Screenunlock : sleep 1,1
Loop until multikey(&h01) '' Will quit loop if ESC is pressed
'hope it helps
