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

⟦c4e995786⟧ TextFile

    Length: 579 (0x243)
    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 H000001;
with H000002;
with H000003;
with H000004;
with H000005;
with H000006;
with H000007;
--with H000008;
with H000009;
with Rational_Io;
procedure Chapter_13 is
begin
    H000001;
    H000002;
    H000003;
    H000004;
    H000005;
    H000006;
    begin
        H000007;
    exception
        when Program_Error =>
            Rational_Io.Put_Line
               ("H000007 raised program error due to incorrect code");
    end;
    --H000008;
    Rational_Io.Put_Line
       (Item => "H000008 did not compile - component clause too small");
    H000009;
end Chapter_13;