|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 783 (0x30f)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
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;