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

⟦de790d9ba⟧ TextFile

    Length: 649 (0x289)
    Types: TextFile
    Names: »B«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Bounded_String;
with Class_Integer;
with Class_String;
with Object;
with String_Utilities;
with Text_Io;

procedure Essai_Strip is
    Chaine : Object.Tiny_String;
    Objet : Object.Reference;
begin
    Objet := Object.Create (Object.Integer_Class, 23);
    Chaine := Class_Integer.Image (Objet);
    Text_Io.Put (Bounded_String.Image (Chaine));
    Text_Io.New_Line;

    Bounded_String.Copy (Chaine, "ghfd-+ gfhg");
    Text_Io.Put (Bounded_String.Image (Chaine));
    Text_Io.New_Line;

    Objet := Class_Integer.Value (Chaine);
    Chaine := Class_Integer.Image (Objet);
    Text_Io.Put (Bounded_String.Image (Chaine));

end Essai_Strip;