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$ <> ""