' {$STAMP BS1}
' {$PBASIC 1.0}
INPUT 0 'Makes Pin 7 an Input pin - GO-AROUND P/B
INPUT 3 'Makes Pin 10 an Input pin - HDG LIGHT ON
INPUT 4 'Makes Pin 11 an Input pin - IAS LIGHT ON
OUTPUT 1 'Makes pin 8 an Output pin - ACTIVATE HDG
OUTPUT 2 'Makes pin 9 an Output pin - ACTIVATE IAS
START: 'Loop label
IF PIN0 = 0 THEN START 'If GA push-button not pressed, keep checking
IF PIN0 = 1 THEN HDG 'If GA push-button pressed goto HDG label
HDG:
IF PIN3 = 0 THEN IAS 'Check if HDG was already active. If so, goto IAS
HIGH 1 'Set Pin 8 to HIGH, activating the HDG mode
PAUSE 700 'Wait for 0.7 seconds
LOW 1 'Set Pin 8 to LOW
PAUSE 100 'Wait 0.1 seconds
IAS:
IF PIN4 = 0 THEN WAIT 'Check if IAS was already active. If so, restart the process
HIGH 2 'Set Pin 9 to HIGH, activating the HDG mode
PAUSE 700 'Wait for 0.7 seconds
LOW 2 'Set Pin 9 to LOW
CHECKGA:
IF PIN0 = 1 THEN CHECKGA 'Check if GA P/B still pushed. Is so, wait for release
GOTO START 'If GA P/B released, resume loop from Start