home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern1.mod next >
Encoding:
Text File  |  1995-10-30  |  227 b   |  21 lines  |  [TEXT/MPS ]
  1. MODULE Pattern1;
  2.   VAR
  3.     ch: CHAR;
  4.     i: SHORTINT;
  5.     j: INTEGER;
  6.     k: LONGINT;
  7.     x: REAL;
  8.     s: SET;
  9. BEGIN
  10.   ch:="0";
  11.   i:=10;
  12.   j:=1000;
  13.   k:=0;
  14.   x:=1.5;
  15.   s:={0, 5, 8};
  16.   j:=j;
  17.   k:=i;
  18.   k:=j;
  19.   x:=j
  20. END Pattern1.
  21.