separate (Vt100)




function Print_Ms_Menu (Ms_Ptr : in Milestone_Pointer) return Integer is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  PRINT_MS_MENU
    --|
    --|  OVERVIEW:
    --|    This procedure displays the fields that can be changed on
    --|    a milestone type.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   the user is reprompted
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
begin
    loop
        begin
            Clear_Screen;
            Put_Line ("                MILESTONE  DATA  MENU  ");
            Put_Line
               ("=============================================================");
            New_Line (3);
            Put_Line
               ("Choose the number of one of the following milestone fields ");
            Put_Line ("that you would like to modify: ");
            New_Line (2);
            Put (" 1)  Milestone Number    ");
            Put (Ms_Ptr.Number, 2);
            New_Line;
            Put (" 2)  Completion Number   ");
            Put (Ms_Ptr.Completion_Number, 2);
            New_Line;
            Put (" 3)  Due Date            ");

            if Ms_Ptr.Due_Date = Null_Date then
                Put ("null date ");
            else
                Put (Ms_Ptr.Due_Date.Month, 2);
                Put ("/");
                Put (Ms_Ptr.Due_Date.Day, 2);
                Put ("/");
                Put (Ms_Ptr.Due_Date.Year, 4);
            end if;

            New_Line;
            Put (" 4)  Description         ");
            Put (Ms_Ptr.Description);
            New_Line;
            New_Line;
            Put_Line (" 5)  Done With Data - EXIT from Milestone 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 5. ");
                delay 1.0;
        end;
    end loop;
end Print_Ms_Menu;