#!/afs/athena/contrib/perl5/perl5.002

while(<>){
#    print;
    (@data) = split(/\|/, $_);
   next unless ($data[3] ne "");
    $speed = int(10*$data[4]);
    ($lat, $long) = split(" ", $data[3]);
    $lat =~ /N(\d\d\d)\.(\d\d)\.(\d\d\d)/;
    $latv = int($1) + (int($2)/60) + (int($3)/(60000));
    $long =~ /W(\d\d\d)\.(\d\d)\.(\d\d\d)/;
    $longv = int($1) + (int($2)/60) + (int($3)/(60000));
#    $longv = ($longv-122.3)*2000;
#    $latv = ($latv-37.7)*2000;
    $longv = 100-$longv;
    print "$longv $latv\n" if (($ct++%1) == 0);
#    print "$latv $longv $speed\n" if (($ct++%20) == 0);
}