<pre>function listFields  repeat with x = 1 to the number of flds    put the short name of fld x & return after theList  end repeat  return theListend listFields</pre>