Einlesen eines Labyrinths VI

 [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

PathFinder.m2
WHILE Fgetc(ch, input) DO
   IF ch = nl THEN
      (* ... *)
   ELSE
      IF ch = space THEN
         IF line = 0 THEN
            WriteString("Bitte keinen Eingang in der");
            WriteString("1. Zeile!"); WriteLn;
            RETURN FALSE
         ELSIF column = 0 THEN
            IF entryFound THEN
               WriteString("Mehr als einen Eingang ");
               WriteString("gefunden!"); WriteLn;
               RETURN FALSE
            ELSE
               entry := line; entryFound := TRUE;
            END;
         ELSIF column = width-1 THEN
            IF exitFound THEN
               WriteString("Mehr als einen Ausgang ");
               WriteString("gefunden!"); WriteLn;
               RETURN FALSE
            ELSE
               exit := line; exitFound := TRUE;
            END;
         END;
         spaceSeen := TRUE;
      ELSIF column = 0 THEN
         spaceSeen := FALSE;
      END;
      (* ... *)
   END;
END;

 [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 04.02.1999