' {$STAMP BS2}
' {$PBASIC 2.5}

FREQOUT 4, 2000, 3000

DO
FREQOUT 8, 1, 38500
FREQOUT 2, 1, 38500
IF (IN0 = 0) AND (IN9 = 0) AND (IN5 = 0) AND (IN7 = 0) THEN
PULSOUT 13, 650
PULSOUT 12, 850
ELSEIF (IN0 = 0) AND (IN9 = 0) THEN
PULSOUT 13, 650
PULSOUT 12, 850
ELSEIF (IN5 = 0) AND (IN7 = 0)  THEN
PULSOUT 13, 650
PULSOUT 12, 850
ELSEIF (IN0 = 0) AND (IN5 = 0) THEN
PULSOUT 13, 850
PULSOUT 12, 850
ELSEIF (IN7 = 0) AND (IN9 = 0)  THEN
PULSOUT 13, 650
PULSOUT 12, 650
ELSEIF (IN7 = 0) THEN
PULSOUT 13, 650
PULSOUT 12, 650
ELSEIF (IN9 = 0)  THEN
PULSOUT 13, 650
PULSOUT 12, 650
ELSEIF (IN0 = 0) THEN
PULSOUT 13, 850
PULSOUT 12, 850
ELSEIF (IN5 = 0)   THEN
PULSOUT 13, 850
PULSOUT 12, 850
ELSEIF (IN0 <> 0) AND (IN9 <> 0) AND (IN5 <> 0) AND (IN7 <> 0)    THEN
PULSOUT 13, 850
PULSOUT 12, 650
ELSEIF (IN0 <> 0) AND (IN9 <> 0)      THEN
PULSOUT 13, 850
PULSOUT 12, 650
ENDIF
LOOP 