' {$STAMP BS2sx}
' {$PBASIC 2.5}

SETUP:
SIGIN PIN 1
SIGOUT PIN 0
TIME VAR Word
REPS VAR Word

MAIN:
SIGOUT = 0
PULSIN 1, 1, TIME
IF TIME = ? THEN ACTIVE
GOTO MAIN



ACTIVE:
FREQOUT 1, 200, 551
SIGOUT = 1
PULSIN 1, 1, TIME
IF TIME > 0 THEN ACTIVE
FREQOUT 1, 200, 551

FOR REPS = 1 TO 50
PULSIN 1, 1, TIME
IF TIME > 0 THEN ACTIVE
NEXT

FREQOUT 1, 200, 551
GOTO MAIN