<pre>on setFields theFont,theSize,theHeight,theStyle  repeat with F = 1 to the number of fields    set the textFont of field F to theFont    set the textSize of field F to theSize    set the textHeight of field F to theHeight    set the textStyle of field F to theStyle  end repeatend setFields</pre>