Do
 Select Case Touch(SWIPE)
   Case 1 : Print @(0,0) "swipe LEFT     "
   Case 2 : Print @(0,0) "swipe RIGHT    "
   Case 3 : Print @(0,0) "swipe UP       "
   Case 4 : Print @(0,0) "swipe DOWN     "
 End Select
 If Touch(TAP)   Then Print @(0,16) "TAP            "
 If Touch(DTAP)  Then Print @(0,16) "DOUBLE TAP     "
 If Touch(HOLD)  Then Print @(0,16) "LONG PRESS     "
 Select Case Touch(PINCH)
   Case 1 : Print @(0,32) "EXPAND         "
   Case 2 : Print @(0,32) "CONTRACT       "
 End Select
 Select Case Touch(ROTATE)
   Case 1 : Print @(0,48) "ROTATE CW      "
   Case 2 : Print @(0,48) "ROTATE CCW     "
 End Select
 If Touch(TTAP)  Then Print @(0,64) "TWO-FINGER TAP "
 Pause 50
Loop