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

⟦e498444d9⟧ TextFile

    Length: 531 (0x213)
    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

package body Originals is

    procedure Put (B : Block) is
        S : String (1 .. Word'Length);
    begin
        Put ("First = ");
        Put (B.First);

        for N in 1 .. Word'Length loop
            if B.Second (N) = 0 then
                S (N) := '0';
            else
                S (N) := '1';
            end if;
        end loop;

        Put (", Second = ");
        Put (S);
        Put (", Third = ");
        Put (B.Third);
        Put_Line (".");
    end Put;

end Originals;


-- Define the derived types: