|
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 - metrics - downloadIndex: B T
Length: 1645 (0x66d)
Types: TextFile
Names: »B«
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Slot, Brick_Features, Robot_Features, Brick, Robot, Text_Io;
package body Robots_Bricks_Facts is
use Robot_Features, Brick_Features;
procedure Create is
I : Integer := 10;
begin
Robot.Add (With_Values => (Name => Slot.Value ("robot no 1"),
Box => Slot.Value (1),
The_Task => State_Slot_Tasks.Value (Take),
Is_Busy => Slot.Value (False),
Old => Slot.Value (0)));
Robot.Add (With_Values => (Name => Slot.Value ("robot no 2"),
Box => Slot.Value (1),
The_Task => State_Slot_Tasks.Value (Take),
Is_Busy => Slot.Value (False),
Old => Slot.Value (0)));
Text_Io.Put_Line (" total of robots : " &
Slot.Image (Slot.Value (Robot.Cardinality)));
while I <= 19 loop
Brick.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 (" total of Bricks : " &
Slot.Image (Slot.Value (Brick.Cardinality)));
Text_Io.Put_Line (" ");
end Create;
procedure Clear is
begin
Brick.Clear;
Robot.Clear;
end Clear;
end Robots_Bricks_Facts;