SS>   Could someone help me creating a 'scroller'?
SS>   Not a SmoothScroller, but a letter by letter scroller, from
SS>   the right of my screen to the left.
SS>   I can't figure out how to do it...
ss>............
   It is not that difficult when you have seen it done once.
DECLARE FUNCTION msg$ ()
COLOR 14, 1
CLS
LOCATE 3, 1
s$ = STRING$(11, " ")
PRINT s$ + "This program demonstrates application of scrolling text"
PRINT s$ + "on a single line of the screen. Speed may be controlled"
PRINT s$ + "by adjusting the value you are sending to delay."
a$ = msg$
COLOR 15, 4
WHILE INKEY$ = ""
   LOCATE 1, 1
   PRINT LEFT$(a$, 80);
   a$ = MID$(a$, 2) + LEFT$(a$, 1)
   delay (0.1)
WEND
FUNCTION msg$
a$ = "     This scrolling demo was adapted from a Quick Basic "
a$ = a$ + "4.5 program. The only major change was the removal "
a$ = a$ + "of the SUB Delay (hold!), which is needed in QB45. "
a$ = a$ + "Power Basic, as you know, already HAS a delay function. "
a$ = a$ + "All you need to do is rotate your string! :) "
msg$ = a$
END FUNCTION
___
> ] And now for something completely different..................
--- Maximus/2 3.01
1:278/216)
---------------