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: ┃ T V ┃

⟦d4908f511⟧ TextFile

    Length: 1294 (0x50e)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Expertsystem, Monkeyobject;
use Expertsystem, Monkeyobject;
package Monkey is

    type Object is private;

    procedure Make (Is_At : Coordinate;
                    On : Physical_Object := (others => ' ');
                    Holds : Physical_Object := (others => ' '));

    function Is_At (The_Reference : in Expertsystem.Reference)
                   return Coordinate;
    function Is_On (The_Reference : in Expertsystem.Reference)
                   return Physical_Object;
    function Holds (The_Reference : in Expertsystem.Reference)
                   return Physical_Object;

    procedure Modify_Coordinate (The_Reference : in Expertsystem.Reference;
                                 New_Coordinate : in Coordinate);
    procedure Modify_Is_On (The_Reference : in Expertsystem.Reference;
                            New_Object : in Physical_Object);
    procedure Modify_Object_Held (The_Reference : in Expertsystem.Reference;
                                  New_Object : in Physical_Object);

    function Instances return Collection.Object;

    procedure Clear;

    Illegal_Make : exception;

private
    type Object is
        record
            Is_At : Coordinate;
            On : Physical_Object;
            Holds : Physical_Object;
        end record;
end Monkey;