26 lines
410 B
Plaintext
26 lines
410 B
Plaintext
s$ = "Hello world! "
|
|
textsize 16
|
|
lg = len s$
|
|
on timer
|
|
color 333
|
|
move 10 20
|
|
rect 80 20
|
|
color 999
|
|
move 12 24
|
|
text s$
|
|
if forw = 0
|
|
s$ = substr s$ lg 1 & substr s$ 1 (lg - 1)
|
|
else
|
|
s$ = substr s$ 2 (lg - 1) & substr s$ 1 1
|
|
.
|
|
timer 0.2
|
|
.
|
|
on mouse_down
|
|
if mouse_x > 10 and mouse_x < 90
|
|
if mouse_y > 20 and mouse_y < 40
|
|
forw = 1 - forw
|
|
.
|
|
.
|
|
.
|
|
timer 0
|