separate (Tracker.Subsystem_Pkg.Ss_Set_Up)



procedure Ss_Read is
    ---------------------------------------------------------------------------
    --|
    --|  NAME:  SS_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
    --|    subsystem record, which is made visible to the calling routine
    --|    SS_SET_UP.  The data is read in the format specified by the SS_WRITE
    --|    procedure.
    --|
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    Any exceptions raised here are handled by SS_SET_UP.
    --|
    ---------------------------------------------------------------------------
begin
    Get (Tracker_File, Ss_Record.Name (1 .. 10));                -- string
    Get (Tracker_File, Ss_Record.Percent_At_Start, 5);  -- real

    for Ac_Index in 1 .. Num_Of_Activities loop
        Get (Tracker_File, Ss_Record.Task_Numbers (Ac_Index), 4);
    end loop;

    Skip_Line (Tracker_File);
end Ss_Read;