fid1 = fopen('list1.dat');
fid2 = fopen('list2.dat');
fid3 = fopen('list3.dat','w');

t1 = trygetl(fid1);
t2 = trygetl(fid2);
% t1 = str2num(fgetl(fid1));
% t2 = str2num(fgetl(fid2));

while t1 ~= -1 && t2 ~= -1
   if t1 < t2
      fprintf(fid3, '%d\n', t1);
      t1 = trygetl(fid1);
%      t1 = str2num(fgetl(fid1));
   else
      fprintf(fid3, '%d\n', t2);
      t2 = trygetl(fid2);
%      t2 = str2num(fgetl(fid2));
   end
end

while t1 ~= -1
   fprintf(fid3, '%d\n', t1);
   t1 = fgetl(fid1);
%   t1 = str2num(fgetl(fid1));
end

while t2 ~= -1
   fprintf(fid3, '%d\n', t2);
   t2 = fgetl(fid2);
%   t2 = str2num(fgetl(fid2));
end

fclose(fid1);
fclose(fid2);
fclose(fid3);

