try this...
rem **********************
rem * CREDITS EXAMPLE *
rem **********************
rem * By Hamish McHaggis *
rem **********************
rem Store credits data
data "CREDITS"
data ""
data "WRITTEN BY..."
data ""
data "Some Guy"
data "That other Person"
data "The Freaky One"
data "Bill Gates"
data ""
data ""
data "VOICE ACTORS..."
data ""
data "Chicken"
data "Mr Happy"
data "The Grimreaper"
data ""
data ""
data "GRAPHIC DESIGNERS..."
data ""
data "Mr Whatshisname"
data "Moonface"
data "Enid Blyton"
data "Dr Lunitic"
data "Man 1"
data "Man 2"
data "Woman 1"
data "Woman 1.23"
data ""
data ""
data "THANKS TO..."
data ""
data "You, You Crazy Freak"
data "!?!?!?!??!"
data "Me"
data "Me Again"
data "And lastly ... ME!!!"
data ""
data ""
data ""
data "THE END!!!"
rem Setup environment
sync on
hide mouse
autocam off
rem Make object for background
make object cube 1,20
color object 1,rgb(255,0,0)
rem Position camera
position camera 0,25,-50
point camera 0,0,0
rem Colour backdrop
backdrop on
color backdrop rgb(255,255,255)
rem Assign credits array with data
dim credits$(1000)
for x=25 to 100
read credits$(x)
next x
rem Set position and colour of text
text_x=320
text_y=0
ink rgb(0,0,0),0
do
rem Rotate cube
cube_rot=wrapvalue(cube_rot+1)
yrotate object 1,cube_rot
rem Scroll text upwards
text_scroll=text_scroll+1
text_y=0-text_scroll
rem Use text_scroll variable to find which lines are meant to be on screen and display only them
for x=text_scroll/20 to text_scroll/20+24
center text text_x,x*20+text_y,credits$(x)
next x
rem Loop back
sync
loop
Its for DB, not DBP sorry. But it might give you an idea.
Yum! Yum! Yum! Yum!