Here's a quick shuffle routine I made:
dim cards(10)
for i = 1 to 10
cards(i) = i
next i
rem display list of numbers, shuffle, repeat
for i = 1 to 10 : text 50, i*20, str$(cards(i)) : next i
shuffle()
for i = 1 to 10 : text 100, i*20, str$(cards(i)) : next i
shuffle()
for i = 1 to 10 : text 150, i*20, str$(cards(i)) : next i
shuffle()
for i = 1 to 10 : text 200, i*20, str$(cards(i)) : next i
shuffle()
for i = 1 to 10 : text 250, i*20, str$(cards(i)) : next i
wait key
end
function shuffle()
for i = 1 to 10
r = rnd(9)+1
temp = cards(i)
cards(i) = cards(r)
cards(r) = temp
next i
endfunction
"You're not going crazy. You're going sane in a crazy world!" ~Tick