10 CLS 20 'RANDOM PERMUTATION OF POSITIVE INTEGERS FROM 1 TO N. 30 PRINT "THIS PROGRAM PROVIDES A RANDOM PERMUTATION OF THE" 40 PRINT "INTEGERS FROM 1 THROUGH N." 50 INPUT "THE VALUE OF N IS";N 60 DIM X(N) 70 FOR I = 1 TO N 80 X(I) = I 90 NEXT I 100 RANDOMIZE TIMER 110 FOR I = 1 TO N 120 Z = INT(RND*(N - I + 1)) + 1 130 SWAP X(Z),X(N - I + 1) 140 NEXT I 150 FOR J = 1 TO N 160 PRINT X(J) 170 NEXT J 180 END