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

⟦60b081cb9⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test2, seg_054c37

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;
with H_Code_Tab;
with Gestion_Table;
with Liste;
with V_String;

procedure Test2 is
    Serv1, Serv2, Serv3 : Integer;
    Ma_Table : H_Code_Tab.Map;
    A, B, C : Natural;
    Reussia, Reussib, Reussic : Boolean;
    Une_Liste : Liste.List;
begin
    Gestion_Table.Init_Tab_B;
    -- enregistrement des differents serviteurs
    Serv1 := Gestion_Table.Add_Item_Tab_A
                (V_String.Value ("406406"), V_String.Value ("Sochaux"));
    Serv2 := Gestion_Table.Add_Item_Tab_A
                (V_String.Value ("106106"), V_String.Value ("Mulhouse"));
    Serv3 := Gestion_Table.Add_Item_Tab_A
                (V_String.Value ("205205"), V_String.Value ("Espagne"));

    -- declaration des services
    Gestion_Table.Add_Service_Tab_B ("vente auto", Serv1);
    Gestion_Table.Add_Service_Tab_B ("reparation auto", Serv1);
    Gestion_Table.Add_Service_Tab_B ("reprise auto", Serv1);
    Gestion_Table.Add_Service_Tab_B ("vente auto", Serv2);
    Gestion_Table.Add_Service_Tab_B ("pompiste", Serv2);
    Gestion_Table.Add_Service_Tab_B ("vente auto", Serv3);
    Gestion_Table.Add_Service_Tab_B ("reparation auto", Serv3);

    -- presentation des tables A et B
    Gestion_Table.Affichetaba;
    Gestion_Table.Disable (Serv2);
    Gestion_Table.Affichetaba;
    Gestion_Table.Affiche_Liste
       (Gestion_Table.Return_Liste_Tab_B ("vente auto"));
    Gestion_Table.Affiche_Liste (Gestion_Table.Return_Liste_Tab_B ("pompiste"));
    Gestion_Table.Affiche_Liste
       (Gestion_Table.Return_Liste_Tab_B ("reparation auto"));
    Gestion_Table.Affiche_Liste
       (Gestion_Table.Return_Liste_Tab_B ("reprise auto"));
    -- Text_Io.Put_Line
    --   ("0eme serveur pour vente auto : " &
    --   Integer'Image
    --   (Gestion_Table.Return_Contenu_Liste_Position
    --      (Gestion_Table.Return_Liste_Tab_B ("vente auto"), 0)));
    -- Text_Io.Put_Line
    --  ("1er serveur pour vente auto : " &
    --  Integer'Image
    --  (Gestion_Table.Return_Contenu_Liste_Position
    --    (Gestion_Table.Return_Liste_Tab_B ("vente auto"), 1)));
    -- Text_Io.Put_Line
    -- ("2eme serveur pour vente auto : " &
    -- Integer'Image
    --  (Gestion_Table.Return_Contenu_Liste_Position
    --   (Gestion_Table.Return_Liste_Tab_B ("vente auto"), 2)));
    -- Text_Io.Put_Line
    --  ("3eme serveur pour vente auto : " &
    --  Integer'Image
    --  (Gestion_Table.Return_Contenu_Liste_Position
    --   (Gestion_Table.Return_Liste_Tab_B ("vente auto"), 3)));
    --Text_Io.Put_Line
    -- ("4eme serveur pour vente auto : " &
    -- Integer'Image
    --  (Gestion_Table.Return_Contenu_Liste_Position
    --    (Gestion_Table.Return_Liste_Tab_B ("vente auto"), 4)));


    -- Gestion_Table.Init_Tab_B;
    -- Gestion_Table.Add_Service_Tab_B ("voiture", 205);
    -- Gestion_Table.Add_Service_Tab_B ("moto", 125);
    -- Gestion_Table.Add_Service_Tab_B ("voiture", 325);
    -- Gestion_Table.Add_Service_Tab_B ("moto", 250);
    -- Gestion_Table.Add_Service_Tab_B ("moto", 750);
    -- Gestion_Table.Add_Service_Tab_B ("moto", 1100);
    -- Gestion_Table.Add_Service_Tab_B ("spacecar", 7);
    -- Gestion_Table.Add_Service_Tab_B ("voiture class", 104);
    -- Gestion_Table.Affiche_Liste (Gestion_Table.Return_Liste_Tab_B ("voiture"));
    -- Gestion_Table.Affiche_Liste (Gestion_Table.Return_Liste_Tab_B ("spacecar"));
    -- Gestion_Table.Affiche_Liste (Gestion_Table.Return_Liste_Tab_B ("moto"));
    -- Gestion_Table.Affiche_Liste
    --    (Gestion_Table.Return_Liste_Tab_B ("voiture class"));

    -- A := Gestion_Table.Add_Item_Tab_A
    --        (V_String.Value ("chaufeur"), V_String.Value ("maison chauf"));
    --Text_Io.Put_Line (Integer'Image (A) & "  <--------- insertion completed");
    --A := Gestion_Table.Add_Item_Tab_A
    --        (V_String.Value ("serviteur"), V_String.Value ("hotel serv"));
    --Text_Io.Put_Line (Integer'Image (A) & "  <--------- insertion completed");
    --Gestion_Table.Affichetaba;



    --  -------------------------------------------- --C := 0;
    --A := 0;
    --B := 0;
    --H_Code_Tab.Initialize (Ma_Table);
    --H_Code_Tab.Make_Empty (Ma_Table);
    --H_Code_Tab.Define (Ma_Table, "anne", 5);
    --H_Code_Tab.Define (Ma_Table, "franck", 4);
    --H_Code_Tab.Find (Ma_Table, "anne", A, Reussia);
    --H_Code_Tab.Find (Ma_Table, "franck", B, Reussib);
    --H_Code_Tab.Find (Ma_Table, "bidon", C, Reussic);
    --Text_Io.Put_Line ("anne :" & Boolean'Image (Reussia) & Natural'Image (A));
    --Text_Io.Put_Line ("franck :" & Boolean'Image (Reussib) & Natural'Image (B));
    --Text_Io.Put_Line ("bidon :" & Boolean'Image (Reussic) & Natural'Image (C));

end Test2;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1c rec1=00 rec2=01 rec3=074
        [0x01] rec0=17 rec1=00 rec2=02 rec3=020
        [0x02] rec0=18 rec1=00 rec2=03 rec3=024
        [0x03] rec0=10 rec1=00 rec2=04 rec3=072
        [0x04] rec0=15 rec1=00 rec2=05 rec3=000
    tail 0x2175d966e87b8864c9653 0x42a00088462060003