separate (Manpower)
procedure Print_Banner_Page is
    ----------------------------------------------------------------------
    --| NAME : PRINT_BANNER_PAGE
    --|
    --| OVERVIEW:
    --|   This procedure prints the banner page to the report file.  This
    --|   includes the global data input to the program and references
    --|   to Barry Boehm's and Tom DeMarco's book (where these equations
    --|   originated.
    --|
    --| HISTORY:
    --|   written by   Bonnie Burkhardt     March 1985
    --|
    --| EXCEPTIONS HANDLED:
    --|   others   An error message is printed and processing continues
    --|
    ----------------------------------------------------------------------

    package Enumeration_Io is new Text_Io.Enumeration_Io (Mode_Type);
    use Enumeration_Io;

begin
    -- print out the banner page
    New_Page (Report);
    New_Line (Report, 12);
    Set_Col (Report, 40);
    Put (Report, "Boehm / DeMarco / Estimated Staffing Profiles");

    New_Line (Report, 7);
    Set_Col (Report, 10);
    Put (Report, " lines of source code in thousands (KSLOC) = ");
    Put (Report, Ksloc, 5, 4, 0);

    New_Line (Report, 2);
    Set_Col (Report, 10);
    Put (Report, "Man-months of effort (equation from ");
    Put (Report, "Barry W. Boehm, pg.75, table 6-1) = ");
    New_Line;
    Put (Report, Man_Months, 5, 4, 0);

    New_Line (Report, 2);
    Set_Col (Report, 10);
    Put (Report, "Most likely delivery time (equation from Barry W. Boehm, ");
    Put (Report, "pg.75, table 601) = ");
    Put (Report, Td_Nominal, 5, 4, 0);

    New_Line (Report, 2);
    Set_Col (Report, 10);
    Put (Report,
         "The impossible region (equation from Tom DeMarco, pg.181) = ");
    Put (Report, Imp_Region, 3, 3, 0);
    Put (Report, " months or less");

    New_Line (Report, 2);
    Set_Col (Report, 10);
    Put (Report, "Equation mode type used: ");
    Put (Report, Mode);

exception
    when others =>
        Put_Line ("exception raised in BANNER");
end Print_Banner_Page;