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 ┃

⟦be037a81a⟧ TextFile

    Length: 955 (0x3bb)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Frame_Examples, Slot, Frame, Tuple, Text_Io;

procedure Pack_Action (The_Result : Tuple.Object) is
    package Ball    renames Frame_Examples.Ball;
    package Box     renames Frame_Examples.Box;
    package Sticker renames Frame_Examples.Sticker;
    use Frame_Examples.Ball_Features, Frame_Examples.Box_Features,
        Frame_Examples.Sticker_Features, Slot.Operators;
    The_Ball    : Ball.Object;
    The_Box     : Box.Object;
    The_Sticker : Sticker.Object;
begin
    Tuple.Split (The_Result, The_Ball, The_Ball, The_Box, The_Sticker);
    Ball.Change (The_Ball, Place, To => In_The_Box);

    Text_Io.Put_Line ("la place balle de taille " &
                      Slot.Image (Ball.Get (The_Ball, Size)) &
                      " est changee par in_the_box");
    Box.Change (The_Box, State, To => State_Slot.Value (Is_Bosy));
    Box.Change (The_Box, Contains, To => Slot.Value (The_Ball));
    Sticker.Delete (The_Sticker);
end Pack_Action;