Initial data commit

Task/Animation/PicoLisp/animation-2.l

@@ -0,0 +1,18 @@
+#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
+
+(load "@ext.l" "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")
+
+(one *Dir)
+
+(de start ()
+   (app)
+   (action
+      (html 0 "Animation" "@lib.css" NIL
+         (form NIL
+            (gui '(+Button)
+               '(pack (do *Dir (rot '`(chop "Hello World! "))))
+               '(setq *Dir (if (= 1 *Dir) 12 1)) )
+            (gui '(+Click +Auto +Button) 400 'This 1000 "Start") ) ) ) )
+
+(server 8080 "!start")
+(wait)