disp('***********************START**************************************** ')

%*****************************************************************************************
fclose('all');
drive='f:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
         disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),         
         if ddd==9,            
            if hhh>20,               
               camp_yes;    %    Channel 1          YES RAIN  13 fields               
            else,               
               camp_no;     %    Channel 1           NO RAIN  12 fields               
            end;            
         elseif ddd>9 & ddd<300,            
            camp_yes;       %    Channel 1          YES RAIN  13 fields            
         else,            
            camp_no;        %    Channel 1           NO RAIN  12 fields            
         end;         
         opengyro;          %    Channel 3         
         openmoti;          %    Channel 5         
         openship;          %    Channel 6         
         openradi;          %    Channel 2         
         opensons;          %    Channel 0         
         openophi;          %    Channel 4         
         opengps;           %    Channel 7         
         fastex07;         
         fastpr07;         
         disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),         
         disp('***********************END**************************************** ')         
      end;      
   end;   
   fclose(fo2);   
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='g:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='h:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='i:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='j:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='k:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);

%*****************************************************************************************

fclose('all');
drive='l:';
doit=['!dir ',drive,'*.* > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo1=fopen(doit(14:31),'r');
for ii=1:7;
   fgetl(fo1);
end;
a=1;
while 1,
   ndr=fgetl(fo1);
   a=~isempty(str2num(ndr(1)));
   if a==0,
      break,
   end;
   ddr=ndr(40:45);
   doit=['!dir ',drive,'\',ddr,'\p0*.* > d:\temp\',drive(1),'deep.dir'];
   eval(doit);
   fo2=fopen(doit(24:40),'r');
   for ii=1:7;
      fgetl(fo2);
   end;
   b=1;
   while 1,
      filly=fgetl(fo2);
      b=~isempty(str2num(filly(1)));
      if b==0,
         break,
      end;
      if str2num(filly(length(filly)-6))==0,
         ddd=str2num(filly(43:45));         
         hhh=str2num(filly(46:47));         
      end;
      disp(['OPEN DATA FILES FOR DAY ',num2str(ddd),' and HOUR ',num2str(hhh)]),
      if ddd==9,
         if hhh>20,
            camp_yes;    %    Channel 1          YES RAIN  13 fields
         else,
            camp_no;     %    Channel 1           NO RAIN  12 fields
         end;         
      elseif ddd>9 & ddd<300,         
         camp_yes;       %    Channel 1          YES RAIN  13 fields         
      else,         
         camp_no;        %    Channel 1           NO RAIN  12 fields         
      end;            
      opengyro;          %    Channel 3      
      openmoti;          %    Channel 5      
      openship;          %    Channel 6      
      openradi;          %    Channel 2      
      opensons;          %    Channel 0      
      openophi;          %    Channel 4      
      opengps;           %    Channel 7      
      fastex07;      
      fastpr07;      
      disp(['         COMPLETED DAY ',num2str(ddd),'  HOUR ',num2str(hhh)]),
      disp('***********************END**************************************** ')
   end;
   fclose(fo2);
end;
fclose(fo1);