5'---- KENSAKU
7'FILE NAME SORT-1
10DIM D(10)
20D(1)=80
30D(2)=99
40D(3)=60
50D(4)=70
60D(5)=9
70D(6)=12
80D(7)=33
90D(8)=66
100D(9)=36
110D(10)=87
120FOR M=1 TO 9 STEP 1
130FOR N=10 TO M+1 STEP -1
140IF D(N-1) > D(N) THEN *SOKO
150TMP=D(N)
160D(N)=D(N-1)
170D(N-1)=TMP
180*SOKO
190NEXT N
200NEXT M
210PRINT "D(10)=";D(10)
220PRINT "D(1)=" ;D(1)
230END
