test/Test.Mod

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 TYPE
   6         MyArr = ARRAY 3 OF POINTER TO ARRAY 6 OF INTEGER;
   7
   8 VAR
   9         a : MyArr;
  10
  11 BEGIN
  12         Out.Open;
  13
  14         NEW(a[0]);
  15         a[0][0] := 1;
  16         Out.Int(a[0][0], 0);
  17
  18         Out.Ln;
  19         Out.Flush;
  20 END Test.