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

⟦23d735b77⟧ TextFile

    Length: 650 (0x28a)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦a7d6dfecb⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦a7d6dfecb⟧ 
            └─⟦this⟧

TextFile

with Catenate_Files;
with Library;
with Rs6000_Remote_Exec;
with System_Utilities;
with Time_Utilities;  
procedure Print (File : String := "<IMAGE>") is
    Temp_Name : constant String :=
       "!local.tmp." & System_Utilities.User_Name &
          Time_Utilities.Image (Date => Time_Utilities.Get_Time,
                                Date_Style => Time_Utilities.Expanded,
                                Time_Style => Time_Utilities.Ada,
                                Contents => Time_Utilities.Time_Only);
begin
    Catenate_Files (File, Temp_Name);
    Rs6000_Remote_Exec.Spool (File => Temp_Name);
    Library.Delete (Temp_Name);
end Print;