<pre>function smallCaps str  if char 1 of str = "&" then    put offset( ";", str ) into pos    put char 1 to pos of str into startTx  else    put char 1 of str into startTx    put 1 into pos  end if  delete char 1 to pos of str  return encloseInTag( startTx, "FONT" && tagParam("SIZE","+1") ) & strend smallCaps</pre>