M2compiler-V1/tests/t_libimpl.LST

Listing:

    1  IMPLEMENTATION MODULE TLib;
    2  PROCEDURE Move(VAR p : Point; dx, dy : INTEGER);
    3  BEGIN
    4    p.x := p.x + dx;
    5    p.y := p.y + dy
    6  END Move;
    7  END TLib.

    0 errors