4H >F >W~
dd9 _____ Demonstration Standard Card Shuffle __________
n (850)
x C0(52),A(51)
: 230
, 23;23: (18);"Shuffle Completed ....."
T=0
J=0 51
C0$(J);",";
T=T+1
J
23;23
9 _____ Store Card Value and Suit ____________________
370
J=0 51
C0$(J):A(J)=-1
J
9 _____ Shuffling subroutine _________________________
) 23: (18);"Shuffling now ........."
"
J=0 51
,2 T=(*52): A(T)=-1:A(T)=T: T; "*";: 300
6 T0$=C0$(J)
@ C0$(J)=C0$(T)
J C0$(T)=T0$
T J
^ :
h9 _____ DATA for Pack of Cards _______________________
rl "2 of Clubs","3 of Clubs","4 of Clubs","5 of Clubs","6 of Clubs","7 of Clubs","8 of Clubs","9 of Clubs"
|R "10 of Clubs","Jack of Clubs","Queen of Clubs","King of Clubs","Ace of Clubs"
"2 of Diamonds","3 of Diamonds","4 of Diamonds","5 of Diamonds","6 of Diamonds","7 of Diamonds","8 of Diamonds","9 of Diamonds"
a "10 of Diamonds","Jack of Diamonds","Queen of Diamonds","King of Diamonds","Ace of Diamonds"
t "2 of Hearts","3 of Hearts","4 of Hearts","5 of Hearts","6 of Hearts","7 of Hearts","8 of Hearts","9 of Hearts"
W "10 of Hearts","Jack of Hearts","Queen of Hearts","King of Hearts","Ace of Hearts"
t "2 of Spades","3 of Spades","4 of Spades","5 of Spades","6 of Spades","7 of Spades","8 of Spades","9 of Spades"
W "10 of Spades","Jack of Spades","Queen of Spades","King of Spades","Ace of Spades"
shufl2:2:ʙo߿-04&߿+4߿+04l߿-4q:>2͙]:>2o]R߿*0R