' *** ARRSHUFL.LST *** 2nd GFA-Manual, page 3-10 > PROCEDURE array_shuffle(VAR array()) ' ' *** Shuffle numbers in word-array ' *** Element with index i is swapped with random element 0 - i ' LOCAL i FOR i=PRED(DIM?(array())) DOWNTO 0 SWAP array(RAND(SUCC(i))),array(i) NEXT i RETURN ' ********* '