Insert a record at the end of a list
procedure tailins ( rec : list; var first,last : list ); begin if first = nil then first := rec else last^.next := rec; last := rec end;
Pascal
source (42.ins.p)
©
Addison-Wesley
Publishing Co. Inc.