Decodeswitches - Andover Controls Infinity Manual

Technical Manuals Online! - http://www.tech-man.com

DecodeSwitches

Type: Function
Description: Uses the string that was read from the FSCS for
the override switches and sets the corresponding CX9200
numerics.
Code:
Numeric SwitchState, SWS
SWS = search(InBuffer, "(000")
If SWS <> 0 then
' Input string found, offset past 4 intro characters.
SWS = SWS + 4
If mid(InBuffer, SWS + 0, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
SpareSwitch = SwitchState
If mid(InBuffer, SWS + 1, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH3Sfan.OVR.On = SwitchState
If mid(InBuffer, SWS + 2, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH3Sfan.OVR.Off = SwitchState
If mid(InBuffer, SWS + 3, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH2Sfan.OVR.On = SwitchState
If mid(InBuffer, SWS + 4, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH2Sfan.OVR.Off = SwitchState
If mid(InBuffer, SWS + 5, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH2OADmp.OVR.Opn = SwitchState
If mid(InBuffer, SWS + 6, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH2OADmp.OVR.Cls = SwitchState
If mid(InBuffer, SWS + 7, 1) = "A" and Main.Key then ~
SwitchState = On Else SwitchState = Off
AH2RADmp.OVR.Opn = SwitchState
5-12
Smoke Control Programs
Infinity Smoke Control Guide
TOC