-- Chapter 23 - Program 12

with Ada.Text_IO, Person, Person.Positions;
use Ada.Text_IO, Person, Person.Positions;

procedure Busines3 is

   Big_John : SUPERVISOR;
   Jessica  : SUPERVISOR;
   Steve    : PROGRAMMER;
   Patrick  : PROGRAMMER;
   Gwen     : SECRETARY;

begin

   Init_Data(Big_John, My_Strings.To_Bounded_String("John"),
           54000, My_Strings.To_Bounded_String("President"));

   Init_Data(Jessica, My_Strings.To_Bounded_String("Jessica"),
           47500, My_Strings.To_Bounded_String("CEO"));

   Init_Data(Steve, My_Strings.To_Bounded_String("Steve"),
           52000, My_Strings.To_Bounded_String("Chief Programmer"),
           My_Strings.To_Bounded_String("Ada"));

   Init_Data(Patrick, My_Strings.To_Bounded_String("Patrick"),
           33000, My_Strings.To_Bounded_String("Assistant Debugger"), 
           My_Strings.To_Bounded_String("C++"));

   Init_Data(Gwen, My_Strings.To_Bounded_String("Gwendolyn"),
           27000, TRUE, 85);

   Display(Big_John);
   Display(Jessica);
   Display(Steve);
   Display(Patrick);
   Display(Gwen);

end Busines3;




-- Result of execution
--
-- John is a supervisor, and is the President of the company
-- Jessica is a supervisor, and is the CEO of the company
-- Steve is a programmer specializing in Ada.  He makes  52000 dollars per year.
-- Patrick is a programmer specializing in C++.  He makes  33000 dollars per year.
-- Gwendolyn is a secretary that does take shorthand.
--     Gwendolyn is paid  27000 dollars per year.