21 lines
391 B
Plaintext
21 lines
391 B
Plaintext
dim cards(52)
|
|
for i = 1 to 52 ' make deck
|
|
cards(i) = i
|
|
next
|
|
|
|
for i = 52 to 1 step -1 ' shuffle deck
|
|
r = int((rnd(1)*i) + 1)
|
|
if r <> i then
|
|
hold = cards(r)
|
|
cards(r) = cards(i)
|
|
cards(i) = hold
|
|
end if
|
|
next
|
|
|
|
print "== Shuffled Cards ==" ' print shuffled cards
|
|
for i = 1 to 52
|
|
print cards(i);" ";
|
|
if i mod 18 = 0 then print
|
|
next
|
|
print
|