dim inputBuffer(1 To 13) As Byte
dim outputBuffer(1 To 30) As Byte
dim status as byte
dim controller1 as byte
dim controller2 as byte
dim controller3 as byte
dim controller4 as byte
dim controller5 as byte


Sub main()
call delay(0.5)  ' start  program with a half-second delay 

call putPin(13,1) ' so i know BX-24 is working, light up an LED
call delay(0.5) 
call putPin(13,0) 

dim flexSensor1 as byte 
dim flexSensor2 as byte

dim switch1 as byte
dim switch2 as byte
dim switch3 as byte

' set up serial buffers:
call openQueue(inputBuffer, 13)
call openQueue(outputBuffer, 30)

' open serial port on COM1:
call openCom(1, 9600, inputBuffer, outputBuffer)

' set baud rate to 30,270:
register.ubrr = 14


do

' get a control range 
' using a 10K variable resistor as input
' on pins 14 and 16:

flexSensor1 = cByte(getADC(14)\4)
flexSensor2 = cByte(getADC(16)\4)
'debug.print "flexSensor1 = " ; cstr(getADC(14)\4)
'debug.print "flexSensor2 = " ; cstr(getADC(16)\4)

controller1 = 1
controller2 = 2
controller3 = 3
controller4 = 4
controller5 = 5

switch1 = 10
switch2 = 20
switch3 = 30

status = 176

  'controller #1
   call putQueue(OutputBuffer, status, 1) 
   call putQueue(OutputBuffer, controller1, 1) 
   call putQueue(OutputBuffer, flexSensor1, 1) 

  'controller #2
  call putQueue(OutputBuffer, status, 1)
  call putQueue(OutputBuffer, controller2, 1)  
  call putQueue(OutputBuffer, flexSensor2, 1)

  if getPin(5) = 1 then
     'debug.print "switch1 is now on"
     switch1 = 11
     'controller #3
     call putQueue(OutputBuffer, status, 1)
     call putQueue(OutputBuffer, controller3, 1)
     call putQueue(OutputBuffer, switch1, 1)
  else 
switch1 = 10
call putQueue(OutputBuffer, status, 1)
call putQueue(OutputBuffer, controller3, 1)
call putQueue(OutputBuffer, switch1, 1)
  end if

  if getPin(7) = 1 then
     'debug.print "switch2 is now on"
     switch2 = 21
'controller #4
call putQueue(OutputBuffer, status, 1)
call putQueue(OutputBuffer, controller4, 1)
call putQueue(OutputBuffer, switch2, 1) 
  else       
switch2 = 20
call putQueue(OutputBuffer, status, 1)
call putQueue(OutputBuffer, controller4, 1)
call putQueue(OutputBuffer, switch2, 1)    
  end if

  if getPin(9) = 1 then
     'debug.print "switch3 is now on"
     switch3 = 31
'controller #5
call putQueue(OutputBuffer, status, 1)
call putQueue(OutputBuffer, controller5, 1)
call putQueue(OutputBuffer, switch3, 1)      
  else
switch3 = 30
call putQueue(OutputBuffer, status, 1)
call putQueue(OutputBuffer, controller5, 1)
call putQueue(OutputBuffer, switch3, 1)  
  end if

call delay(0.05)

loop

end sub