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

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

DEBUG "program running!"

'--------[Main Routine]-------------
DO
  IF (IN1 = 0) THEN
    GOSUB Hang_man
    GOSUB Hang_motor
  ELSEIF (IN2 = 0) THEN
    GOSUB Barrel_pop
  ENDIF
LOOP

'---------[Sub routine]-------
'===Barrel popper------
Hang_man:
HIGH 5
PAUSE 15000
LOW 5
HIGH 6
PAUSE 15000
LOW 6
RETURN

'----Hangman_motor-----
Hang_motor:
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 500
HIGH 7
PAUSE 1500
LOW 7
PAUSE 1500
RETURN

'---Hang_man-----------
Barrel_pop:
HIGH 3
PAUSE 1000
LOW 3
HIGH 4
PAUSE 4000
LOW 4
RETURN