|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Tour, seg_058d80
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Counter, Text_Io;
procedure Test_Tour is
Appel, E1, E2 : Integer;
package Tour is new Counter (Maximum => 20);
Elevat1, Elevat2 : Tour.Object;
package Int_Io is new Text_Io.Integer_Io (Integer);
begin
Text_Io.Put_Line ("**** Programme Elevateurs ****");
for I in 1 .. 6 loop
E1 := Tour.Get (Elevat1);
Text_Io.Put (" Elevateur 1 est a l'etage :");
Int_Io.Put (Item => E1);
Text_Io.Put_Line ("");
E2 := Tour.Get (Elevat2);
Text_Io.Put (" Elevateur 2 est a l'etage :");
Int_Io.Put (Item => E2);
Text_Io.Put_Line ("");
-- Appel pour l'ascensseur 1
Text_Io.Put (" ---->Etage pour l'elevateur 1 : ");
Int_Io.Get (Appel);
Text_Io.Put_Line ("");
if Appel < E1 then
Tour.Down (Elevat1, E1 - Appel);
else
if Appel > E1 then
Tour.Up (Elevat1, Appel - E1);
else
Text_Io.Put_Line ("Pas de changement" & Ascii.Bel);
end if;
end if;
-- Appel pour l'ascensseur 2
Text_Io.Put (" ---->Etage pour l'elevateur 2 :");
Int_Io.Get (Appel);
Text_Io.Put_Line ("");
if Appel < E2 then
Tour.Down (Elevat2, E2 - Appel);
else
if Appel > E2 then
Tour.Up (Elevat2, Appel - E2);
else
Text_Io.Put_Line ("Pas de changement" & Ascii.Bel);
end if;
end if;
end loop;
Text_Io.Put_Line ("**** Fin du Programme Elevateurs ****");
end Test_Tour;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1e rec1=00 rec2=01 rec3=014
[0x01] rec0=16 rec1=00 rec2=02 rec3=001
tail 0x21766c9e688df78d037f9 0x42a00088462060003