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 ┃

⟦dc63677ab⟧ TextFile

    Length: 1090 (0x442)
    Types: TextFile
    Names: »V«

Derivation

└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

with Slot, Frame;
package Frame_Examples is
    package Ball_Features is
        In_The_Heap : constant Slot.Object := Slot.Value (1);
        In_The_Box  : constant Slot.Object := Slot.Value (2);
        type Attributes is (Size, Place, Colour, Weight);
        Max_Size : constant Slot.Object := Slot.Value (500);
    end Ball_Features;

    package Box_Features is
        type T_State is (Is_Free, Is_Bosy);
        package State_Slot is
           new Slot.Enumeration_Facilities (Values => T_State);
        type Attributes is (Size, State);
    end Box_Features;

    package Sticker_Features is
        type Attributes is (Colour, State);
    end Sticker_Features;

    package Ball    is new Frame (Name       => "ball",
                                  Attributes => Ball_Features.Attributes);
    package Sticker is new Frame (Name       => "sticker",
                                  Attributes => Sticker_Features.Attributes);
    package Box     is new Frame (Name       => "box",
                                  Attributes => Box_Features.Attributes);
end Frame_Examples;