#!perl


my $counter;
my $bytes_read;

#----------------------------------------------------------------------#
#  Argument check.                                                     #
#----------------------------------------------------------------------#
if ( scalar( @ARGV ) != 2 ){
  print "usage: $0 file-in file-out \n";
  exit(9);
  }

#----------------------------------------------------------------------#
#  Open files in binary mode...                                        #
#----------------------------------------------------------------------#
unless ( sysopen FIN, $ARGV[0], O_RDONLY ){
  print "cannot read file: $ARGV[0] \n";
  exit(9);
  }

unless ( sysopen FOUT, $ARGV[1], O_WRONLY ){
  print "cannot write to file: $ARGV[1] \n";
  exit(9);
  }

#----------------------------------------------------------------------#
#  Skip over first 88 bytes.                                           #
#----------------------------------------------------------------------#
sysseek FIN, 88, SEEK_SET;

$counter = 0;

#----------------------------------------------------------------------#
#  Read the file...                                                    #
#----------------------------------------------------------------------#
while ( $bytes_read = sysread FIN, $line, 1 ){

  $counter++;

#----------------------------------------------------------------------#
#  Skip the record past 512 bytes...                                   #
#----------------------------------------------------------------------#
  if ( $counter > 512 ){
    $counter = 0;
    while ( $bytes_read = sysread FIN, $line, 1 ){
      $counter++;
      last if ( $counter > 16 );
      }
    $counter = 0;
    }

#----------------------------------------------------------------------#
#  Write stuff.                                                        #
#----------------------------------------------------------------------#
  syswrite FOUT, $line, 1;

  } #-** while reading the input file. . .. **-#

close FIN;
close FOUT;

exit(0);