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

⟦8bf3e41f0⟧ Ada Source

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

Derivation

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

with Animal;
with Bird;
with Bird_Of_Prey;
with Fish;
with Foot;
with Nest;
with Text_Io;

procedure Test_Animals is
    B1 : Bird.Object := Bird.Create (Bird.It_Self);
    Bop1 : Bird_Of_Prey.Object := Bird_Of_Prey.Create (Bird_Of_Prey.It_Self);
    F1 : Fish.Object := Fish.Create (Fish.It_Self);
    N1 : Nest.Object := Nest.Create (Nest.It_Self);

    A : Animal.Object := Animal.Object (F1);
    Masse : Positive;
    Fo : Foot.Object := Bird.Get_Feet (Bird.Object (Bop1));


begin
    Nest.Set_Place (This_Nest => N1, Number => 2);
    Nest.Image (N1);

    Bird.Set_Nest (This_Bird => B1, This_Nest => N1);
    Bird_Of_Prey.Set_Nest (This_Bird => Bop1, This_Nest => N1);
    Foot.Set_Length (This_Foot => Fo, Cm => 17);
    -- Fish.Swim (F1);
    Fish.Eat (F1);
    -- Bird.Fly (B1);

    -- Animal.Sleep (Animal => Animal.Object (B1), Time => 1.0);
    -- Animal.Sleep (Animal => Animal.Object (F1), Time => 1.0);

    Animal.Set_Mass (This_Animal => A, Kg => 33);
    Bird.Set_Mass (This_Animal => B1, Kg => 3);
    Fish.Set_Fin (This_Fish => F1, Number => 5);
    Bird_Of_Prey.Set_Mass (This_Animal => Bop1, Kg => 9);
    -- Fish.Swim (Fish.Object (A));

    -- Fish.Swim (Fish.Object (B1));

    -- Fish.Image (F1);
    -- Bird.Image (Bird.Object (Bop1));
    --Bird_Of_Prey.Fly (Bop1);
--    Bird_Of_Prey.Sleep (Bop1);
    Bird_Of_Prey.Imag (Bop1);
    -- Fish.Delete (F1);
    -- Animal.Image (A);
    -- Animal.Image (Animal.Object (F1));
    -- Animal.image (Animal.Object (B1));
    Bird.Set_Feather (This_Bird => B1, Number => 502);
    Bird.Image (B1);
    Bird.Delete (B1);
    Nest.Image (N1);


end Test_Animals;

pragma Main;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=23 rec1=00 rec2=01 rec3=032
        [0x01] rec0=1a rec1=00 rec2=02 rec3=001
    tail 0x2153317f085016b41b47a 0x42a00088462060003