<pre>-- Related to the "ExportThisStack" stack.on createHFS  push card  ------  put createStackFolder() into stackFolder  writeFile hypercardProps(),stackFolder & ":properties of HyperCard"  writeFile stackProps(),stackFolder & ":properties"  writeFile the script of this stack,stackFolder & ":script"  ------  repeat with x = 1 to the number of bgs    ---    put the short name of bg x into bgName    put stackFolder & ":Background" && x into bgFolder    createPath bgFolder    exportBackground x,bgFolder -- script and properties of the bkgnd.    exportBkgndFields bgFolder  -- everything except the content.    exportBkgndButtons bgFolder    ---    unmark all cds    mark cds where the short name of this bg is bgName    repeat with y = 1 to the number of marked cds      go to marked cd y      put bgFolder & ":Card" && y into cardFolder      createPath cardFolder      exportCard y,cardFolder      exportCardFields cardFolder      exportCardButtons cardFolder      exportBkgndFieldsContent bgFolder    end repeat    ---  end repeat  ------  pop cardend createHFS</pre>