separate (Vt100)




function Print_El_Groups return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_EL_GROUPS
    --|
    --|  OVERVIEW:
    --|    This procedure displays the different groups of element data that
    --|    can be updated with the quick update.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("               ELEMENT DATA GROUPS MENU  ");
            Put_Line
               ("=======================================================");
            New_Line (3);
            Put_Line ("Choose the number of one of the following groups of");
            Put_Line
               ("element data that you would like do a quick update on : ");
            New_Line (2);
            Put_Line ("           1)  All Elements  ");
            Put_Line ("           2)  Elements belonging to a Milestone ");
            Put_Line ("           3)  Elements belonging to a Person    ");
            Put_Line ("           4)  Elements belonging to a Subsystem ");
            New_Line;
            Put_Line
               ("           5)  Done With Data - EXIT from Operations Menu");

            Get (Response);
            Skip_Line;
            New_Line (2);
            return Response;
        exception
            when others =>
                Skip_Line;
                New_Line;
                Put_Line (" Please enter a number between 1 and 5. ");
                delay 1.0;
        end;
    end loop;
end Print_El_Groups;