dim inputBuffer(1 To 13) As Byte
dim outputBuffer(1 To 10) As Byte
dim controller1 as byte
dim controller2 as byte

dim channel 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
     delay(0.5)
     call putPin(13,0)

dim flexSensor1 as byte 
dim flexSensor2 as byte

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

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

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


do
' 1st flex sensor.............................
' get a control range from roughly 30 to 90
' using a 10K variable resistor as input
' on pins 14 and 16:

flexSensor1 = cByte((getADC(14) mod 60) + 30) 
flexSensor2 = cByte((getADC(16) mod 60) + 30)


  controller1 = 176 'controller #1
  channel = 1
  call putQueue(OutputBuffer, channel, 1)
  call putQueue(OutputBuffer, controller1, 1)
  call putQueue(OutputBuffer, flexSensor1, 1)  

call delay(0.5)

  controller2 = 177 'controller #2
  channel = 1
  call putQueue(OutputBuffer, channel, 1)
  call putQueue(OutputBuffer, controller2, 1)
  call putQueue(OutputBuffer, flexSensor2, 1)
  
  call delay(0.5)


loop

end sub