package Loc_Physical_Lines is

    --===================================================================
    -- This package contains definition of LOC physical lines          ==
    -- count and an operation used to change an object of type Count.  ==
    --===================================================================

    type Count is new Natural;
    procedure Change (Number_Of_Physical_Lines : in out Count;
                      With_Delta : in Positive := 1);

end Loc_Physical_Lines;