Musterlösung zu Aufgabe 8 -- Labyrinth.m2

IMPLEMENTATION MODULE Labyrinth;

FROM MainWin IMPORT SetPos, WriteLn, WriteString, Read;
FROM SysExit IMPORT Exit;


(* -------------------------------------------- *)

PROCEDURE ShowLab(lab : Labyrinth);
VAR zeile : CARDINAL;
ch : CHAR;
BEGIN
    zeile := 0;
    SetPos(0, 0);
    FOR zeile := 0 TO Lines-1 DO
	WriteString(lab[zeile]); WriteLn;
    END;
END ShowLab;

(* -------------------------------------------- *)

PROCEDURE ReadKey() : CHAR;
VAR ch : CHAR;
BEGIN
    Read(ch);
    RETURN ch;
END ReadKey;

PROCEDURE Quit();
VAR msg : ARRAY[0..255] OF CHAR;
BEGIN
    Exit(1);
END Quit;

(* -------------------------------------------- *)

PROCEDURE ErrMesg(msg : ARRAY OF CHAR);
BEGIN
    WriteLn;
    WriteString(msg); WriteLn; 
    Exit(1);
END ErrMesg;

BEGIN
END Labyrinth.