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.
