Text Scroller

Makes Text to go around borders of screen.

' Makes Text to go around borders of screen.
' Created by E.K.Virtanen, just to avoid getting bored.
'
' Have fun, if possible :D

SCREEN 13

' Text we wana move on screen.
' Leave first char as SPACE, it clears nicely on this one
DIM Text AS STRING
Text = " www.ASCII-World.Com"

DIM TextX(LEN(Text)) AS INTEGER
DIM TextY(LEN(Text)) AS INTEGER

CLS : Color 14,0
For i = 1 TO LEN(Text)
TextX(i) = 1
TextY(i) = i
Next i

DIM x,y AS INTEGER
x = 1 : y = LEN(Text)

DO

For i = 1 TO LEN(Text)
LOCATE TextX(i),TextY(i) : Print MID$(Text,i,1);
Next i

For i = 1 TO LEN(Text) - 1
TextX(i) = TextX(i + 1)
TextY(i) = TextY(i + 1)

Next i

IF x = 1 AND y < 41 Then y = y + 1
IF y = 40 Then x = x + 1
IF x = 25 Then y = y - 1
IF y = 1 AND x > 1 Then x = x - 1
TextX(LEN(Text)) = x : TextY(LEN(Text)) = y

Sleep 100
i$ = INKEY$
Loop until i$ <> ""
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Share Alike 2.5 License.