DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦5c39b5c45⟧ TextFile

    Length: 1857 (0x741)
    Types: TextFile
    Names: »B«

Derivation

└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

with Context;
with Engine_First;
with Instance;
with Robots_Briques_Actions, Robots_Briques_Conditions,
     Robots_Briques_Facts, Slot, Text_Io;
use Robots_Briques_Actions, Robots_Briques_Conditions, Robots_Briques_Facts;
with Frame_Robots_Briques;
use Frame_Robots_Briques;

package body Robots_Briques_Facts_Bak is

    procedure Create is
        use Robot_Features, Brique_Features;
        I : Integer := 10;
    begin
        Robot.Add (With_Values => (Name    => Slot.Value ("robot no 1"),
                                   Box     => Slot.Value (1),
                                   T_Ask   => State_Slot_Tasks.Value (Get),
                                   Is_Busy => Slot.Value (False),
                                   Old     => Slot.Value (0)));
        Robot.Add (With_Values => (Name    => Slot.Value ("robot no 2"),
                                   Box     => Slot.Value (1),
                                   T_Ask   => State_Slot_Tasks.Value (Get),
                                   Is_Busy => Slot.Value (False),
                                   Old     => Slot.Value (0)));
        Text_Io.Put_Line (" Nb robots : " &
                          Slot.Image (Slot.Value (Robot.Cardinality)));

        while I <= 19 loop
            Brique.Add (With_Values =>
                           (Size   => Slot.Value (I),
                            Colour => State_Slot_Colours.Value (Pink),
                            Place  => In_The_Heap,
                            Boite  => Slot.Value (1)));
            I := I + 1;
        end loop;
        Text_Io.Put_Line (" ");
        Text_Io.Put_Line (" Nb briques : " &
                          Slot.Image (Slot.Value (Brique.Cardinality)));

    end Create;


    procedure Delete is
    begin
        Brique.Clear;
        Robot.Clear;
    end Delete;


end Robots_Briques_Facts_Bak;