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

with TEXT_IO ;

package body TASKS3 is

task body print5 is
begin
  loop
    select
      accept printit do
        TEXT_IO.PUT_LINE("I am number five.") ;
      end printit ;
    or
      terminate ;
    end select ;
  end loop ;
  TEXT_IO.PUT_LINE("Number five goes bye-bye") ;
end print5 ;   

task body print6 is
begin
  loop
    select
      accept printit do
        TEXT_IO.PUT_LINE("I am number six.") ;
      end printit ;
    or
      terminate ;
    end select ;
  end loop ;
  TEXT_IO.PUT_LINE("Number six goes bye-bye") ;
end print6 ;

end TASKS3 ;