GE DEH-210 - Manual (Page 61)

PMCS Interface Toolkit Creating Floor Plans, Elevation Views, and One-Line Diagrams
•
55
Bus6.Get
Bus7.Get
Dim Change3 As Boolean
Dim Change4 As Boolean
Dim Change5 As Boolean
Dim Change6 As Boolean
Dim Change7 As Boolean
If ((Bus1.value) And (brk1)) Then
Bus3.value = 1
Change3 = 1
ElseIf (Not Change3) Then
Bus3.value = 0
End If
If ((Bus2.value) And (brk2)) Then
Bus5.value = 1
Change5 = 1
ElseIf (Not Change5) Then
Bus5.value = 0
End If
If ((Bus3.value) And (brk3)) Then
Bus4.value = 1
Change4 = 1
ElseIf (Not Change4) Then
Bus4.value = 0
End If
If ((Bus4.value) And (brk4)) Then
Bus5.value = 1
Change5 = 1
ElseIf (Not Change5) Then
Bus5.value = 0
End If
If ((Bus3.value) And (brk5)) Then
Bus6.value = 1