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 - download
Index: ┃ B T ┃

⟦8cc2ebbf5⟧ TextFile

    Length: 1721 (0x6b9)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧

TextFile

with Bbr_Attributes;
with Bbr_Do_Action;
with Bbr_Frames;
with Bbr_Kbs;
with Output_Stream;

with Bbr_General_Bundle;
with Bbr_Painting_Bundle;

use Bbr_Attributes;
use Bbr_Frames;
use Bbr_Kbs;
use Output_Stream;

procedure Bbr_Test is

    procedure Load_Initial_Working_Memory is
    begin
        Robots.Add ((Colour => Green, State => Free));
        Robots.Add ((Colour => Red, State => Busy));
        Robots.Add ((Colour => Red, State => Free));
        Robots.Add ((Colour => Blue, State => Free));
        Robots.Add ((Colour => Green, State => Busy));

        Balls.Add ((Size => 50, Colour => Blue, Place => On_Heap));
        Balls.Add ((Size => 75, Colour => Green, Place => On_Heap));
        Balls.Add ((Size => 95, Colour => Red, Place => On_Heap));
        Balls.Add ((Size => 100, Colour => Blue, Place => On_Heap));

        Boxes.Add ((Size => 750, Colour => Red, State => Free));
        Boxes.Add ((Size => 10000, Colour => Green, State => Free));
        Boxes.Add ((Size => 150, Colour => Red, State => Busy));
    end Load_Initial_Working_Memory;
    procedure Play_With_Balls_Boxes_And_Robots is
       new Kbs.Rule_Base.Infere (Do_Action => Bbr_Do_Action);
begin
    Load_Initial_Working_Memory;

    Kbs.Fact_Base.Put (Standard_Output);
    New_Line (Standard_Output);

    for I in 1 .. Kbs.Rule_Base.Count loop
        Kbs.Rule_Base.Put (I, Standard_Output);
    end loop;
    Bbr_General_Bundle.Do_Action (Kbs.Rule_Base.No_Rule,
                                  Kbs.Fact_Base.Empty_Collection);
    Bbr_Painting_Bundle.Do_Action (Kbs.Rule_Base.No_Rule,
                                   Kbs.Fact_Base.Empty_Collection);
    -- Play_With_Balls_Boxes_And_Robots;
end Bbr_Test;
pragma Main;