100 :
 110  REM  KNUTH SHUFFLE
 120 :
 130  DIM A(25)
 140  FOR I = 1 TO 25
 150 A(I) = I: PRINT A(I);" ";: NEXT I
 160  PRINT : PRINT
 170  FOR I = 25 TO 2 STEP  - 1
 180 J =  INT ( RND (1) * I + 1)
 190 T = A(I):A(I) = A(J):A(J) = T: NEXT I
 200  FOR I = 1 TO 25
 210  PRINT A(I);" ";: NEXT I
 220  END