0008 
0009 fid=fopen(fname,<span class="string">'r'</span>);
0010 erg=0;
0011 <span class="keyword">if</span> fid&lt;0, <span class="keyword">return</span>; <span class="keyword">end</span>
0012 zeile=<span class="string">''</span>;
0013 <span class="keyword">while</span> isempty(zeile),
0014     zeile=<a href="#_sub1" class="code" title="subfunction zeile=destrip(zeile)">destrip</a>(fgetl(fid)); <span class="keyword">end</span>
0015 <span class="keyword">if</span> strfind(zeile,<span class="string">'C1(x)'