CON
  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

  XB_Rx         =  0    'XBee DOut
  XB_Tx         =  1    'XBee DIn
  XB_Baud       = 9600  'XBee Baud Rate

  PC_Rx         = 31
  PC_Tx         = 30
  PC_Baud       = 9600

  PB = 7

  CR = 13

OBJ
  XB : "XBee_Object_2"

Pub Start | State, tInc, tCw, tCcw
  XB.start(XB_Rx, XB_Tx, 0, XB_Baud)

  repeat
    if ina[PB] == 1
      State := 1300
    else
      State := 1700

    XB.Tx("!")
    XB.Dec(State)
    XB.CR
    XB.Delay(500)