package body Loc_Physical_Lines is

    procedure Change (Number_Of_Physical_Lines : in out Count;
                      With_Delta : in Positive := 1) is
    begin
        -- Change

        Number_Of_Physical_Lines :=
           Number_Of_Physical_Lines + Count (With_Delta);

    end Change;

end Loc_Physical_Lines;