with Io;
with File_Location;
with Time_Utilities;
procedure Get_Login_Message is
    --
    The_File : Io.File_Type;
    Total_Messages : Natural;
    --
    function Random_Number return Natural is
        The_Time : Time_Utilities.Time := Time_Utilities.Get_Time;
    begin
        return Natural (The_Time.Second);
    end Random_Number;
    --
begin
    Io.Open (The_File, Io.In_File, File_Location);
    Io.Get (The_File, Total_Messages);
    Io.Skip_Line
       (The_File,
        Spacing => Io.Positive_Count (Random_Number mod Total_Messages + 1));
    Io.Put_Line (Io.Standard_Error, Io.Get_Line (The_File));
    Io.Close (The_File);
exception
    when others =>
        Io.Put_Line (Io.Standard_Error,
                     "Get_Login_Message is not working today...");
end Get_Login_Message;