#!/usr/bin/perl

#
$file=@ARGV[0];
#print $file,"\n";

binmode INFILE;
binmode OUTFILE;

open (OUTFILE,">dale3.sat");

open (INFILE,"<dale2.sat");

#read (INFILE,$WMOheader,26);
##print $WMOheader,"\n";
#
#read (INFILE,$ProdHeader1,16);
#
#($source,$satellite,$sector,$channel,$numRec,$numBytes,$yy,$mon,$dd,$hh,$min,$sec,$hun,$projection)=unpack("ccccnncccccccc",$ProdHeader1);
#
#print "source  : $source    \n";
#print "satellite  : $satellite    \n";
#print "sector  : $sector    \n";
#print "channel  : $channel    \n";
#print "numRec  : $numRec    \n";
#print "numBytes  : $numBytes    \n";
#print "yy  : $yy    \n";
#print "mon  : $mon    \n";
#print "dd  : $dd    \n";
#print "hh  : $hh    \n";
#print "min  : $min    \n";
#print "sec  : $sec    \n";
#print "hun  : $hun    \n";
#print "projection  : $projection    \n";
#
##print "ProdHeader1  : $ProdHeader1    \n";
##print  $ProdHeader1 ;
#
#
#read (INFILE,$ProdHeader2,32);
#
#
#($Nx,$Ny,$hiLat,$loLat,$hiLon,$loLon,$reserved,$hiLov,$loLov,$hiDx,$loDx,$hiDy,$loDy,$projflag,$mode,$loLatin,$hiLatin,$resolution,$compression,$version,$octets,$calibration)=unpack("nncncnccncncncccncccnc",$ProdHeader2);
#
#$Lat = (65536*$hiLat + $loLat)/10000;
#$Lon = (65536*$hiLon + $loLon)/10000;
#
#print "Nx  : $Nx    \n";
#print "Ny  : $Ny    \n";
#
#print "Lat  : $Lat    \n";
#print "Lon  : $Lon    \n";
print "version  : $version    \n";
##
#read (INFILE,$head,464);


for ($i=1;$i<=320;$i++)
    {
    read (INFILE,$line1,640);
    read (INFILE,$line2,640);
    print "$i \n"; 

    for ($j=1;$j<=640;$j=$j+2)
       {
       $val1=substr($line1,$j,1);
       $val2=substr($line1,$j+1,1);
       $val3=substr($line2,$j,1);
       $val4=substr($line2,$j+1,1);


       push @values,$val2;
       push @values,$val3;
       push @values,$val4;

       $maximum=$val1;
       for ($k=1;$k<=3;$k++)
           {
          $myval = pop(@values);
          if ($myval >= $maximum) { 
             $maximum=$myval; }

           }

       print OUTFILE $maximum;
       }
   }

   close (INFILE);
   close (OUTFILE);