10 DIM D(100),F(100)
20 N=1
30 FOR I=1 TO 100
40 D(I) = I
45 PRINT D(I)
50 NEXT I
55 SYSTEM "time 00:00:00"
60 F(1)=D(1):F(2)=D(2)
70 IF F(2)<F(1) THEN 90
80 G=F(1):F(1)=F(2):F(2)=G
90 FOR I=3 TO 100
110 F(I)=D(I)
120 FOR J=2 TO I
130 IF F(I)<F(I-J) THEN 170
140 G=F(I):F(I)=F(I-1):F(I-1)=G
160 NEXT J
170 NEXT I
175 A$=TIME$
180 FOR I=1 TO 100
190 PRINT D(I);F(I)
200 NEXT I
210 PRINT A$
1000 'This is SamSort
1010 DIM D(200),F(200)
1020 FOR I = 1 TO 25
1030 D(I)=I:F(I)=0
1040 NEXT I
1050 Z=0
1055 SYSTEM "time 00:00:00"
1060 FOR J=1 TO 25
1070 FOR I=1 TO 25
1080 IF D(I)>Z THEN Z=D(I):N=I
1090 NEXT I
1100 F(J)=D(N):D(N)=0:N=0:Z=0
1110 NEXT J
1115 A$=TIME$:PRINT A$
1116 STOP
1120 FOR I=1 TO 25
1130 PRINT D(I),F(I)
1140 NEXT I
1150 A$=TIME$:PRINT A$
