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 ┃

⟦f07a426bb⟧ TextFile

    Length: 1828 (0x724)
    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.Put_Title (Window => Essai,
                      Title => Bounded_String.Value ("Essai", 80));
    Easy_Y.Put_Left (Window => Essai, Left => 1);
    Easy_Y.Put_Right (Window => Essai, Right => 1);
    Easy_Y.Put_Width (Window => Essai, Width => 800);
    Easy_Y.Put_Height (Window => Essai, Height => 800);

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

    Easy_Y.Put_Font (To => Easy_Y.Medium_Font);
    Easy_Y.Put_Size (Window => Essai, Size => 1);


    Easy_Y.Update;

    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 => 150, The_String => Bounded_String.Value ("Toto", 80));

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

    Easy_Y.Put_Size (Window => Essai, Size => 1);
    Easy_Y.Line (1, 1, 500, 500);
    Easy_Y.Line (500, 1, 1, 500);
    delay (3.0);

    Easy_Y.Put_Size (Window => Essai, Size => 2);
    Easy_Y.Line (1, 1, 500, 500);
    Easy_Y.Line (500, 1, 1, 500);
    delay (3.0);

    Easy_Y.Put_Size (Window => Essai, Size => 3);
    Easy_Y.Line (1, 1, 500, 500);
    Easy_Y.Line (500, 1, 1, 500);
    delay (3.0);

    delay (13.0);
    Easy_Y.Close (Window => Essai);
end Essai_Stylo;