clear;fclose('all');close('all');

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

drive='d:';
doit=['!dir ',drive,' > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo=fopen(doit(11:28));
pause
for ii=1:7,
   fgetl(fo);
end;
odddrive=0;
a=fgetl(fo);
if length(a)==44,
   doit=['!dir ',drive,'\gasex\*.dat > d:\temp\',drive(1),'drive.dir'];
else
   doit=['!dir ',drive,'\gasex98\*.dat > d:\temp\',drive(1),'drive.dir'];
   odddrive=1;
end;
fclose('all');
eval(doit);
if length(a)==44,
   fo=fopen(doit(23:40),'r');
else
   fo=fopen(doit(25:42),'r');
end;
for ii=1:5;
   fgetl(fo);
end;
a='0';
fdir=[];
while a(1)=='0',
   a=fgetl(fo);
   if length(a)==50,
      fdir=[fdir
         a(40:50)];
   end;
end;
fclose('all');

sfdir=size(fdir);sfdir=sfdir(1);

for ppp=1:sfdir,
   disp(fdir(ppp,:))
   ddd=str2num(fdir(ppp,1:3));
   hhh=str2num(fdir(ppp,4:5));
   mmm=str2num(fdir(ppp,6:7));
   gasspec;
   gaspr01;
end;

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

drive='h:';
doit=['!dir ',drive,' > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo=fopen(doit(11:28));
for ii=1:7,
   fgetl(fo);
end;
odddrive=0;
a=fgetl(fo);
if length(a)==44,
   doit=['!dir ',drive,'\gasex\*.dat > d:\temp\',drive(1),'drive.dir'];
else
   doit=['!dir ',drive,'\gasex98\*.dat > d:\temp\',drive(1),'drive.dir'];
   odddrive=1;
end;
fclose('all');
eval(doit);
if length(a)==44,
   fo=fopen(doit(23:40),'r');
else
   fo=fopen(doit(25:42),'r');
end;
for ii=1:5;
   fgetl(fo);
end;
a='0';
fdir=[];
while a(1)=='0',
   a=fgetl(fo);
   if length(a)==50,
      fdir=[fdir
         a(40:50)];
   end;
end;
fclose('all');

sfdir=size(fdir);sfdir=sfdir(1);

for ppp=1:sfdir,
   disp(fdir(ppp,:))
   ddd=str2num(fdir(ppp,1:3));
   hhh=str2num(fdir(ppp,4:5));
   mmm=str2num(fdir(ppp,6:7));
   gasspec;
   gaspr01;
end;

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