IMPLEMENTATION MODULE TLib;
PROCEDURE Move(VAR p : Point; dx, dy : INTEGER);
BEGIN
  p.x := p.x + dx;
  p.y := p.y + dy
END Move;
END TLib.