separate (Vt100)




function Print_El_Menu (El_Ptr : in Element_Pointer) return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_EL_MENU
    --|
    --|  OVERVIEW:
    --|    This procedure displays the fields that can be changed on
    --|    an element type.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("                  ELEMENT  DATA  MENU  ");
            Put_Line
               ("==========================================================");
            New_Line (3);
            Put_Line
               ("Choose the number of one of the following element fields ");
            Put_Line ("that you would like to modify: ");
            New_Line (2);
            Put ("  1)  Element Description       ");
            Put (El_Ptr.Description);
            New_Line;
            Put ("  2)  Description Abbreviation  ");
            Put (El_Ptr.Desc_Key);
            New_Line;
            Put ("  3)  Subsystem Name            ");
            Put (El_Ptr.Subsystem_Name);
            New_Line;

            if not El_Ptr.More_Than_One_Person then
                Put ("  4)  Person's Initials         ");
                Put (El_Ptr.Person_Initials);
            else
                Put ("  4)  People's Initials         ");

                for Ac_Index in 1 .. Num_Of_Activities loop
                    Put (El_Ptr.People_Initials (Ac_Index));

                    if Ac_Index < Num_Of_Activities then
                        Put (',');
                    end if;
                end loop;
            end if;

            New_Line;
            Put ("  5)  Milestone Number               ");
            Put (El_Ptr.Milestone_Num, 2);
            New_Line;
            Put ("  6)  Element Priority               ");
            Put (El_Ptr.Priority, 2);
            New_Line;
            Put ("  7)  Current Size              ");
            Put (El_Ptr.Current_Size, 7);
            New_Line;
            Put ("  8)  Complexity                      ");
            Put (El_Ptr.Complexity, 1, 2, 0);
            New_Line;
            Put ("  9)  Activity Completeness           '");

            for I in 1 .. Num_Of_Activities loop
                Put (Convert (El_Ptr.Activity_Completeness (I)));
            end loop;

            Put ("'");
            New_Line;
            Put (" 10)  More than one person assigned   ");
            Put (El_Ptr.More_Than_One_Person);
            New_Line;
            New_Line (2);
            Put_Line (" 11)  Done With Data - EXIT from Element 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 10. ");
                delay 1.0;
        end;
    end loop;
end Print_El_Menu;