<pre>on deleteMarkedCards  toComputer  put the number of marked cds into lastMarkedCard  repeat with x = lastMarkedCard down to 1    put lastMarkedCard - x    go to marked cd x    doMenu "Delete Card"  end repeat  put empty  doMenu "Compact Stack"  beep 2end deleteMarkedCards</pre>