Hinweise zu MainWin II

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

Chaos.m2
MODULE Chaos;

   FROM RandomGenerator IMPORT Random, Flip;
   FROM MainWin IMPORT SetPos, Write, lines, columns, Flush;

BEGIN
   LOOP
      SetPos(Random(0, lines-1), Random(0, columns-1));
      IF Flip() THEN
         Write("X");
      ELSE
         Write(" ");
      END;
      Flush;
   END;
END Chaos.

*MainWin kennt zwei Bildschirminhalte: den für den Benutzer sichtbaren und den internen.
 
*Alle Schreib-Operationen operieren zunächst nur auf dem internen Bildschirminhalt.
 
*Der sichtbare Bildschirm wird dann aktualisiert, wenn etwas gelesen wird, die Operation Flush ausgeführt wird oder das Programm endet.
 

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