-- Chapter 23 - Program 7

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

procedure Busines1 is

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

begin

   Init_Data(Big_John, "John",      54000, "President");
   Init_Data(Jessica,  "Jessica",   47500, "CEO");
   Init_Data(Steve,    "Steve",     52000, "Chief Programmer",  "Ada");
   Init_Data(Patrick,  "Patrick",   33000, "Assistant Debugger","C++");
   Init_Data(Gwen,     "Gwendolyn", 27000, TRUE, 85);

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

end Busines1;




-- 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.