Theia-Modula-2/grammars/P4/tests/deep.pas

PROGRAM Deep;
LABEL 10;
CONST N = 10;
  Neg = -5;
  Pi = 3.14159;
  Hello = 'hi';
TYPE
  IntArr = ARRAY [1..10] OF INTEGER;
  Matrix = ARRAY [0..1, 0..2] OF INTEGER;
  Point = RECORD x, y: INTEGER END;
  Color = (red, green, blue);
  PInt = ^INTEGER;
  Small = 0..255;
VAR
  i, j: INTEGER;
  ch: CHAR;
  b: BOOLEAN;
  r: REAL;
  a: IntArr;
  pt: Point;
  col: Color;
  p: PInt;
FUNCTION Sum(a, b: INTEGER): INTEGER;
BEGIN
  Sum := a + b
END;
FUNCTION IsOdd(n: INTEGER): BOOLEAN;
BEGIN
  IsOdd := ODD(n)
END;
PROCEDURE Fill(VAR a: IntArr; Value: INTEGER);
VAR k: INTEGER;
BEGIN
  FOR k := 1 TO N DO a[k] := Value
END;
BEGIN
  FOR i := 1 TO N DO a[i] := i;
  WHILE i < N DO i := i + 1;
  REPEAT
    CASE i OF
      1: Write(1);
      2, 3: Write(2)
    END;
  UNTIL i > N;
  col := red;
  pt.x := Sum(1, 2);
  p := NIL;
  10: i := 0;
  IF IsOdd(i) THEN GOTO 10;
  r := 1.5E-3;
  b := (i = 1) AND (j <> 2) OR NOT b;
  Fill(a, 0);
  WriteLn('done')
END.