>end</span>
0007 pp=fileparts(filename);
0008 fid=fopen(filename,<span class="string">'r'</span>);
0009 maxg=0;i=0;pos=[];
0010 zeile=fgetl(fid);
0011 <span class="keyword">while</span> isstr(zeile),
0012     i=i+1;
0013     <span class="comment">%%</span>
0014     trfile=sscanf(zeile,<span class="string">'%s%*s%*s'</span>);
0015     <span class="keyword">if</span> isempty(strfind(trfile,<span class="string">'.pick'</span>)), trfile=[trfile <span class="string">'.pick'</span>]; <span class="keyword">end</sp