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 ┃

⟦c9bc9ccef⟧ TextFile

    Length: 783 (0x30f)
    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 Object;
with Class_Integer;
with Class_String;
with Easy_Y;
with Message;
with Text_Io;

procedure Essai_Stylo (Screen : String) is
    A_Pen, A_Reference, Resultat : Object.Reference;
    An_Unary : Message.Unary;
    A_Binary : Message.Binary;
    A_Keyword : Message.Keyword;
    An_Integer : Object.Reference;
    An_Index, Numero : Object.Index;
    Chaine : Bounded_String.Variable_String (80);
    Essai : Easy_Y.Window_Type;

begin  
    Easy_Y.Open (Display => Screen, Window => Essai);

    Easy_Y.Print
       (X1 => 100, Y1 => 100, The_String => Bounded_String.Value ("Toto", 80));

    Easy_Y.Put_Font (To => Easy_Y.Small_Font);
    Easy_Y.Print
       (X1 => 100, Y1 => 100, The_String => Bounded_String.Value ("Toto", 80));

end Essai_Stylo;