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
VAR
  long  State
OBJ
  XB : "XBee_Object_2"

Pub Start
  XB.start(XB_Rx, XB_Tx, 0, XB_Baud)
  repeat
    if ina[PB] == 1
      NextState
      XB.Tx("!")
      XB.Dec(State)
      XB.CR
      XB.Delay(500)

Pub NextState
  State := State + 1
  If (State > 14)
    State := 1