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

⟦ea0bfb955⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Behav_Ex, seg_027fbf

Derivation

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

E3 Source Code



with Umps_Message;  
with Socket_Port;
with Text_Io;

procedure Behav_Ex is  
    Saisie   : String (1 .. 100);
    Nb_Saisi : Natural;
    Result   : Boolean;
    S        : Socket_Port.Object;
begin
    Text_Io.Put_Line ("Before Umps_Message.Init");
    Umps_Message.Init (S);
    Text_Io.Put_Line ("After Umps_Message.Init");
    loop  
        Text_Io.Put_Line ("Saisie :");
        Text_Io.Get_Line (Saisie, Nb_Saisi);
        Umps_Message.Put (Saisie (1 .. Nb_Saisi), Result);
        Text_Io.Put_Line ("fin saisie.");
    end loop;
end Behav_Ex;


pragma Main;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=19 rec1=00 rec2=01 rec3=000
    tail 0x2172207ee83ad81f98e3c 0x42a0008846207f403