home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern3.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  270 b   |  16 lines  |  [TEXT/MPS ]
  1. MODULE Pattern3;
  2.   VAR
  3.     i, j, k, n: INTEGER;
  4.     a: ARRAY 10 OF INTEGER;
  5.     b: ARRAY 10 OF LONGINT;
  6.     x: ARRAY 10, 10 OF INTEGER;
  7.     y: ARRAY 10, 10, 10 OF INTEGER;
  8. BEGIN
  9.   k:=a[i];
  10.   n:=a[5];
  11.   b[i]:=0;
  12.   x[i, j]:=2;
  13.   y[i, j, k]:=3;
  14.   y[3, 4, 5]:=6;
  15. END Pattern3.
  16.