<pre>on exportBkgndFields 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      createPath bkgndFieldFolder      writeFile the script of bg fld z,bkgndFieldFolder & ":script"      writeFile bkgndFieldProps(z),bkgndFieldFolder & ":properties"    end repeat  end ifend exportBkgndFields</pre>