Hinweise zu MainWin III

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

WinPath.m2
FROM MainWin IMPORT SetPos, lines, columns, Write, Clear,
   Flush, WriteString, WriteLn, Read;

(* ... *)

PROCEDURE WriteMaze(maze: Maze; width, height: MazeSize);
   VAR
      line, column: MazeIndex;
BEGIN
   SetPos(0, 0);
   FOR line := 0 TO height-1 DO
      FOR column := 0 TO width-1 DO
         Write(maze[line, column]);
      END;
      WriteLn;
   END;
   Flush;
END WriteMaze;

*Selbst Programme, die ursprünglich auf InOut basierten, können rasch an MainWin angepaßt werden.
 

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