1  REM  ****  HP BASIC PROGRAM LIBRARY  *********************************
2  REM
3  REM        RNDORD:  PLACING INTEGERS IN RANDOM ORDER
4  REM
5  REM        36264  REV A  --  2/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  **************************************
10  PRINT "     THIS PROGRAM WILL LIST THE NUMBERS FORM 1 TO M IN RANDOM ORDER."'10'10
20  PRINT "HOW MANY DIFFERENT LISTS DO YOU DESIRE";
30  INPUT U
40  PRINT '10'10'10"WHAT DO YOU WANT YOUR M TO BE";
50  INPUT M
60  PRINT '10'10"HERE ARE"U"LISTS OF THE NUMBERS FORM 1 TO"M"IN RANDOM ORDER."'10'10
70  FOR Q=1 TO U
80  DIM A[200],B[200]
90  N=1
100  Z=0
110  FOR A=1 TO M
120  LET A[A]=A
130  NEXT A
140  B=INT((M-N+1)*RND(1))+1
150  B[N]=A[B]
160  IF N=M THEN 200
180  A[B]=A[M-N+1]
185  N=N+1
190  GOTO 140
200  FOR V=1 TO M
210  PRINT B[V];
220  NEXT V
230  PRINT '13
240  PRINT '10'10'10
250  NEXT Q
260  END 
