separate (Vt100)



function Print_Ac_Menu (Ac_Ptr : in Activity_Pointer) return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_AC_MENU
    --|
    --|  OVERVIEW:
    --|    This procedure displays the fields that can be changed on
    --|    an activity type.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("                  ACTIVITY  DATA  MENU  ");
            Put_Line
               ("==========================================================");
            New_Line (3);
            Put_Line
               ("Choose the number of one of the following activity fields ");
            Put_Line ("that you would like to modify: ");
            New_Line (2);
            Put (" 1)  Activity Name                    ");
            Put (Ac_Ptr.Name);
            New_Line;
            Put (" 2)  Percentage of the Total Project  ");
            Put (Ac_Ptr.Percent_Tot_Proj, 3, 1, 0);
            Put ("%");
            New_Line;
            Put (" 3)  Priority                          ");
            Put (Ac_Ptr.Priority, 2);
            New_Line;
            Put (" 4)  Consider In Calculations         ");
            Put (Ac_Ptr.Consider_In_Calc);
            New_Line;
            Put (" 5)  Percent At Start                 ");
            Put (Ac_Ptr.Percent_At_Start, 3, 1, 0);
            Put ("%");
            New_Line;
            New_Line;
            Put_Line (" 6)  Done With Data - EXIT from Activity Data 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 13. ");
                delay 1.0;
        end;
    end loop;
end Print_Ac_Menu;