1 REM THIS PROGRAM APPEARS AT PAGE 92 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10  REM PROGRAM TO REARRANGE A LIST OF NUMBERS INTO ASCENDING ORDER
20  DIM K(100)
30  READ N
40  FOR I=1 TO N
50	READ K(I)
60  NEXT I
70  PRINT "ORIGINAL LIST OF NUMBERS:"
80  PRINT
90  FOR I=1 TO N
100	PRINT K(I);
110 NEXT I
120 PRINT
130 REM
140 REM REPEAT INTERCHANGE N-1 TIMES
150 REM
160 FOR I=1 TO N-1
170 	REM
180	REM FIND THE SMALLEST NUMBER IN LIST AND INTERCHANGE
190	REM
200	FOR J=I+1 TO N
210		IF K(J)>=K(I) THEN 280
220		REM
230		REM INTERCHANGE K(J) AND K(I)
240		REM
250		LET K1=K(I)
260		LET K(I)=K(J)
270		LET K(J)=K1
280	NEXT J
290 NEXT I
300 PRINT
310 PRINT "REORDERED LIST OF NUMBERS:"
320 PRINT
330 FOR I=1 TO N
340 	PRINT K(I);
350 NEXT I
360 DATA 20,595,78,1505,891,29,7,18,191,36,68,7051,509,212,46,726,1806
370 DATA 289,401,1488,710
380 END
