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 ┃

⟦63b759409⟧ TextFile

    Length: 875 (0x36b)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧

TextFile

with Many_Objects_Kbs;
use Many_Objects_Kbs;
package Many_Objects_Frames is

    type State_Slots is (Value, Max_Objects, Max_Iterations);
    package States is
       new Kbs.Fact_Base.Generic_Class (Class_Name => State,  
                                        Class_Size => 1,  
                                        Slot_Names => State_Slots);

    type Object_Slots is (X, Y);
    package Objects is
       new Kbs.Fact_Base.Generic_Class (Class_Name => Object,
                                        Class_Size => 200,
                                        Slot_Names => Object_Slots);

    type Number_Slots is (Value);
    package Numbers is
       new Kbs.Fact_Base.Generic_Class (Class_Name => Number,  
                                        Class_Size => 100,  
                                        Slot_Names => Number_Slots);

end Many_Objects_Frames;