Wegsuche im Labyrinth II

PROCEDURE Find(x, y: MazeIndex; dir: Direction) : Direction;
BEGIN
   dir := PreviousDirection(dir);
   LOOP
      IF ~Wall(x, y, dir) THEN
         RETURN dir
      END;
      dir := NextDirection(dir);
   END;
END Find;