-- /usr/users/brock/431/progs/taskt4.ada

with TEXT_IO ;

package body TASKS4 is

task body print5 is
  tired: boolean := FALSE ;
begin
  while not tired loop
    select
      accept printit do
        TEXT_IO.PUT_LINE("I am number five.") ;
      end printit ;
    or
      delay 5.0 ;
      TEXT_IO.PUT_LINE("I've waited five seconds") ;
      tired := TRUE ;
    end select ;
  end loop ;
  TEXT_IO.PUT_LINE("Number five goes bye-bye") ;
end print5 ;   

task body print6 is
  tired: boolean := FALSE ;
begin
  while not tired loop
    select
      accept printit do
        TEXT_IO.PUT_LINE("I am number six.") ;
      end printit ;
    or
      delay 6.0 ;
      TEXT_IO.PUT_LINE("I've waited six seconds") ;
      tired := TRUE ;
    end select ;
  end loop ;
  TEXT_IO.PUT_LINE("Number six goes bye-bye") ;
end print6 ;

end TASKS4 ;