function t=testmod4()
%t=5;
disp('tesstmod4')
fclose('all');
clear;
stux=zeros(4,36000);

e=['D:\matlabstf\cwf\sheba_prgs\myfile.txt'];

%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', [4,30]);
	%stux=fscanf(flist,'%*1s%g%*1s%g%*1s%g%*1s%g',[4,36000]);        
   
   %[a,np]=size(stux)
   t=stux';
end;%end if flist loop
	fclose(flist);

