'{$STAMP BS2} 'STAMP directive (specifies a BS2) '{$PBASIC 2.5} txtime VAR Word txtime = 0 PAUSE 5000 'Pause 5 seconds DO IF (IN2 = 0) THEN 'Slow hop txtime = 1200 ELSEIF (IN2 = 1) THEN 'Fast hop txtime = 600 ENDIF DEBUG CR, ? IN2 DEBUG "TXTIME: ", DEC txtime, CR DEBUG "PTT", CR HIGH 8 HIGH 5 PAUSE txtime LOW 8 LOW 5 PAUSE 180 DEBUG "MODE", CR HIGH 9 'MODE HIGH 6 PAUSE 180 LOW 9 LOW 6 PAUSE 180 DEBUG "UP", CR HIGH 15 HIGH 7 PAUSE 180 LOW 15 LOW 7 PAUSE 180 DEBUG "PTT", CR HIGH 8 HIGH 5 PAUSE txtime LOW 8 LOW 5 PAUSE 180 DEBUG "UP", CR HIGH 15 HIGH 7 PAUSE 180 LOW 15 LOW 7 PAUSE 180 DEBUG "PTT", CR HIGH 8 HIGH 5 PAUSE txtime LOW 8 LOW 5 PAUSE 180 DEBUG "MODE", CR HIGH 9 'MODE HIGH 6 PAUSE 180 LOW 9 LOW 6 PAUSE 180 DEBUG "UP", CR HIGH 15 HIGH 7 PAUSE 180 LOW 15 LOW 7 PAUSE 180 LOOP