DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦21b0f5b73⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Stylo, seg_036d39

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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.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;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=22 rec1=00 rec2=01 rec3=012
        [0x01] rec0=20 rec1=00 rec2=02 rec3=001
    tail 0x21733ed1684e08775a016 0x42a00088462060003