18 lines
472 B
Plaintext
18 lines
472 B
Plaintext
'Animation, by rbytes and Dutchman
|
|
word$="Hello World! "
|
|
'use button window with text
|
|
SET BUTTONS CUSTOM
|
|
SET BUTTONS FONT SIZE 40
|
|
DRAW COLOR 0,0,0
|
|
DO 'the button is redrawn each loop
|
|
BUTTON "anim" TEXT word$ AT 130,100
|
|
PAUSE .1
|
|
'touching the button reverses the scrolling
|
|
IF BUTTON_PRESSED("anim") THEN flag=1-flag
|
|
IF flag THEN 'shift right
|
|
word$=RIGHT$(word$,1)&LEFT$(word$,LEN(word$)-1)
|
|
ELSE 'shift left
|
|
word$=RIGHT$(word$,LEN(word$)-1)&LEFT$(word$,1)
|
|
ENDIF
|
|
UNTIL 0
|