string">'r'</span>);
0009 <span class="keyword">if</span> fid&lt;0, error([<span class="string">'Filename '</span> filename <span class="string">' could not be opened!'</span>]); <span class="keyword">end</span>
0010 ishot=0;Shot=[];itrace=0;
0011 zeile=fgetl(fid);
0012 <span class="keyword">while</span> ischar(zeile),
0013     typ=sscanf(zeile,<span class="string">'%s5%f'</span>);
0014     nu=sscanf(zeile,<span class="string">'%*s%f%f%f%f%f'</span>);
0015     <span class="keyword">if</span> length(nu)&lt;5