>&nbsp; nm=PI.Attributes(k).Name;nm(nm==' ')='_';</tt></font><br>
  <font size="-1"><tt>&nbsp; if isstr(PI.Attributes(k).Value),</tt></font><br>
  <font size="-1"><tt>&nbsp;&nbsp;&nbsp;
pin=setfield(pin,nm,PI.Attributes(k).Value);</tt></font><br>
  <font size="-1"><tt>&nbsp; else</tt></font><br>
  <font size="-1"><tt>&nbsp;&nbsp;&nbsp;
pin=setfield(pin,nm,double(PI.Attributes(k).Value));</tt></font><br>
  <font size="-1"><tt>&nbsp; end</tt></font><br>
  <font size="-1"><tt>end;&nbsp; </tt></font><br>
  <br>