Listing of file='BENCH14' on disk='vmedia/benchmark_tests.wvd.zip'
# Sector 347, program filename = 'BENCH14'
0000 %SCRATCHT "BENCH14":SAVE T ()"BENCH14"
0020 PRINT AT(14,0);"SORT........... <-- TESTING",
: S$=TIME
0095 FOR T=1TO 100
0100 DIM A(10),A$(10)2,W$(10)4,S$(10)2,B$(1,1),C$(5,10)2,W1$(10,5)4,S1$(5,10)2
,D$(25,2)2
0110 GOSUB '40(0,1,2,3,4,5,6,7,8,9)
0120 GOSUB '40(9,8,7,6,5,4,3,2,1,0)
0130 GOSUB '40(1,0,3,2,5,4,7,6,9,8)
0140 GOSUB '40(0,1,0,1,0,1,0,1,0,1)
0150 GOSUB '40(0,0,0,0,0,1,1,1,1,1)
0160 GOSUB '40(0,9,1,8,2,7,3,6,4,5)
0170 FOR K=1TO 10
: FOR L=1TO 10
: A(L)=INT(RND(1)*10)
: NEXT L
0180 GOSUB '41
: NEXT K
0190 INIT(00)S$()
: MAT SORTB$()TO W$(),S$()
0200 IF S$(1)=HEX(0101)THEN 210
0210 FOR I=1TO 5
: FOR J=1TO 10
: FOR K=1TO 2
0220 BIN(STR(C$(I,J),K))=INT(RND(1)*26)+65
: NEXT K
0230 NEXT J
: NEXT I
0240 MAT SORTC$()TO W1$(),S1$()
: GOSUB 320
0250 NEXT T
0260 GOTO 9000
0270 DEFFN'40(A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9),A(10))
0280 DEFFN'41
0290 MAT CONVERT A()TO A$()
: MAT SORTA$()TO W$(),S$()
: FOR I=1TO 9
: IF A(VAL(S$(I),2))<=A(VAL(S$(I+1),2))THEN 300
0300 IF STR(S$(I),2)=HEX(01)THEN 310
0310 NEXT I
: RETURN
0320 FOR I=1TO 5
: FOR J=1TO 9
: IF S1$(I,J)=HEX(0000)THEN 350
: IF S1$(I,J+1)=HEX(0000)THEN 350
0330 IF C$(VAL(S1$(I,J)),VAL(STR(S1$(I,J),2)))<=C$(VAL(S1$(I,J+1)),VAL(STR(S1$
(I,J+1),2)))THEN 340
0340 NEXT J
: IF S1$(I,10)=HEX(0000)THEN 360
: NEXT I
: RETURN
0350 J=9
: NEXT J
0360 I=5
: NEXT I
: RETURN
9000 PRINT AT(14,16,16);
: E$=TIME
: CONVERT STR(S$,1,2)TO S1
: CONVERT STR(S$,3,2)TO S2
: CONVERT STR(S$,5,2)TO S3
: CONVERT STR(E$,1,2)TO E1
: CONVERT STR(E$,3,2)TO E2
: CONVERT STR(E$,5,2)TO E3
: S9=S1*3600+S2*60+S3
: E9=E1*3600+E2*60+E3
: T0=E9-S9
: PRINT T0;"SEC"
9010 END