DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦0d41e7b7b⟧ TextFile

    Length: 2008 (0x7d8)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

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;