A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Mouse-position/PicoLisp/mouse-position.l
+++ b/Task/Mouse-position/PicoLisp/mouse-position.l
@ -0,0 +1,12 @@
+(de mousePosition ()
+   (prog2
+      (prin "^[[?9h")  # Mouse reporting on
+      (and
+         (= "^[" (key))
+         (key 200)
+         (key 200)
+         (key)
+         (cons
+            (- (char (key)) 32)
+            (- (char (key)) 32) ) )
+      (prin "^[[?9l") ) )  # Mouse reporting off