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

⟦7c4f0d243⟧ TextFile

    Length: 3424 (0xd60)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Slot, New_Ball, New_Box, New_Sticker, Constant_Colours;  
with Ball_Features, Box_Features, Sticker_Features;
package body Bbs_Facts is

    procedure Create is
        use Ball_Features, Box_Features, Sticker_Features;
    begin
        New_Ball.Add (With_Values => (Size   => Slot.Value (10),
                                      Colour => Constant_Colours.Red,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (20),
                                      Colour => Constant_Colours.Green,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (34),
                                      Colour => Constant_Colours.Green,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (45),
                                      Colour => Constant_Colours.Blue,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (45),
                                      Colour => Constant_Colours.Blue,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (45),
                                      Colour => Constant_Colours.White,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Ball.Add (With_Values => (Size   => Slot.Value (600),
                                      Colour => Constant_Colours.Yellow,
                                      Place  => In_The_Heap,
                                      Weight => Slot.Value (10)));
        New_Box.Add (With_Values => (Size  => Slot.Value (21),
                                     State => State_Slot_Box.Value (Is_Empty)));
        New_Box.Add (With_Values => (Size  => Slot.Value (15),
                                     State => State_Slot_Box.Value (Is_Empty)));
        New_Box.Add (With_Values => (Size  => Slot.Value (35),
                                     State => State_Slot_Box.Value (Is_Empty)));
        New_Box.Add (With_Values => (Size  => Slot.Value (48),
                                     State => State_Slot_Box.Value (Is_Empty)));
        New_Sticker.Add (With_Values =>
                            (Colour => Constant_Colours.Red,
                             State  => State_Slot_Sticker.Value (Is_Unused)));
        New_Sticker.Add (With_Values =>
                            (Colour => Constant_Colours.Green,
                             State  => State_Slot_Sticker.Value (Is_Unused)));
        New_Sticker.Add (With_Values =>
                            (Colour => Constant_Colours.Blue,
                             State  => State_Slot_Sticker.Value (Is_Unused)));
    end Create;


    procedure Delete is
        use Ball_Features, Box_Features, Sticker_Features;
    begin
        New_Ball.Clear;
        New_Box.Clear;
        New_Sticker.Clear;
    end Delete;


end Bbs_Facts;