' Auto dog feeder
' dogfeeder.bs2

' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word

PAUSE 1000



CYCLE:
  DEBUG "open Feeder",CR
FOR counter = 1 TO 40
  PULSOUT 14, 050
  PAUSE 20
NEXT

DEBUG "Close Feeder", CR

FOR counter = 1 TO 40
  PULSOUT 14, 750
  PAUSE 20
NEXT

SLEEP 43200

GOTO CYCLE

END
