47 lines
1.3 KiB
Plaintext
47 lines
1.3 KiB
Plaintext
suite$ = "CDHS" #Club, Diamond, Heart, Spade
|
|
card$ = "A23456789TJQK" #Cards Ace to King
|
|
card = 0
|
|
|
|
dim n(55) #make ordered deck
|
|
for i = 1 to 52 # of 52 cards
|
|
n[i] = i
|
|
next i
|
|
|
|
for i = 1 to 52 * 3 #shuffle deck 3 times
|
|
i1 = int(rand * 52) + 1
|
|
i2 = int(rand * 52) + 1
|
|
h2 = n[i1]
|
|
n[i1] = n[i2]
|
|
n[i2] = h2
|
|
next i
|
|
|
|
for hand = 1 to 4 #4 hands
|
|
for deal = 1 to 13 #deal each 13 cards
|
|
card += 1 #next card in deck
|
|
s = (n[card] mod 4) + 1 #determine suite
|
|
c = (n[card] mod 13) + 1 #determine card
|
|
print mid(card$,c,1);mid(suite$,s,1);" "; #show the card
|
|
next deal
|
|
print
|
|
next hand
|
|
end
|
|
|
|
function word$(sr$, wn, delim$)
|
|
j = wn
|
|
if j = 0 then j += 1
|
|
res$ = "" : s$ = sr$ : d$ = delim$
|
|
if d$ = "" then d$ = " "
|
|
sd = length(d$) : sl = length(s$)
|
|
while true
|
|
n = instr(s$,d$) : j -= 1
|
|
if j = 0 then
|
|
if n=0 then res$=s$ else res$=mid(s$,1,n-1)
|
|
return res$
|
|
end if
|
|
if n = 0 then return res$
|
|
if n = sl - sd then res$ = "" : return res$
|
|
sl2 = sl-n : s$ = mid(s$,n+1,sl2) : sl = sl2
|
|
end while
|
|
return res$
|
|
end function
|