I've not tested this as im at work, (Nothing to do), but i think it should work
Global ScrollX
ScrollX = Screen Width()/2
Global ScrollY
ScrollY = Screen Height()
Dim ScrollText(10) As String
ScrollText( 1) = "Programme Name"
ScrollText( 2) = ""
ScrollText( 3) = "By"
ScrollText( 4) = "Your Name here"
ScrollText( 5) = ""
ScrollText( 6) = "Scroll Example By"
ScrollText( 7) = "MSon"
ScrollText( 8) = ""
ScrollText( 9) = "Ect"
ScrollText(10) = "Ect"
Do
` To Show Credits
If SpaceKey() = 1 Then GoSub CREDITS
Loop
CREDITS:
Num = Array Count(ScrollText())-1
Do : CLS : Dec ScrollY,1
If ScrollY+(Text Height("|")*Num) < -10 Then ScrollY = Screen Height()
For n = 1 to Num
Center Text Screen Width()/2,ScrollY+(Text Height("|")*n),ScrollText(n)
Next n : Sync
If Inkey$() <> "" Then Cls : Return
Loop
Everyone Be Cool, You, Be Cool.