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

⟦78befb05f⟧ TextFile

    Length: 747 (0x2eb)
    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

--with B000001m;
with B000002m;
--with B000003m;
--with B000004m;
with Rational_Io;
procedure Tracker is
begin
    --B000001m;
    Rational_Io.Put_Line
       (Item => "B000001 did not compile - unsupported Integer model numbers");
    B000002m;
    Rational_Io.Put_Line
       (Item =>
           "B000002 - replaced unsupported Suppress_All with each Suppress");
    --B000003m;
    Rational_Io.Put_Line
       (Item =>
           "B000003 - replaced unsupported Suppress_All with each Suppress");
    Rational_Io.Put_Line (Item =>
                             "B000003 - did not compile; aborted in back end");
    --B000004m;
    Rational_Io.Put_Line
       (Item => "B000004 did not compile - unsupported Integer model numbers");
end Tracker;