63

TASK TYPES

task type T is
   entry ...
   ...
end T;

task body T is
   ...
end T;

-- now make one or two

declare
   A : T;
   C, D : T;     -- or make pointers to tasks
   ...
   type REF_T is access T;
   RX : REF_T := new T;
   ...
begin
   ...
end;