Moved the open of the bin.results1 file to the write subroutine,
introduced a subroutine to calculate the record length and used
in for both reading and writing.