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

LED PIN 8
GREENLED PIN 7
DWELL CON 1000

' set io01 and 02 as INPUT
INPUT 1
INPUT 2

Main:
  DO
   HIGH LED
   LOW GREENLED
   PAUSE DWELL
   LOW LED
   HIGH GREENLED
   PAUSE DWELL
   DEBUG "."
   ' debug status of PIN1 and 2
   DEBUG ? IN1
   DEBUG ? IN2
  LOOP
END