Another update from ingydotnet^djgoku

Task/Singly-linked-list-Element-insertion/Modula-3/singly-linked-list-element-insertion.mod3

@@ -0,0 +1,26 @@
+MODULE SinglyLinkedList EXPORTS Main;
+
+TYPE
+  Link = REF LinkRcd;
+  LinkRcd = RECORD
+    Next: Link;
+    Data: INTEGER
+  END;
+
+  PROCEDURE InsertAppend(anchor, next: Link) =
+  BEGIN
+    IF anchor # NIL AND next # NIL THEN
+      next.Next := anchor.Next;
+      anchor.Next := next
+    END
+  END InsertAppend;
+
+VAR
+  a: Link := NEW(Link, Next := NIL, Data := 1);
+  b: Link := NEW(Link, Next := NIL, Data := 2);
+  c: Link := NEW(Link, Next := NIL, Data := 3);
+
+BEGIN
+  InsertAppend(a, b);
+  InsertAppend(a, c)
+END SinglyLinkedList.