|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1650 (0x672)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Remote_Global;
use Remote_Global;
package body Task_Pack_6 is
task body T1 is
begin
loop
select
accept E1 do
Global := Global + A_One;
Remote;
end E1;
or
accept E2 do
Global := Global + A_One;
Remote;
end E2;
or
accept E3 do
Global := Global + A_One;
Remote;
end E3;
or
accept E4 do
Global := Global + A_One;
Remote;
end E4;
or
accept E5 do
Global := Global + A_One;
Remote;
end E5;
or
accept E6 do
Global := Global + A_One;
Remote;
end E6;
or
accept E7 do
Global := Global + A_One;
Remote;
end E7;
or
accept E8 do
Global := Global + A_One;
Remote;
end E8;
or
accept E9 do
Global := Global + A_One;
Remote;
end E9;
or
accept E10 do
Global := Global + A_One;
Remote;
end E10;
or
terminate;
end select;
end loop;
end T1;
end Task_Pack_6;