you say you don't want fancy like star wars - but star wars very easy. not many extra lines:
sync on
sync rate 0
color backdrop 0
hide mouse
dim intro$(23)
data "A long time ago in a galaxy far far away...."
data "A scrolling text demo!"
data "Yes!"
data " "
data "Put some credits in here!"
data "by The Darthster!"
data " "
data "Add more text, I just can't think of anything witty."
data "Three strings walk into a bar. The first string goes up"
data "to the barman and says 'gimme a pint'. The barman says"
data "'sorry, but we don't serve strings here. The second string"
data "thinks 'maybe if I ask nice, the barman will give me a drink'"
data "so he goes to the barman and says, 'please kind sir, may I"
data "have a drink if it's not too much trouble?' but the barman"
data "says, 'sorry but we don't serve strings here'. The third string"
data "goes into the bathroom, ties himself up and rustles up his hair"
data "while desperately trying to think of a punchline involving data"
data "types. He goes to the barman and the barman says 'are you"
data "a string?' The string replies......."
data " "
data "oops I've run out of array elements, you'll have to ask The"
data "Darthster nicely if he'll give you the punchline."
data "(That wasn't the joke by the way)"
for i=0 to 22
read intro$(i)
center text 320,i*20,intro$(i)
next i
get image 1,0,0,640,480
make object plain 1,640,480
texture object 1,1
xrotate object 1,60
position object 1,0,0,-1700
cls
do
position object 1,0,object position y(1)+.1,object position z(1)+.2
sync
loop
