|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1857 (0x741)
Types: TextFile
Names: »B«
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
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;