<pre>function validFontChange  if fontExists ("geneva",12) then    set textFont of cd fld 1 to "geneva"    set textSize of cd fld 1 to 12    show cd fld 1  end ifend validFontChange</pre>