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

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

drive='d:';
doit=['!dir ',drive,'\temp\gasex\*.DAT',' > d:\temp\',drive(1),'drive.dir'];
eval(doit);
fo=fopen(doit(28:45));
for ii=1:5,
   fgetl(fo);
end;
odddrive=0;
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));
   gasspecIII;
   gaspr01III;
end;
