_Title "ScrollWord$ Function" 'b+ 2021-07-30 ' inspired by idea of spinnimg middle https://www.qb64.org/forum/index.php?topic=3982.msg134355#msg134355
t$ = "Testing this new ScrollWord$ Function. "
c = 1
w = 0
If Mid$(t$
, i
, 1) = " " Then w
= w
+ 1:
Locate 3 + w
, 37:
Print ScrollWord$
(b$
, c
): sw$
= sw$
+ ScrollWord$
(b$
, c
) + " ": b$
= "" w
= w
+ 1:
Locate 3 + w
, 37:
Print ScrollWord$
(b$
, c
): sw$
= sw$
+ ScrollWord$
(b$
, c
) b$ = "": sw$ = "": c = c + 1
ScrollWord$
= Mid$(w$
, p
, Len(w$
) - p
+ 1) + Mid$(w$
, 1, p
- 1)