<pre>on emptyStack  lockAll  answer "Vraiment vider ce stack!" with "Oui" or "Non"  if it is "Oui" then    repeat with B = 1 to the number of bkgnds      go to first card of bkgnd B      repeat for (the number of cards in this bkgnd) - 1        put the number of cards        doMenu "Delete Card"      end repeat    end repeat    doMenu "Compact Stack"  end ifend emptyStack</pre>