3 (* This is only a test program *)
5 UNIT VIRTUAL A: SHARED C, SHARED D : K : Z ,E CLASS;
7 UNIT K: D PROCEDURE(INPUT H : CHAR; INOUT P : PROC ) ;
10 UNIT L : D FUNCTION( A,B: INTEGER; OUTPUT P : RESULTAT ):INTEGER;
13 UNIT WEEK : ENUM(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday);
18 CONST A=A QUA B . D + C / A * ( B AND (K+C = KAN)) OR (123 + 234.34 + 256E-5 < 1);
19 VAR H,K,L,LIOP : INET,
23 SIGNAL SIG(A:K; FUNCTION B : RESULTAT;);
27 WHEN N : K QUA C QUA G. C := F;
28 OTHERWISE : Q := COPY(A);
31 A := R QUA C .A QUA B .D;