|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 726 (0x2d6)
Types: TextFile
Names: »B«
└─⟦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⟧
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;