' {$STAMP BS2} ' {$PBASIC 2.5} DO IF (IN0 = 0) THEN DEBUG "Left", CR IF (IN1 = 0) THEN DEBUG "Down", CR IF (IN2 = 0) THEN DEBUG "Right", CR IF (IN3 = 0) THEN DEBUG "Center", CR IF (IN4 = 0) THEN DEBUG "Up", CR PAUSE 200 LOOP