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

⟦38428995f⟧ Ada Source

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

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 Dynamic_Value, Text_Io;

procedure Test_Value2 is
    use Dynamic_Value;
    V1, V2, V3, V4 : Object;

begin
    Set_Value (V1, "essai");
    Text_Io.Put ("v1 vaut");
    Print (V1);
    Text_Io.New_Line;
    Set_Value (V2, 10);
    Text_Io.Put ("v2 vaut");
    Print (V2);
    Text_Io.New_Line;
    Set_Value (V3, True);
    Text_Io.Put ("v3 vaut");
    Print (V3);
    Text_Io.New_Line;
    Set_Value (V4, True);
    Text_Io.Put ("v4 vaut");
    Print (V4);
    Text_Io.New_Line;

    Logical_Not (V3, V3);
    Text_Io.Put ("v3 apres not vaut");
    Print (V3);
    Text_Io.New_Line;
    Logical_And (V3, V4, V4);
    Text_Io.Put ("v3 and v4 vaut ");
    Print (V4);
    Text_Io.New_Line;

end Test_Value2;

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=24 rec1=00 rec2=01 rec3=000
    tail 0x215444868865390082efa 0x42a00088462060003