====== On Pad ======

''On Pad GoSub label''

The On Pad interrupt will jump to the specified label when the
keypad/touchpad port receives a packet (packets sizes are assigned by the
[[cubloc:set_pad:index|Set Pad]] command). Please be sure to use a Return command after the
label.

<code xbasic>
  Const Device = Ct1720
  Dim TX1 As Integer, TY1 As Integer
  Contrast 450
  Set Pad 0,4,5
  On Pad GoSub GETTOUCH
  Do
  Loop
  
GETTOUCH:
  TX1 = GetPad(2)
  TY1 = GetPad(2)
  CircleFill TX1,TY1,10
  PulsOut 18,300
  Return

</code>

[[cubloc:index#system_library:|Go CUBLOC home]]