home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern2.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  236 b   |  17 lines  |  [TEXT/MPS ]
  1. MODULE Pattern2;
  2.   VAR
  3.     i, j: INTEGER;
  4.     k, n: LONGINT;
  5.     x, y: REAL;
  6.     s, t, u: SET;
  7. BEGIN
  8.   i:=(j+1)*(j-1);
  9.   k:=ABS(k) DIV 17;
  10.   k:=8*n;
  11.   k:=n DIV 2;
  12.   k:=n MOD 16;
  13.   x:=-y/(x-1.5);
  14.   k:=ENTIER(x);
  15.   s:=s+t*u
  16. END Pattern2.
  17.