Mil-Spec PEZ Dispenser

Step 3 Basic Stamp (BS2-BOE) Source Code

'***************************************************************************
'* mil-pez.BS2
'* Alan Mollick
'* www.alanmollick.com
'***************************************************************************
' {$STAMP BS2}
' {$PBASIC 2.5}
' {$PORT COM5}

INPUT 0 ' IR detector
OUTPUT 3 ' 3-way solenoid
OUTPUT 4 ' LED
OUTPUT 8 ' 5-way solenoid
INPUT 10 ' head up feedback switch

Main:
PAUSE 5

Hold:
IF (IN0 = 1) THEN Hold ' wait for TV IR signal

HIGH 4 ' LED = on
HIGH 3 ' 3-way solenoid on, head pulled back
PAUSE 50

Hold10:
IF (IN10 = 1) THEN Hold10 ' Stay here until switch (pin 1) = low

PAUSE 10
HIGH 8 ' 5-way solenoid = on
PAUSE 200
LOW 8 ' 5-way solenoid = off
PAUSE 35
LOW 3 ' 3-way solenoid = off
LOW 4 ' LED = off
PAUSE 25

GOTO Main

'***************************************************************************