Musterlösung zu Aufgabe 8 -- Labyrinth.d

DEFINITION MODULE Labyrinth;

CONST	Lines = 20;
	Columns = 40;

TYPE 	Labyrinth = ARRAY[0..Lines-1], [0..Columns] OF CHAR;

PROCEDURE ShowLab(lab : Labyrinth);
(*
 *  Gibt das Labyrinth am Terminal aus. Kann fuer Kontrollausgaben verwendet
 *  werden. Die Ausgabe kann mit ReadKey angehalten werden.
 *)

PROCEDURE ReadKey() : CHAR;
(*
 *  Liest ein Zeichen und liefert dieses zurueck. Das Einlesen erfolgt 
 *  ungepuffert, d.h. es wird nicht bis zum naechsten Return gewartet, 
 *  sondern das Zeichen wird sofort zurueckgeliefert. ReadKey "wartet" 
 *  bis ein Zeichen eingegeben wurde.
 *)

PROCEDURE ErrMesg(msg : ARRAY OF CHAR);
(*  
 *  ErrMesg gibt eine Fehlermeldung am Terminal aus und terminiert das Programm
 *)

END Labyrinth.