1010 DIM A(10)
1020 FOR I=1 TO 10
1030 A(I)=I
1040 NEXT I
1050 FOR I=1 TO 10
1060 K=RND 10
1070 B=A(K)
1080 A(K)=A(I)
1090 A(I)=B
1100 NEXT I
1110 FOR I=1 TO 10
1120 PRINT A(I);
1130 NEXT I