|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 802 (0x322)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
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;