function MapInfiniumHeader(filename1);
fid1=fopen(filename1,'r');

%read header lines in one at a time, convert param types, store in output structure.
loop=1;
while loop==1;
	data=fgetl(fid1);
	[m,n]=size(data);
	for k=1:n,
   	disp([num2str(k) ' = ' data(k)]);
   end;
   loop=input('Enter 1 to continue:  ');
end;

fclose(fid1);
