PROGRAM TEST;

(* This is only a test program *)

UNIT VIRTUAL A: SHARED C, SHARED D : K : Z ,E CLASS;

  UNIT K: D PROCEDURE(INPUT H : CHAR; INOUT P : PROC ) ;
  END K;

  UNIT L : D FUNCTION( A,B: INTEGER; OUTPUT P : RESULTAT ):INTEGER;
  END L;

  UNIT WEEK : ENUM(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday);
  END WEEK;

END;

CONST A=A QUA B . D + C / A * ( B AND (K+C = KAN)) OR (123 + 234.34 + 256E-5 < 1);
VAR H,K,L,LIOP : INET,
    A,C,E : INTEGER,
    BRK,RCS : OBJ;

SIGNAL SIG(A:K; FUNCTION B : RESULTAT;);

HANDLERS
  WHEN I : A  := B;
  WHEN N : K QUA C QUA G. C := F;
  OTHERWISE : Q := COPY(A);
END HANDLERS;
BEGIN
  A := R QUA C .A QUA B .D;
  A := "ABCD";
  STOP;
  WHILE A
  DO
  IF B <> 6 THEN
     IF K =/= 5 THEN
       ARRAY A DIM (1:6);
     ELSE
       A := NEW ARRAY(1,6);
     FI
  FI
  OD
END;