|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 16384 (0x4000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Easy_Y, seg_036b14
└─⟦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 Class_Turtle;
with Class_Pen_Y;
with Easy_Y;
with Message;
with Text_Io;
procedure Essai_Easy_Y (The_Main_Screen : String) is
A_Pen, A_Turtle, A_Reference, Resultat : Object.Reference;
An_Unary : Message.Unary;
A_Binary : Message.Binary;
A_Keyword : Message.Keyword;
An_Integer : Object.Reference;
Chaine : Bounded_String.Variable_String (80);
Tiny_Talk : Easy_Y.Window_Type;
Error : Easy_Y.Window_Type;
Unparse : Easy_Y.Window_Type;
type Many_Windows is array (Integer range 1 .. 11) of Easy_Y.Window_Type;
Windows : Many_Windows;
begin
A_Pen := Class_Pen_Y.Create;
for I in 1 .. 11 loop
Bounded_String.Copy (Chaine, "Another Window");
Easy_Y.Put_Title (Window => Windows (I), Title => Chaine);
Easy_Y.Put_Left (Window => Windows (I),
Left => Object.Index ((I * 82254) mod 300));
Easy_Y.Put_Right (Window => Windows (I),
Right => Object.Index ((I * 16316) mod 300));
Easy_Y.Put_Width (Window => Windows (I),
Width => Object.Index ((I * 43527) mod 700));
Easy_Y.Put_Height (Window => Windows (I),
Height => Object.Index ((I * 32337) mod 700));
Easy_Y.Open (Display => The_Main_Screen, Window => Windows (I));
end loop;
Bounded_String.Copy (Chaine, "Tiny_talk");
Easy_Y.Put_Title (Window => Tiny_Talk, Title => Chaine);
Easy_Y.Open (Display => The_Main_Screen, Window => Tiny_Talk);
Bounded_String.Copy (Chaine, "Erreur");
Easy_Y.Put_Title (Window => Error, Title => Chaine);
Easy_Y.Put_Left (Window => Error, Left => 500);
Easy_Y.Put_Right (Window => Error, Right => 500);
Easy_Y.Put_Width (Window => Error, Width => 300);
Easy_Y.Put_Height (Window => Error, Height => 400);
Easy_Y.Open (Display => The_Main_Screen, Window => Error);
Bounded_String.Copy (Chaine, "Va_En_X");
Message.Put (Chaine, A_Keyword);
Bounded_String.Copy (Chaine, "Y");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (20), A_Keyword);
Message.Put (Class_Integer.Create (30), A_Keyword);
A_Pen := Class_Pen_Y.Send (A_Keyword, A_Pen);
Easy_Y.Set_Display (Window => Error);
Bounded_String.Copy (Chaine, "Unparse");
Easy_Y.Put_Title (Window => Unparse, Title => Chaine);
Easy_Y.Put_Left (Window => Unparse, Left => 500);
Easy_Y.Put_Right (Window => Unparse, Right => 50);
Easy_Y.Put_Width (Window => Unparse, Width => 400);
Easy_Y.Put_Height (Window => Unparse, Height => 300);
Easy_Y.Open (Display => The_Main_Screen, Window => Unparse);
Bounded_String.Copy (Chaine, "Va_En_X");
Message.Put (Chaine, A_Keyword);
Bounded_String.Copy (Chaine, "Y");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (20), A_Keyword);
Message.Put (Class_Integer.Create (30), A_Keyword);
A_Pen := Class_Pen_Y.Send (A_Keyword, A_Pen);
Easy_Y.Set_Display (Window => Unparse);
Easy_Y.Set_Display (Window => Tiny_Talk);
loop
case Easy_Y.Next_Event is
when Easy_Y.Update =>
A_Turtle := Class_Turtle_Y.Create;
for J in 1 .. 3 loop
Bounded_String.Copy (Chaine, "Angle");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (0), A_Keyword);
A_Turtle := Class_Turtle_Y.Send (A_Keyword, A_Turtle);
Bounded_String.Copy (Chaine, "Leve_Ta_Plume");
Message.Put (Chaine, An_Unary);
A_Turtle := Class_Turtle_Y.Send (An_Unary, A_Turtle);
for I in 10 .. 50 loop
Bounded_String.Copy (Chaine, "Leve_Ta_Plume");
Message.Put (Chaine, An_Unary);
A_Turtle := Class_Turtle_Y.Send (An_Unary, A_Turtle);
Bounded_String.Copy (Chaine, "Va_En_X");
Message.Put (Chaine, A_Keyword);
Bounded_String.Copy (Chaine, "Y");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create
(Object.Index (J * 100)), A_Keyword);
Message.Put (Class_Integer.Create
(Object.Index (J * 100)), A_Keyword);
A_Turtle := Class_Turtle_Y.Send (A_Keyword, A_Turtle);
Bounded_String.Copy (Chaine, "Baisse_Ta_Plume");
Message.Put (Chaine, An_Unary);
A_Turtle := Class_Turtle_Y.Send (An_Unary, A_Turtle);
Bounded_String.Copy (Chaine, "A_Gauche");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (10), A_Keyword);
A_Turtle := Class_Turtle_Y.Send (A_Keyword, A_Turtle);
Bounded_String.Copy (Chaine, "Avance");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (100), A_Keyword);
A_Turtle := Class_Turtle_Y.Send (A_Keyword, A_Turtle);
Easy_Y.Set_Display (Window => Unparse);
Bounded_String.Copy (Chaine, "Va_En_X");
Message.Put (Chaine, A_Keyword);
Bounded_String.Copy (Chaine, "Y");
Message.Put (Chaine, A_Keyword);
Message.Put (Class_Integer.Create (20), A_Keyword);
Message.Put (Class_Integer.Create (30), A_Keyword);
A_Pen := Class_Pen_Y.Send (A_Keyword, A_Pen);
Bounded_String.Copy (Chaine, "Ligne_Suivante");
Message.Put (Chaine, An_Unary);
A_Pen := Class_Pen_Y.Send (An_Unary, A_Pen);
Bounded_String.Copy (Chaine, "Ecrit");
Message.Put (Chaine, A_Binary);
Message.Put (Class_String.Create ("Alors, ca marche !"),
A_Binary);
Resultat := Class_Pen_Y.Send (A_Binary, A_Pen);
Easy_Y.Set_Display (Window => Tiny_Talk);
end loop;
Easy_Y.Clear_Window (Window => Tiny_Talk);
Easy_Y.Set_Display (Window => Error);
Bounded_String.Copy (Chaine, "Ligne_Suivante");
Message.Put (Chaine, An_Unary);
A_Pen := Class_Pen_Y.Send (An_Unary, A_Pen);
Bounded_String.Copy (Chaine, "Ecrit");
Message.Put (Chaine, A_Binary);
Message.Put (Class_String.Create ("No Error !"), A_Binary);
Resultat := Class_Pen_Y.Send (A_Binary, A_Pen);
Easy_Y.Set_Display (Window => Tiny_Talk);
end loop;
when Easy_Y.Button_Down =>
Text_Io.Put ("X=" & Integer'Image
(Integer (Easy_Y.Get_X_Mouse)));
Text_Io.New_Line;
Text_Io.Put ("Y=" & Integer'Image
(Integer (Easy_Y.Get_Y_Mouse)));
Text_Io.New_Line;
Easy_Y.Move_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) - 5),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) - 5));
Easy_Y.Line_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) + 5),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) + 5));
Easy_Y.Move_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) - 5),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) + 5));
Easy_Y.Line_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) + 5),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) - 5));
when Easy_Y.Button_Up =>
Text_Io.Put ("X=" & Integer'Image
(Integer (Easy_Y.Get_X_Mouse)));
Text_Io.New_Line;
Text_Io.Put ("Y=" & Integer'Image
(Integer (Easy_Y.Get_Y_Mouse)));
Text_Io.New_Line;
Easy_Y.Move_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) - 5),
Easy_Y.Coordinate (Integer
(Easy_Y.Get_Y_Mouse)));
Easy_Y.Line_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse) + 5),
Easy_Y.Coordinate (Integer
(Easy_Y.Get_Y_Mouse)));
Easy_Y.Move_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse)),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) - 5));
Easy_Y.Line_To (Easy_Y.Coordinate
(Integer (Easy_Y.Get_X_Mouse)),
Easy_Y.Coordinate
(Integer (Easy_Y.Get_Y_Mouse) + 5));
when others =>
null;
end case;
end loop;
delay (1.0);
Easy_Y.Close (Window => Error);
delay (1.0);
Easy_Y.Close (Window => Tiny_Talk);
delay (1.0);
Easy_Y.Close (Window => Unparse);
delay (1.0);
for I in 1 .. 11 loop
Easy_Y.Close (Window => Windows (I));
end loop;
exception
when others =>
Easy_Y.Close (Window => Tiny_Talk);
end Essai_Easy_Y;
nblk1=f
nid=d
hdr6=18
[0x00] rec0=21 rec1=00 rec2=01 rec3=056
[0x01] rec0=15 rec1=00 rec2=04 rec3=068
[0x02] rec0=19 rec1=00 rec2=07 rec3=028
[0x03] rec0=1a rec1=00 rec2=06 rec3=03c
[0x04] rec0=12 rec1=00 rec2=09 rec3=00e
[0x05] rec0=12 rec1=00 rec2=02 rec3=066
[0x06] rec0=16 rec1=00 rec2=03 rec3=024
[0x07] rec0=02 rec1=00 rec2=0f rec3=020
[0x08] rec0=13 rec1=00 rec2=05 rec3=062
[0x09] rec0=13 rec1=00 rec2=0b rec3=06e
[0x0a] rec0=12 rec1=00 rec2=0a rec3=00e
[0x0b] rec0=19 rec1=00 rec2=08 rec3=000
[0x0c] rec0=19 rec1=00 rec2=08 rec3=000
[0x0d] rec0=1a rec1=00 rec2=0a rec3=000
[0x0e] rec0=00 rec1=00 rec2=00 rec3=019
tail 0x21733c21884e062bffb21 0x42a00088462060003
Free Block Chain:
0xd: 0000 00 0c 00 2b 80 28 20 20 20 20 20 20 20 20 20 20 ┆ + ( ┆
0xc: 0000 00 0e 03 f9 80 0e 20 54 69 6e 79 5f 54 61 6c 6b ┆ Tiny_Talk┆
0xe: 0000 00 00 00 22 80 1f 20 28 45 61 73 79 5f 59 2e 47 ┆ " (Easy_Y.G┆