<pre>on mergeStacks  toComputer  answer file "Copier cartes de quelle pile ?" of type STAK  if it is empty then exit mergeStacks  put it into sourcePath  put getFileName(sourcePath) into sourceName  answer file "Coller cartes  la fin de quelle pile ?" of type STAK  if it is empty then exit mergeStacks  put it into destinationPath  put getFileName(destinationPath) into destinationName  answer "Merge" && quote & sourceName & quote &&   "apres" && quote & destinationName & quote && "?" with "Merge" or "Cancel"  if it = "Cancel" then exit mergeStacks  go stack sourcePath  put the number of cds into lastCard  repeat for the number of cds    domenu "Copy Card"    go next cd    push cd    go last cd of destinationPath    domenu "Paste Card"    pop cd    subtract 1 from lastCard    put lastCard  end repeat  go to stack destinationPath  answer "Merge complete! Vous tes  la pile" && destinationNameend mergeStacks</pre>