I hope you can figre it out...
UP
`Set Syncronization On
Sync on
`Set the X and Y positions of the Scrolling Text
positionX#=screen width()/2
positionY#=screen height()+20
`Write the Text that will scroll into variables
Text1$="Programmers:"
Text2$="Xenocythe"
Text3$=" "
Text4$="Posted for:"
Text5$="A person who e-mailed me"
`Start Loop
Do
`Clear the Screen
cls
`Write the text, all 20 spaces apart on the Y axis
center text positionX#,positionY#,Text1$
center text positionX#,positionY#+20,Text2$
center text positionX#,positionY#+40,Text3$
center text positionX#,positionY#+60,Text4$
center text positionX#,positionY#+80,Text5$
`Make the Y position of the text go up the screen (Change the '.5' to a desired speed)
Dec positionY#,.5
`If the text goes up out of sight, place it at the bottom
If (positionY#+85)<0 then positionY#=screen height()+20
`Run Syncronization
Sync
`End the Loop
Loop
`Set Syncronization On
Sync on
`Set the X and Y positions of the Scrolling Text
positionX#=screen width()/2
positionY#=-85
`Write the Text that will scroll into variables
Text1$="Programmers:"
Text2$="Xenocythe"
Text3$=" "
Text4$="Posted for:"
Text5$="A person who e-mailed me"
`Start Loop
Do
`Clear the Screen
cls
`Write the text, all 20 spaces apart on the Y axis
center text positionX#,positionY#,Text1$
center text positionX#,positionY#+20,Text2$
center text positionX#,positionY#+40,Text3$
center text positionX#,positionY#+60,Text4$
center text positionX#,positionY#+80,Text5$
`Make the Y position of the text go down the screen (Change the '.5' to a desired speed)
Inc positionY#,.5
`If the text goes down out of sight, place it at the top
If (positionY#)>Screen Height()+15 then positionY#=-85
`Run Syncronization
Sync
`End the Loop
Loop
