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 - download

⟦d5ed178e6⟧ TextFile

    Length: 354 (0x162)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Output_Stream;
with Slot;
package Alias is
    type Name is (A, B, C, D, E, F, G, H, I, J, K, L, M,
                  N, O, P, Q, R, S, T, U, V, W, X, Y, Z);
    procedure Set (The_Alias : Name; To : Slot.Object);
    function  Get (The_Alias : Name) return Slot.Object;
    procedure Put (The_Alias : Name; Where : Output_Stream.Object);
end Alias;