function shuffledeck(deck,factor)
randomize timer()
for t = 1 to factor
 carda=rnd(decks(deck).cards-1)+decks(deck).memadress
 cardb=rnd(decks(deck).cards-1)+decks(deck).memadress
 s=*carda
 *carda=*cardb
 *cardb=s
next t
endfunction