separate (Vt100)



function Print_El_Operation_Menu return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_EL_OPERATION_MENU
    --|
    --|  OVERVIEW:
    --|    This procedure displays the operations that can be performed on
    --|    an element data type.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("             ELEMENT DATA OPERATIONS  MENU  ");
            Put_Line
               ("=======================================================");
            New_Line (3);
            Put_Line ("Choose the number of one of the following operations ");
            Put_Line ("that you would like to perform: ");
            New_Line (2);
            Put_Line ("        1)  Add          ");
            Put_Line ("        2)  Delete       ");
            Put_Line ("        3)  Modify       ");
            Put_Line ("        4)  Display the Current Data");
            Put_Line ("        5)  Quick Update of the Current Size");
            Put_Line
               ("        6)  Quick Update of the Activity Percent Complete");
            New_Line;
            Put_Line ("        7)  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 7. ");
                delay 1.0;
        end;
    end loop;
end Print_El_Operation_Menu;