12 lines
271 B
Text
12 lines
271 B
Text
cards% = 52
|
|
DIM pack%(cards%)
|
|
FOR I% = 1 TO cards%
|
|
pack%(I%) = I%
|
|
NEXT I%
|
|
FOR N% = cards% TO 2 STEP -1
|
|
SWAP pack%(N%),pack%(RND(N%))
|
|
NEXT N%
|
|
FOR I% = 1 TO cards%
|
|
PRINT pack%(I%);
|
|
NEXT I%
|
|
PRINT
|