infile = {'d:\fireiii\data\HIS\ac980518\cal\980518b1.ame',...
				'd:\fireiii\data\HIS\ac980520\cal\980520b1.ame',...
				'd:\fireiii\data\HIS\ac980522\cal\980522b1.ame',...
				'd:\fireiii\data\HIS\ac980524\cal\980524b1.ame',...
				'd:\fireiii\data\HIS\ac980526\cal\980526b1.ame',...
				'd:\fireiii\data\HIS\ac980527\cal\980527b1.ame',...
				'd:\fireiii\data\HIS\ac980529\cal\980529b1.ame',...
				'd:\fireiii\data\HIS\ac980602\cal\980602b1.ame',...
				'd:\fireiii\data\HIS\ac980603\cal\980603b1.ame',...
				'd:\fireiii\data\HIS\ac980604\cal\980604b1.ame',...
				'd:\fireiii\data\HIS\ac980606\cal\980606b1.ame'};

outfile = {'d:\fireiii\data\HIS\ac980518\cal\HIS_quicklook_980518.jpg',...
				'd:\fireiii\data\HIS\ac980520\cal\HIS_quicklook_980520.jpg',...
				'd:\fireiii\data\HIS\ac980522\cal\HIS_quicklook_980522.jpg',...
				'd:\fireiii\data\HIS\ac980524\cal\HIS_quicklook_980524.jpg',...
				'd:\fireiii\data\HIS\ac980526\cal\HIS_quicklook_980526.jpg',...
				'd:\fireiii\data\HIS\ac980527\cal\HIS_quicklook_980527.jpg',...
				'd:\fireiii\data\HIS\ac980529\cal\HIS_quicklook_980529.jpg',...
				'd:\fireiii\data\HIS\ac980602\cal\HIS_quicklook_980602.jpg',...
				'd:\fireiii\data\HIS\ac980603\cal\HIS_quicklook_980603.jpg',...
				'd:\fireiii\data\HIS\ac980604\cal\HIS_quicklook_980604.jpg',...
				'd:\fireiii\data\HIS\ac980606\cal\HIS_quicklook_980606.jpg'};

for k = 1:11
   
   his = umereader(char(infile(k)));
   
   figure
   set(gcf,'PaperPosition',[0 0 8.5*0.6 11*0.6]);
   time = his.nss1970/24/60/60 + datenum(1970,1,1);
   ind = find(his.freq > 770 & his.freq < 1000);
   imagesc(his.freq(ind),time,his.bt(:,ind))
   datetick('y',13);
   axis([his.freq(min(ind)) his.freq(max(ind)) time(1) time(length(time))]);
   xlabel('Wavenumber (cm-1)')
   colorbar('vert');
   tmp = char(infile(k));
   date = tmp(length(tmp)-11:length(tmp)-6)
   title(['HIS Window Brightness Temperature Quicklook, FIRE-ACE, ',date])
   eval(['print -djpeg ',char(outfile(k))]);
   
   clear his
   close
   
end