#!/usr/bin/perl 
#   convert UW acards and pickfiles to
#   Y2K compliance


while(<>){

   $kind = substr($_,0,1);

    if($kind eq "A")
      { 

         #print "got an A card: $_ \n" ;

#A 8005190129 30.25 46N1276 122W1108 19.44  2.6 26/000 051 04 0.35 00.7CA C1
#0c...|....1....|....2....|....3....|....4....|....5....|....6....|....7.$
	chop;

       $first = substr($_,0,2);
       $second = substr($_,2,999);
       $new = join("",$first,"19",$second);
	printf STDOUT "$new\n";

      }
   elsif($kind eq "N")
     {
       ($first, $second) = split(" ", $_);
       $new = join("","19",$second);
       printf STDOUT "N $new\n";
     }
   else
     {

       printf STDOUT "$_";
     }
   }