bus_passengers.bs2

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

counter VAR WORD 
counter = 0

DO 
	IF (IN3 = 1) THEN 
		counter = counter + 1
	ENDIF 
	PAUSE 50 
	IF (IN7 = 1) THEN 
		counter = counter - 1
	ENDIF 
	PAUSE 50 
	IF (counter <> 0) THEN 'you can also put counter==0 and LOW 10 if not equal to syntax is confusing
		HIGH 10 
	ELSE
		LOW 10 
	ENDIF 
	PAUSE 100
	DEBUG DEC counter, HOME
LOOP