variable = GetPad(length)

Reads length bytes from the pad buffer allocated with Set Pad.

   Const Device = CB280
   Dim X As Integer
   Dim Y As Integer
   Set Pad 0,4,20        'Mode 0, Packet size 4 bytes, Buffer 20 bytes
   On Pad GoSub ABC      'Define ABC as interrupt service routine
   Do 'Run forever
   Loop
 
 ABC:
   X = GetPad(2)         'First 2 bytes is the x coordinate
   Y = GetPad(2)         'Second 2 bytes is y coordinate
   Debug Dec X, Cr       'Print x coordinate
   Debug Dec Y, Cr       'Print y coordinate
   Return

Go CUBLOC home