'SV200B/C - SV200C IR Receiver Functions

'This program detects a number from 1 to 8 from an IR remote to select a
'servo. Once the a number is pressed the channel up/down is used to move the
'servo in increments of three

DIM SelectServo AS byte
                         
bIRenable = 1   'Enable IR receiver

DO													'Loop forever
   IF bIRreceive Then         'If IR received in Buffer
      IF IRreg >= ASC("1") AND IRreg <= ASC("8") then
         SelectServo = IRreg  'Save Selected Servo
      ELSE
         IF IRreg = ASC("A") then Call ChannelUP
         IF IRreg = ASC("B") then Call ChannelDOWN
      END IF
      bIRreceive = 0
   END IF   
LOOP												'Loop back to DO

SUB ChannelUP
   IF SelectServo = ASC("1") then Servo1 = Servo1 + 3
   IF SelectServo = ASC("2") then Servo2 = Servo2 + 3
   IF SelectServo = ASC("3") then Servo3 = Servo3 + 3
   IF SelectServo = ASC("4") then Servo4 = Servo4 + 3
   IF SelectServo = ASC("5") then Servo5 = Servo5 + 3
   IF SelectServo = ASC("6") then Servo6 = Servo6 + 3
   IF SelectServo = ASC("7") then Servo7 = Servo7 + 3
   IF SelectServo = ASC("8") then Servo8 = Servo8 + 3
END SUB

SUB ChannelDOWN
   IF SelectServo = ASC("1") then Servo1 = Servo1 - 3
   IF SelectServo = ASC("2") then Servo2 = Servo2 - 3
   IF SelectServo = ASC("3") then Servo3 = Servo3 - 3
   IF SelectServo = ASC("4") then Servo4 = Servo4 - 3
   IF SelectServo = ASC("5") then Servo5 = Servo5 - 3
   IF SelectServo = ASC("6") then Servo6 = Servo6 - 3
   IF SelectServo = ASC("7") then Servo7 = Servo7 - 3
   IF SelectServo = ASC("8") then Servo8 = Servo8 - 3
END SUB