|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Stylo, seg_036b15
└─⟦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.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;
nblk1=7
nid=4
hdr6=2
[0x00] rec0=20 rec1=00 rec2=01 rec3=000
[0x01] rec0=20 rec1=00 rec2=07 rec3=020
[0x02] rec0=1d rec1=00 rec2=02 rec3=034
[0x03] rec0=1c rec1=00 rec2=04 rec3=02c
[0x04] rec0=11 rec1=00 rec2=05 rec3=000
[0x05] rec0=11 rec1=00 rec2=03 rec3=000
[0x06] rec0=11 rec1=00 rec2=04 rec3=001
tail 0x21733c3a884e055566f2e 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 05 00 38 00 00 00 00 18 20 20 20 20 2d 2d 20 ┆ 8 -- ┆
0x5: 0000 00 02 03 fc 80 2d 2e 50 75 74 20 28 43 6c 61 73 ┆ -.Put (Clas┆
0x2: 0000 00 07 00 39 80 19 43 6f 70 79 20 28 43 68 61 69 ┆ 9 Copy (Chai┆
0x7: 0000 00 03 00 18 80 02 29 3b 02 00 10 20 20 20 20 41 ┆ ); A┆
0x3: 0000 00 06 00 35 80 22 64 65 64 5f 53 74 72 69 6e 67 ┆ 5 "ded_String┆
0x6: 0000 00 00 00 04 80 01 50 01 2e 43 72 65 61 74 65 20 ┆ P .Create ┆