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

PROGRAM DEEP(INPUT, OUTPUT);
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.