separate (File_Name_Package)
procedure Read_Over_Blanks (First_Non_Blank : out Character) is
    --==============================================================
    -- This procedure reads over blank characters in the input     =
    -- until either a non-blank character is found or the end of   =
    -- line is found. If the end of line is found, then raise the  =
    -- exception No_More_File_Names.                               =
    --                                                             =
    -- written  by  Gary Russell at EVB Software Engineering Inc.  =
    -- Reviewed by Brad Balford and Johan Margono                  =
    -- May 1985                                                    =
    --==============================================================

    Input_Character : Character;
    -- The Character read in with Text_IO

begin
    -- Read_Over_Blanks

    Leading_Characters:
        loop
            if Text_Io.End_Of_Line then
                raise No_More_File_Names;
            end if;

            Text_Io.Get (Input_Character);

            exit Leading_Characters when Input_Character /= ' ';
        end loop Leading_Characters;

    First_Non_Blank := Input_Character;
exception
    when Text_Io.End_Error =>
        raise No_More_File_Names;
end Read_Over_Blanks;