24 lines
410 B
Plaintext
24 lines
410 B
Plaintext
s$ = "Hello world! "
|
|
gtextsize 14
|
|
lg = len s$
|
|
on timer
|
|
gcolor 333
|
|
grect 10 20 80 20
|
|
gcolor 999
|
|
gtext 12 24 substr s$ 1 9
|
|
if forw = 1
|
|
s$ = substr s$ lg 1 & substr s$ 1 (lg - 1)
|
|
else
|
|
s$ = substr s$ 2 (lg - 1) & substr s$ 1 1
|
|
.
|
|
timer 0.4
|
|
.
|
|
on mouse_down
|
|
if mouse_x > 10 and mouse_x < 90
|
|
if mouse_y > 20 and mouse_y < 40
|
|
forw = 1 - forw
|
|
.
|
|
.
|
|
.
|
|
timer 0
|