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 - metrics - download
Index: B T

⟦08507c845⟧ TextFile

    Length: 2575 (0xa0f)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Bounded_String;
with Requester;
with Message;
with Object;
with Text_Io;

procedure Essai_Fin (Screen : String) is
    Buttons : Message.Unary;
    Str, Title : Object.Tiny_String;
begin  
    Bounded_String.Copy (Str, "Fin");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Str, "Unparse");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Str, "Recommencer");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Title, "Fin du programme Tiny_Talk");

    Requester.Open (100, 300, Screen, Buttons, Title);
    Text_Io.Put (Object.Index'Image (Requester.Choice (Buttons)));
    Requester.Close;
    Message.Free (This => Buttons);

    -- Bounded_String.Copy (Str, "ici");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Str, "la");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Str, "la-bas");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Str, "ou la");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Str, "ou bien encore la");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Str, "ou tu veux quoi !");
    -- Message.Put (This_Name => Str, Into => Buttons);
    -- Bounded_String.Copy (Title, "Tu click ou tu veux");

    -- Requester.Open (50, 700, Screen, Buttons, Title);
    -- Text_Io.Put (Object.Index'Image (Requester.Choice (Buttons)));
    -- Requester.Close;
    -- Message.Free (This => Buttons);

    Bounded_String.Copy (Str, "Non");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Str, "Oui");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Title, "Ca t'plait ? (coche la bonne reponse)");

    Requester.Open (400, 400, Screen, Buttons, Title);
    Text_Io.Put (Object.Index'Image (Requester.Choice (Buttons)));
    Requester.Close;
    Message.Free (This => Buttons);

    Bounded_String.Copy (Str, "Non");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Str, "Peut-Etre");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Str, "Oui");
    Message.Put (This_Name => Str, Into => Buttons);
    Bounded_String.Copy (Title, "Ca t'plait ? (coche la bonne reponse)");


    Requester.Open (400, 400, Screen, Buttons, Title);
    Text_Io.Put (Object.Index'Image (Requester.Choice (Buttons)));
    Requester.Close;
    Message.Free (This => Buttons);

end Essai_Fin;