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 ┃

⟦333e80022⟧ TextFile

    Length: 1434 (0x59a)
    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 Physicalobject is

    type Object is private;

    procedure Make (Name : Physical_Object;
                    Is_At : Coordinate;
                    Weight : Weight_Type;
                    On : Physical_Object);

    function Name (The_Reference : in Expertsystem.Reference)
                  return Physical_Object;
    function Is_At (The_Reference : in Expertsystem.Reference)
                   return Coordinate;
    function Weight (The_Reference : in Expertsystem.Reference)
                    return Weight_Type;
    function Is_On (The_Reference : in Expertsystem.Reference)
                   return Physical_Object;

    procedure Modify_Coordinate (The_Reference : in Expertsystem.Reference;
                                 New_Coordinate : in Coordinate);
    procedure Modify_Weight (The_Reference : in Expertsystem.Reference;
                             New_Weight : in Weight_Type);
    procedure Modify_Is_On (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
            Name : Physical_Object;
            Is_At : Coordinate;
            Weight : Weight_Type;
            On : Physical_Object;
        end record;
end Physicalobject;