DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦fbdf5e605⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Text_Io, seg_05c14d, seg_05c2ae

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Text_Io_8;
procedure Test_Text_Io is
    package Text_Io renames Text_Io_8;
    Fil_Gen, Fil_Out, Fil_In : Text_Io.File_Type;
begin
    Text_Io.Open (File => Fil_Gen, Name => "a");
    Text_Io.Put_Line (File => Fil_Gen, Item => "Coucou");
    Text_Io.Put (File => Fil_Gen, Item => "Coucou");
    Text_Io.New_Line (File => Fil_Gen);
    Text_Io.Put_Line (File => Fil_Gen, Item => "Coucou");
    Text_Io.Put (File => Fil_Gen, Item => 'C');
    Text_Io.Put (File => Fil_Gen, Item => 'o');
    Text_Io.Put (File => Fil_Gen, Item => 'u');
    Text_Io.Put (File => Fil_Gen, Item => 'c');
    Text_Io.Put (File => Fil_Gen, Item => 'o');
    Text_Io.Put (File => Fil_Gen, Item => 'u');
    Text_Io.New_Line (File => Fil_Gen);
    Text_Io.Open (File => Fil_Out, Name => "2");
    Text_Io.Set_Output (File => Fil_Out);
    Text_Io.Put_Line (Item => "Coucou");
    Text_Io.Put (Item => "Coucou");
    Text_Io.New_Line;
    Text_Io.Put_Line (Item => "Coucou");
    Text_Io.Put (Item => 'C');
    Text_Io.Put (Item => 'o');
    Text_Io.Put (Item => 'u');
    Text_Io.Put (Item => 'c');
    Text_Io.Put (Item => 'o');
    Text_Io.Put (Item => 'u');
    Text_Io.New_Line;
    declare
        Car : Character;
    begin
        Text_Io.Put_Line ("Entrez 10 car. (de 2 vers 5)");
        Text_Io.Set_Input (File => Fil_Gen);
        for I in 1 .. 10 loop
            Text_Io.Get (Item => Car);
            Text_Io.Put (Item => Car);
        end loop;  
    end;
    declare
        S : String (1 .. 10);
        L : Natural;
    begin
        Text_Io.Put_Line ("Changez de console");
        Text_Io.Set_Input (File => Fil_Out);
        Text_Io.Put_Line ("Entrez moins de 10 car. (de 5 vers 5)");
        Text_Io.Get_Line (Item => S, Last => L);
        Text_Io.Put_Line (">>>" & S (1 .. L) & "<<<");
        Text_Io.Put_Line ("Entrez 10 car. (de 5 vers 5)");
        Text_Io.Get (Item => S);
        Text_Io.Put_Line (">>>" & S & "<<<");
    end;
end Test_Text_Io;
pragma Main;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=19 rec1=00 rec2=01 rec3=01c
        [0x01] rec0=1c rec1=00 rec2=02 rec3=05a
        [0x02] rec0=04 rec1=00 rec2=03 rec3=000
    tail 0x2176b7f70895a680eaffe 0x42a00088462060003