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;
|