'--------[Halloween 2007]-----------
'Controls the lighting and motion in 2007 yard haunt

' {$STAMP BS2}
' {$PBASIC 2.5}

DEBUG "program running!"

'--------[Main Routine]-------------
DO
  IF (IN0 = 0) THEN
    GOSUB barrelpopper
  ENDIF
LOOP

'---------[Sub routine]-------
'===Barrel popper------
barrelpopper:
PAUSE 3000
HIGH 15
PAUSE 1000
LOW 15
HIGH 14
PAUSE 8000
LOW 14
RETURN