Iteration bei BOOLEAN

Beim Datentyp BOOLEAN empfiehlt sich die Verwendung einer REPEAT-Schleife:
i := FALSE;
REPEAT
      Wert aus {FALSE, TRUE} betrachten
      i := ~ i
UNTIL ~ i

FamilieMeier.om

   herr := FALSE;    REPEAT       frau := FALSE;       REPEAT          tim := FALSE;          REPEAT             kay := FALSE;             REPEAT                uwe := FALSE;                REPEAT                   (* Untersuchung der Belegung *)                   uwe := ~uwe;                UNTIL ~uwe;                kay := ~kay;             UNTIL ~kay;             tim := ~tim;          UNTIL ~tim;          frau := ~frau;       UNTIL ~frau;       herr := ~herr;    UNTIL ~herr;