19 lines
430 B
Text
19 lines
430 B
Text
100 CLS
|
|
110 RANDOMIZE TIMER
|
|
120 DIM CARDS(51)
|
|
130 PRINT "before:"
|
|
140 FOR L0 = 0 TO 51
|
|
150 CARDS(L0) = L0
|
|
160 PRINT STR$(CARDS(L0));" ";
|
|
170 NEXT L0
|
|
180 FOR L0 = 51 TO 0 STEP -1
|
|
190 CARD = INT(RND(1)*(L0+1))
|
|
200 IF CARD <> L0 THEN T = CARDS(CARD) : CARDS(CARD) = CARDS(L0) : CARDS(L0) = T
|
|
210 NEXT L0
|
|
220 PRINT : PRINT
|
|
230 PRINT "after:"
|
|
240 FOR L0 = 0 TO 51
|
|
250 PRINT STR$(CARDS(L0));" ";
|
|
260 NEXT L0
|
|
270 PRINT
|
|
280 END
|