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

⟦77d96fe79⟧ TextFile

    Length: 1988 (0x7c4)
    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 (Tracker.Report_Generator)

procedure Start_Page (Title, Subtitle, Header1, Header2, Header_Lines : in
                         String := "") is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  START_PAGE
    --|
    --|  OVERVIEW:
    --|    This routine starts the next report on a new page and prints the
    --|    globalproject data on the report.  It then centers the title and
    --|    subtitle on the page.  After leaving two blank lines, it prints
    --|    the headers: HEADER1, HEADER2, and HEADER_LINES.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   an error message is printed and execution continues
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    --|
    ----------------------------------------------------------------------

begin
    -- print out global information
    New_Page (Report_File);
    Put (Report_File, "Project Name: ");
    Put (Report_File, Project_Name);
    New_Line (Report_File, 2);
    Put (Report_File, "Project Manager: ");
    Put (Report_File, Manager_Name);
    New_Line (Report_File, 2);
    Put (Report_File, "Status Date: ");
    Put (Report_File, Date.Month, 2);
    Put (Report_File, "/");
    Put (Report_File, Date.Day, 2);
    Put (Report_File, "/");
    Put (Report_File, Date.Year mod 100, 2);
    New_Line (Report_File, 5);

    -- print out titles
    Set_Col (Report_File, (128 - Title'Length) / 2);
    Put (Report_File, "*** ");
    Put (Report_File, Title);
    Put (Report_File, " ***");
    New_Line (Report_File);
    Set_Col (Report_File, (132 - Subtitle'Length) / 2);
    Put (Report_File, Subtitle);
    New_Line (Report_File, 3);
    Put (Report_File, Header1);
    New_Line (Report_File);
    Put (Report_File, Header2);
    New_Line (Report_File);
    Put (Report_File, Header_Lines);
    New_Line (Report_File);
exception
    when others =>
        Put_Line ("exception raised in START PAGE");
end Start_Page;