Initial data commit

Task/Animation/Commodore-BASIC/animation.basic

@@ -0,0 +1,22 @@
+1 rem rosetta code
+2 rem task: animation
+10 t$="hello world! ":d=-1
+20 print chr$(147);:rem clear screen
+30 print "*****************"
+35 print "*               *"
+40 print "*               *"
+45 print "*               *"
+50 print "*****************"
+60 print "{HOME}{DOWN}{DOWN}{RIGHT}{RIGHT}"t$
+70 get k$
+75 if k$=" " then d=not d
+80 on (abs(d))+1 gosub 1000,1010
+90 if k$="q" then print chr$(147):end
+95 rem
+100 rem between line 80 and line 999
+110 rem check for other user input
+120 rem and process accordingly
+130 rem
+999 for i=1 to 100:next:goto 60
+1000 t$=right$(t$,len(t$)-1)+left$(t$,1):return
+1010 t$=right$(t$,1)+left$(t$,len(t$)-1):return