|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Demo_X, seg_05998e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Action;
use Action;
with Point;
with Text_Io;
procedure Demo_X is
S : String (1 .. 10);
L : Natural;
begin
loop
begin
Text_Io.Put ("Combien de terminaux ? ");
Text_Io.Get_Line (Item => S, Last => L);
Action.Last_Term := Integer'Value (S (1 .. L));
exit;
exception
when others =>
null;
end;
end loop;
Mon_Terminal.Init_Configuration;
for I in 1 .. Action.Last_Term loop
Mes_Terminaux (I).Handle := Mon_Terminal.Creer (No => I);
Mes_Terminaux (I).Loc_Point :=
Point.Creer
(Terminal => I, X0 => 1, Y0 => 1, C => Integer'Image (I) (2));
Text_Io.Put_Line ("Creation point " & Integer'Image (I) (2));
end loop;
end Demo_X;
pragma Main;
nblk1=5
nid=5
hdr6=2
[0x00] rec0=1f rec1=00 rec2=01 rec3=000
[0x01] rec0=01 rec1=00 rec2=03 rec3=004
[0x02] rec0=17 rec1=00 rec2=02 rec3=022
[0x03] rec0=16 rec1=00 rec2=04 rec3=022
[0x04] rec0=11 rec1=00 rec2=05 rec3=000
tail 0x21768820a890e84aa1830 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 04 02 ad 80 1b 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4: 0000 00 02 03 fc 80 12 66 66 69 63 68 61 67 65 20 3a ┆ ffichage :┆
0x2: 0000 00 03 03 fc 80 3f 20 20 20 20 20 20 4f 6c 64 5f ┆ ? Old_┆
0x3: 0000 00 00 00 23 80 1b 72 61 63 74 65 72 3b 20 4e 6f ┆ # racter; No┆