function t=testmod4(x)
disp('tesstmod4')
fclose('all');
clear;
stux=zeros(4,36000);
e=['F:\DasWin32\data\ascii\9806100.p02'];
flist=fopen(e,'r');
if flist>0,   %if the file exists
	stuff1=fgets(flist);%read 3 headers
	stuff2=fgets(flist);
	stuff3=fgets(flist);
	disp(stuff1);
	disp(stuff2);
	stux=fscanf(flist,'%*1s%g%*1s%g%*1s%g%*1s%g');        
   [npp]=size(stux);
   np=fix(npp/4);
   i=1:np;
   j=4*(i-1)+1;
   t(1,i)=stux(j)';
   t(2,i)=stux(j+1)';
   t(3,i)=stux(j+2)';
   t(4,i)=stux(j+3)';
else
   t=0;
end;%end if flist loop
	





	
	
	
	
	
	
	
	
	
	