Initial data commit

Task/Animation/Smart-BASIC/animation-1.basic

@@ -0,0 +1,17 @@
+'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