oberon0-0.0.1: example/prog2ok.ob

MODULE prog2;
CONST X = 1;
      Y = 2;
TYPE tipo = INTEGER;
VAR x, y, j : tipo; b: BOOLEAN;
BEGIN
        b := X = 3;
        x := 2;
        CASE x OF
         X,2,10 : j := 0 |
         Y .. 10 : j := 1 
         ELSE j := 10
        END;
        WHILE j < 10 DO 
           j := j+1;
           b := ~b
        END;
        y := 0;
        FOR x := 1 TO j DO
           y := y + x * Y 
        END
END prog2.