<pre>on updateTextSize  toComputer  put the value of the target into theSize  put theSize+4 into fld "lineHeight"  ---------------------------------------------------------------------------  if theSize is not in fld "textSizes"  then select line 0 of fld "textSizes"  else    find theSize in fld "textSizes"    if the result is empty then select the foundLine  end if  ---------------------------------------------------------------------------  set the textSize of fld "sample" to theSize  set the textHeight of fld "sample" to theSize+4end updateTextSize</pre>