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

⟦5cb7f3735⟧ TextFile

    Length: 1183 (0x49f)
    Types: TextFile
    Names: »MONKEY_S«

Derivation

└─⟦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;