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

⟦93b6e319f⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Counters, seg_045685

Derivation

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

E3 Source Code



with Counters, Text_Io;

procedure Test_Counters is
    Ok : Boolean;
begin
    Counters.Create ("compteur1", 10);
    Counters.Create ("Vie_joueur", 4);
    Counters.Create ("compteur2", 100);
    Counters.Create ("a_cptr", -10);
    Counters.Create ("petrol", 16);
    Counters.Create ("Bonne_hauteur");
    Counters.Create ("longueur");

    if Counters.Exists ("compteur1") then
        Counters.Set_Value ("compteur1", 12);
    end if;
    if Counters.Exists ("a_cptr") then
        Counters.Set_Value ("a_cptr", 1);
    end if;

    if Counters.Exists ("longueur") then
        Counters.Set_Value ("longueur", 128);
    end if;

    if Counters.Exists ("compteur2") then
        Counters.Set_Value ("compteur2", 23);
    end if;

    if Counters.Exists ("Vie_joueur") then
        Counters.Set_Value ("Vie_joueur", -55);
    end if;

    if Counters.Exists ("petrol") then
        Counters.Set_Value ("petrol", -2);
    end if;

    if Counters.Exists ("Bonne_hauteur") then
        Counters.Set_Value ("Bonne_hauteur", 11);
    end if;

    if Counters.Exists ("Ne_doit_pas_exister") then
        Counters.Set_Value ("Ne_doit_pas_exister", 22);
    end if;

    if Counters.Exists ("Ne_doit_pas_exister") then
        Text_Io.Put_Line (Integer'Image
                             (Counters.Get_Value ("Ne_doit_pas_exister")));
    end if;

    Counters.Set_Value ("Vie_joueur", Counters.Get_Value ("Vie_joueur") + 1);
    if Counters.Exists ("Vie_joueur") then
        Text_Io.Put_Line (Integer'Image (Counters.Get_Value ("Vie_joueur")));
    end if;

end Test_Counters;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=26 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=13 rec1=00 rec2=02 rec3=001
    tail 0x21541bb9c864b34356c7c 0x42a00088462060003