DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦94c3b1320⟧ TextFile

    Length: 963 (0x3c3)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧

TextFile

separate (Inquiry_Operations)

--  This procedure abstracts the output function.  It uses the
--    settings on PUT_ATTRIBUTES to print to a specified file, while
--    LIST_STATISTICS prints to the screen.

procedure Save_Statistics is
    File : Io_Package.File_Record_Type;
    Unit : Unit_Name_Type;
begin
    Io_Package.Get_File_Name (File);
    if File.File_Name /= Blank_File_Name then
        Io_Package.Open_File (File, Out_File);
        New_Line (Standard_Output);
        Set_Output (File.Internal_Name);
        List_Statistics;
        Set_Output (Standard_Output);
        Io_Package.Close_File (File);
        New_Line;
    end if;
exception
    when others =>
        Set_Output (Standard_Output);
        New_Line (Standard_Output);
        Put (Standard_Output, "*** Having problems with ");
        Put_Line (Standard_Output, File.File_Name);
end Save_Statistics;
--*****************************************************************************