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 Set Pad command). Please be sure to use a Return command after the label.

  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

Go CUBLOC home