files=dir('C:\Documents and Settings\sylvie lorsolo\My Documents\research\frances\uf\*.UF'); 
  for fil=2%232:253%:length(files)
cd ('C:\Documents and Settings\sylvie lorsolo\My Documents\research\frances\uf\');
   sweepfile=files(fil).name;
fid=fopen(sweepfile,'r','b')
essai=[];
fseek(fid,0,'eof');
fin_file=ftell(fid);
fseek(fid,0,'bof');
eofstat=feof(fid)
temp2=[];
cd ('C:\Documents and Settings\sylvie lorsolo\My Documents\research\programs\');
c=0;
   s1=fread(fid,4,'char')
   
   %numb=fread(fid,1,'int16')
     s=fread(fid,2,'char');
      s=char(s')
       inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
   inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              s=fread(fid,8,'char');
      s=char(s')
       s=fread(fid,8,'char');
      s=char(s')
      inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
   inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
            
      inco=fread(fid,1,'int16')
       s=fread(fid,2,'char');
              s=char(s')
             inco=fread(fid,1,'int16')
             
             inco=fread(fid,1,'int16')
               
      inco=fread(fid,1,'int16')
   inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
             
            s=fread(fid,8,'char');
              s=char(s')
             
             inco=fread(fid,1,'int16')
             ftell(fid)
             s=fread(fid,8,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              s=fread(fid,8,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              
              inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
             inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              s=fread(fid,2,'char');
              s=char(s')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
                d=fread(fid,876,'int16');
                
                 inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
                inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
               inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              inco=fread(fid,1,'int16')
              d=fread(fid,882,'int16');
%              s=fread(fid,2,'char');
inco2=fread(fid,18,'int16');
inco=fread(fid,1,'int16')
d=fread(fid,882,'int16');
 inco=fread(fid,18,'int16');
 inco=fread(fid,1,'int16')
 d=fread(fid,882,'int16');
  
       inco=fread(fid,1,'int16')       
         inco=fread(fid,1,'int16')
         inco=fread(fid,1,'int16')
         inco=fread(fid,1,'int16')
  s=fread(fid,2,'char');
               s=char(s')
  inco=fread(fid,9,'int16');
              
             
              s=fread(fid,8,'char');
               s=char(s')
               s=fread(fid,8,'char');
               s=char(s')
               inco=fread(fid,22,'int16');
% inco=fread(fid,1,'int16')
%               s=char(s')
               ftell(fid)
%                while eofstat==0 
%                    s=fread(fid,2,'char');
%               s=char(s');
%               if strcmp(s,'VR')==1
%                   c=c+1;
%                   eofstat=feof(fid);
%               end
          end
              fclose(fid);
end