1 POKE53280,6:POKE53281,6:PRINT"[147]"
5 PRINT"[147]PRESS ANY KEY TO RANDOMIZE 52 NUMBERS
6 [153]"WITHOUT REPEATS.":[153]
7 [161]A$:[139]A$[178]""[167]7
10 C[178]52:Q[178][187]([171]TI[173]101)
20 [134]R(C),X(C)
25 [143] INITIALIZE THE DECK
30 [129]I[178]1[164]C:X(I)[178]I:[130]
35 [143] GENERATE 52 RANDOM NUMBERS BETWEEN 1-52 INCL. (NOT NECESSARILY UNIQUE)
40 [129]I[178]1[164]C:R(I)[178][181](C[172][187](1))[170]1:[130]I
45 [143] GENERATE THE RANDOM PERMUTATION
50 [129]I[178]1[164]C:A[178]R(I):B[178]X(I):X(I)[178]X(A):X(A)[178]B:[130]I
60 [129]I[178]1[164]C
70 [153]X(I),
80 [130]I
90 [153]:[153]:[153]"AGAIN? (Y=YES, N=NO)":[153]
100 [161]A$:[139]A$[179][177]"Y"[167][139]A$[179][177]"N"[167]100
110 [139]A$[178]"N"[167][128]
120 [137]40