package body Loc_Blank_Lines is

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

        Number_Of_Blank_Lines := Number_Of_Blank_Lines + Count (With_Delta);

    end Change;

end Loc_Blank_Lines;