<pre>function maxCharsOfField champ  -- champ can be the fld's name or number  if champ is a number and ( champ > the number of flds or champ <= 0 )  then return "maxCharsOfField(champ)"  else if there is not a fld champ then return "maxCharsOfField(champ)"  toComputer  repeat with z = 1 to the number of cds    put fld champ of cd z into curContent    put the number of chars of curContent & "," after curChars  end repeat  return max(curChars)end maxCharsOfField</pre>