subroutine hkstrip Read_Parameters Make_Column_List Open_Input_File Open_Output_File Initialize(Output_File) Copy_Keywords(Input_File, Output_File) do Move_to_next_column Get_Column_Name if (Column_Name == "TIME" && input_is_odf_file && column_type == string) convert_column_to_seconds for each Column_List entry if (Column_Name == Column_List(entry)) Copy_Column(Column_Name, Input_File, Output_File) end if next next Close_Files end subroutine hkstrip