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

forw VAR Word
back VAR Word
left VAR Word
right VAR Word
up VAR Word
down VAR Word

HIGH 5
DO
PULSOUT 4, 1200
SEROUT 4, 16468, ["!", forw.HIGHBYTE, forw.LOWBYTE, back.HIGHBYTE, back.LOWBYTE, left.HIGHBYTE, left.LOWBYTE, right.HIGHBYTE, right.LOWBYTE, up.HIGHBYTE, up.LOWBYTE, down.HIGHBYTE, down.LOWBYTE]

IF (IN0=0) THEN
forw=1
ELSE
forw=0
ENDIF

IF (IN3=0) THEN
back=1
ELSE
back=0
ENDIF

IF (IN2=0) THEN
left=1
ELSE
left=0
ENDIF

IF (IN1=0) THEN
right=1
ELSE
right=0
ENDIF

IF (IN14=0) THEN
up=1
ELSE
up=0
ENDIF

IF (IN11=0) THEN
down=1
ELSE
down=0
ENDIF

LOOP