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

Index: ┃ B T ┃

⟦c224aa918⟧ TextFile

    Length: 530 (0x212)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧

TextFile

with Slot;
with Output_Stream;
use Slot;
procedure Try_Slot_2 is

    use Slot.Operators;

    -- Test de la fonction "&" ( Left ,Right : Object) Return Object;
    -- dans le paquetage Slot.

    A, D, Space, Est, Grand : Slot.Object;

begin
    A     := Slot.Value ('A');
    D     := Slot.Value ('D');  
    Space := Slot.Value (' ');
    Est   := Slot.Value ("Est");
    Grand := Slot.Value ("GRAND");
    Slot.Put (A & D & A & Space & Est & Space & Grand,
              Output_Stream.Standard_Output);
end Try_Slot_2;