#Alistair Harding's version of ts2sio (in Perl) is:
# usage:   ts2sio  tsfile
# e.g. ts2sio  /data/processed/0008/ts.n255 > sioseis_nav_file
# 2000+255:01:08:36.112 017382 N 32 13.2870 W 075 29.1645 test
#
while (<>)
{
  my ($timestamp,$shotno,$ns,$latdeg,$latmin,$ew,$longdeg,$longmin) 
                          = split /\s+/;     
  my ($year,$jday,$hour,$minute,$second) = split /\+|-|:/, $timestamp;
  
  $latdeg  = -$latdeg  if ($ns eq "S");
  $longdeg = -$longdeg if ($ew eq "W");

  $, = " ";  # separate output with a space
  $\ = "\n"; # append newline
  print($year,$jday,$hour,$minute,$second,
         $latdeg,$latmin,$longdeg,$longmin,$shotno);
}