Add files via upload

Examples/TouchScreen/touchdown.bas

@@ -0,0 +1,31 @@
+SUB MAIN
+  DIM XY, XPOS, YPOS AS INTEGER
+  DIM LASTX, LASTY AS INTEGER
+  DIM MSG AS STRING
+
+  LASTX = 0
+  LASTY = 0  
+  MSG = "Touch the Screen (Down)"
+
+  GRAPHICS
+  SETCOLOR 0,0,0
+  CLS  
+  SETCOLOR 255,255,255
+  DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
+  REPAINT
+  
+  WHILE TRUE
+    XY = TOUCHDOWN()
+    IF (XY <> -1) THEN
+      XPOS = (XY / 65536) & 0x0000ffff
+      YPOS = XY & 0x0000ffff
+      SETCOLOR RND(256),RND(256),RND(256)
+      DRAWLINE LASTX,LASTY,XPOS,YPOS
+      LASTX = XPOS
+      LASTY = YPOS
+      REPAINT
+    ELSE
+      SLEEP 10
+	END IF
+  END WHILE
+END SUB

Examples/TouchScreen/touchmove.bas

@@ -0,0 +1,39 @@
+SUB MAIN
+  DIM XY, XPOS, YPOS AS INTEGER
+  DIM LASTX, LASTY AS INTEGER
+  DIM FLAG AS BOOLEAN
+  DIM MSG AS STRING
+  
+  LASTX = -1
+  LASTY = -1
+  MSG = "Touch the Screen (Move)"
+  
+  GRAPHICS
+  SETCOLOR 0,0,0
+  CLS  
+  SETCOLOR 255,255,255
+  DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
+  REPAINT
+  
+  SETCOLOR 255,255,0
+  
+  WHILE TRUE
+    XY = TOUCHDOWN()
+    IF (XY <> -1) THEN
+      LASTX = (XY / 65536) & 0x0000ffff
+      LASTY = XY & 0x0000ffff
+    ELSE
+      XY = TOUCHMOVE()
+      IF (XY <> -1) THEN
+        XPOS = (XY / 65536) & 0x0000ffff
+        YPOS = XY & 0x0000ffff
+        DRAWLINE LASTX, LASTY, XPOS, YPOS
+        REPAINT
+        LASTX = XPOS
+        LASTY = YPOS
+      ELSE
+        SLEEP 10
+	  END IF
+	END IF
+  END WHILE
+END SUB

Examples/TouchScreen/touchup.bas

@@ -0,0 +1,31 @@
+SUB MAIN
+  DIM XY, XPOS, YPOS AS INTEGER
+  DIM LASTX, LASTY AS INTEGER
+  DIM MSG AS STRING
+  
+  LASTX = 0
+  LASTY = 0  
+  MSG = "Touch the Screen (Up)"
+
+  GRAPHICS
+  SETCOLOR 0,0,0
+  CLS  
+  SETCOLOR 255,255,255
+  DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
+  REPAINT
+  
+  WHILE TRUE
+    XY = TOUCHUP()
+    IF (XY <> -1) THEN
+      XPOS = (XY / 65536) & 0x0000ffff
+      YPOS = XY & 0x0000ffff
+      SETCOLOR RND(256),RND(256),RND(256)
+      DRAWLINE LASTX,LASTY,XPOS,YPOS
+      LASTX = XPOS
+      LASTY = YPOS
+      REPAINT
+    ELSE
+      SLEEP 10
+	END IF
+  END WHILE
+END SUB