End Text Scroller

Scroll end text's same way as they goes in end of movies. Uses LOCATE and PRINT, no any PUT, GET etc. stuff, so i dare to say this is pure ASCII "scrolling"

' ASCII end text (what ever) scroller.
' QB/FB should work
Screen 13 : Color 14
Dim Text(23) AS STRING
Dim Lines(23) AS INTEGER
Dim i,ii AS INTEGER

For i = 1 TO 23
Lines(i) = 25 + i

Read Text(i)
DATA "Andre Victor"
DATA "Angelo Mottola"
DATA "Daniel R. Verkamp"
DATA "Mark Junker"
DATA "Antoni Gual"
DATA "Bryan Stoeberl"
DATA "Chris Davies"
DATA "Dumbledore"
DATA "Edmond Leung"
DATA "Eric Lope"
DATA "F�bio Rodella"
DATA "fsw"
DATA "Garvan O'Keeffe"
DATA "Jean Debord"
DATA "Jofers"
DATA "Marzec"
DATA "Matthias Faust"
DATA "Nek"
DATA "plasma"
DATA "Randy Keeling"
DATA "Sterling Christensen"
DATA "Steven Hidy"
DATA "zydon"
Next i

DO
For i = 1 TO 23
IF Lines(i) > 5 AND Lines(i) < 20 Then
FOR ii = 1 TO LEN(Text(i))
LOCATE Lines(i),ii + (20 - INT(LEN(Text(i)) / 2)- 1) : Print " ";
Next ii
END IF

Lines(i) = Lines(i) - 1
IF Lines(i) > 5 AND Lines(i) < 20 Then
Locate Lines(i), (20 - INT(LEN(Text(i)) / 2)) : Print Text(i);
END IF

Next i
SLEEP 300
Loop UNTIL Lines(23) = 5
END
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.