like this:
sync on
sync rate 60
dim textstring$(10) as string
for x=1 to 10
read textstring$(x)
next x
data "Scrolling text goes here"
data "and here..."
data "here too"
data "why did the chicken cross the road?"
data "dunno."
data "me neither"
data "some more text here.."
data "and here..."
data "here too........"
data "and finaly some text."
for x=screen height() to -100 step -1
for z=1 to 10
center text screen width()/2,z*15+x,textstring$(z)
next z
sync
cls
next x
or like this for that Star Wars look:
autocam off
sync on
sync rate 60
text 0,0, " Scrolling text goes here"
text 0,15, " and here..."
text 0,30, " here too"
text 0,45, "why did the chicken cross the road?"
text 0,60, " dunno."
text 0,75, " me neither"
text 0,90, " some more text here.."
text 0,105, " and here..."
text 0,120, " here too........"
text 0,135, " and finaly some text."
get image 1,0,0,280,300,1
cls
color backdrop 0
make object plain 1,100,400
texture object 1,1
position object 1,20,-90,-150
xrotate object 1,70
for x=1 to 10000
position object 1,object position x(1),object position y(1),object position z(1)+0.1
sync
next x