home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern4.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  266 b   |  19 lines  |  [TEXT/MPS ]
  1. MODULE Pattern4;
  2.   TYPE
  3.     Ptr = POINTER TO Node;
  4.     Node = RECORD
  5.       num: INTEGER;
  6.       name: ARRAY 8 OF CHAR;
  7.       next: Ptr
  8.     END;
  9.   VAR
  10.     p, q: Ptr;
  11. BEGIN
  12.   NEW(p);
  13.   NEW(q);
  14.   p.num:=6;
  15.   p.name[7]:="0";
  16.   p.next:=q;
  17.   p.next.next:=NIL
  18. END Pattern4.
  19.