on moveTo where
doMenu "Cut Card"
push card
set lockMessages to true
go to last card of stack where
doMenu "Paste Card"
pop card
end moveTo
on copyTo where
doMenu "Copy Card"
push card
set lockMessages to true
go to last card of stack where
type "v" with commandKey
pop card
end copyTo
This article is adapted from the Claris Tech Info database.