BURKS 2/BURKS_AUG97.ISO/BURKS/LANGUAGE/ADA/LOVELACE/babble.ads

Text File | 1996-10-01 | 190b | 10 lines

  with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

package Babble is

  task type Babbler is
    entry Start(Message : Unbounded_String; Count : Natural);
  end Babbler;

end Babble;