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 ┃

⟦e21ba15cd⟧ TextFile

    Length: 726 (0x2d6)
    Types: TextFile
    Names: »B«

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⟧

TextFile

with Bounded_String;
with Sequential_Io;
with Text_Io;


procedure Ajoute is
    A : Bounded_String.Variable_String (20);
    B : Bounded_String.Variable_String (20);
    C : Bounded_String.Variable_String (20);
begin
    Bounded_String.Insert (A, 1, 'a', 1);
    Bounded_String.Insert (B, 1, 'b', 2);
    Bounded_String.Append (B, A);
    Bounded_String.Append (C, B);
    Bounded_String.Append (C, A);  
    Text_Io.Put_Line (Bounded_String.Image (A));
    Text_Io.Put_Line (Bounded_String.Image (B));
    Text_Io.Put_Line (Bounded_String.Image (C));
    Bounded_String.Free (C);
    Text_Io.Put_Line (Bounded_String.Image (C));
    Bounded_String.Append (C, A);
    Text_Io.Put_Line (Bounded_String.Image (C));
end Ajoute;