DataMuseum.dk

top - metrics - download

    Length: 2599 (0xa27)
    Types: TextFile
    Names: »B«

└─⟦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)
procedure Manipulate_Data is
    ----------------------------------------------------------------------
    --|  NAME:  MANIPULATE_DATA
    --|
    --|  OVERVIEW:
    --|    This is the main driver for manipulating and adding data.
    --|    This procedure calls the menu driver and the other necessary
    --|    routines to validate the data and calculate data needed to
    --|    print reports before the data is written to file.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|    written by   Bonnie Burkhardt   March 1985
    ----------------------------------------------------------------------

    Char_Input : Character;         -- user response character
    Valid_Response : Boolean := False;  --  if user response to prompt is legal

    procedure Check_Ac_Percent is separate;
    procedure Group_Data_Fixes is separate;
    procedure Prioritize is separate;
    procedure Calc_Time_Done is separate;

begin
    while not Valid_Response loop
        Put_Line (" Would you like to modify the TRACKER data? ");
        Put (" [ Y or N, <cr>=Y ] : ");

        begin
            Skip_Line;

            if End_Of_Line then
                -- pressed return, default is yes
                Skip_Line;
                Data_Menu_Driver;
                Check_Ac_Percent;
                Group_Data_Fixes;
                Valid_Response := True;
            else
                Get (Char_Input);
                Skip_Line;

                if Char_Input = 'Y' or Char_Input = 'y' then
                    Data_Menu_Driver;
                    Check_Ac_Percent;
                    Group_Data_Fixes;
                    Valid_Response := True;
                elsif Char_Input = 'N' or Char_Input = 'n' then
                    -- no changes, print the reports
                    Check_Ac_Percent;
                    Valid_Response := True;
                else
                    -- invalid entry
                    Put_Line ("Please enter 'Y' or 'N' ");
                    delay 0.7;
                    Clear_Screen;
                end if;
            end if;
        exception
            when Name_Error =>
                raise;
            when Error_In_Input_File =>
                raise;
            when others =>
                Skip_Line;
                -- invalid entry
                Put_Line ("Please enter 'Y' or 'N' ");
                delay 0.7;
                Clear_Screen;
        end;
    end loop;

    Prioritize;
    Calc_Time_Done;
end Manipulate_Data;