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

⟦497c0cbc7⟧ TextFile

    Length: 301 (0x12d)
    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« 
        └─⟦9f61d3d83⟧ 
            └─⟦this⟧

TextFile

with Text_Io;
package body Strings is

    type Pstring is access String;


    Error_List : constant array (1 .. 2) of Pstring :=
       (1 => new String'("salut"), 2 => new String'("bonjour"));


    procedure Put is
    begin
        Text_Io.Put_Line (Error_List (1).all);
    end Put;
end Strings;