<pre>on exportBkgndFieldsContent bkgndFolder  if the number of bg flds > 0 then    repeat with z = 1 to the number of bg flds      put bkgndFolder & ":Bkgnd Field" && z into bkgndFieldFolder      writeFile bg fld z,bkgndFieldFolder & ":content"    end repeat  end ifend exportBkgndFieldsContent</pre>