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