separate (Tracker.Milestone_Pkg.Ms_Set_Up)
procedure Ms_Read is
    --|
    --|  NAME:  MS_READ
    --|
    --|  OVERVIEW:
    --|    This procedure reads a record from the file.  One line of data is
    --|    read at a time and broken down into the fields of the
    --|    milestone record, which is made visible to the calling routine
    --|    MS_SET_UP.  The data is read in the format specified by the MS_WRITE
    --|    procedure.
    --|
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by MS_SET_UP.
begin
    Get (Tracker_File, Ms_Record.Number, 2);  -- integer
    Get (Tracker_File, Ms_Record.Completion_Number, 2);  -- integer
    Get (Tracker_File, Ms_Record.Due_Date.Month, 2);
    Get (Tracker_File, Ms_Record.Due_Date.Day, 2);
    Get (Tracker_File, Ms_Record.Due_Date.Year, 4);
    Get (Tracker_File, Ms_Record.Description (1 .. 50));  -- string
    Skip_Line (Tracker_File);
end Ms_Read;