home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern5.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  323 b   |  25 lines  |  [TEXT/MPS ]
  1. MODULE Pattern5;
  2.   VAR
  3.     x: INTEGER;
  4.     s: SET;
  5. BEGIN
  6.   IF x=0 THEN
  7.     INC(x)
  8.   END;
  9.   IF (x>=0) & (x<100) THEN
  10.     DEC(x)
  11.   END;
  12.   IF ODD(x) OR (x IN s) THEN
  13.     INCL(s, 4)
  14.   END;
  15.   IF x<0 THEN
  16.     EXCL(s, 0)
  17.   ELSIF x<10 THEN
  18.     EXCL(s, 1)
  19.   ELSIF x<100 THEN
  20.     EXCL(s, 2)
  21.   ELSE
  22.     EXCL(s, 3)
  23.   END
  24. END Pattern5.
  25.