B=[];
a='s';
fir=fopen('d:\temp\gasex.dir','r');
fis=fopen('d:\temp\gasex.prn','a');
while ~isempty(a)
   a=fgetl(fir);
   b=a(2:4);
   gas=['load d:\temp\day',b,'\',a];
   disp(gas)
   eval(gas);
   bas=['c=',a(1:8),';'];
   eval(bas);
   B=[B
      c];
   mas=['clear ',a(1:8)];
   eval(mas);
end
fclose('all');