Modula-2 lists

gistfile1.pas

MODULE struc;

IMPORT SWholeIO;
FROM Storage IMPORT ALLOCATE, DEALLOCATE;

TYPE
  PNode = POINTER TO Node;
  Node = RECORD
     number : CARDINAL;
     next   : PNode;
  END;

VAR n1, n2, p: PNode;

BEGIN
   NEW(n1);
   NEW(n2);

   n1^.number := 10;
   n2^.number := 20;
   n1^.next := n2;
   n2^.next := NIL;

   p := n1;

   WHILE p <> NIL DO
     SWholeIO.WriteCard(p^.number, 5);
     p := p^.next;
   END;

   DISPOSE(n1);
   DISPOSE(n2);
END struc.