10 INPUT"WIEVIEL WERTE";Q1
20 DIMFF$(1000)
30 T1=TI
40 FORI=1TOQ1
50 FF$(I)=CHR$(INT(RND(0)*26+64))
60 NEXT
70 T2=TI
80 GOSUB930
90 T3=TI
100 PRINT:PRINT
110 FORI=1TOQ1
120 PRINTFF$(I);
130 NEXT
140 T4=TI
150 GOSUB330
160 PRINT:PRINT
170 PRINT"ANZAHL WERTE= "Q1:PRINT
180 PRINT"EINLESEZEIT=   "(T2-T1)/60
190 PRINT"SORTIERZEIT=   "(T3-T2)/60
200 PRINT"ANZEIGEZEIT=   "(T4-T3)/60
210 PRINT"GESAMT ZEIT=   "(T4-T1)/60
215 PRINT:PRINT
220 PRINT"BENCH1     =   "(B1-B0)/60
230 PRINT"BENCH2     =   "(B2-B1)/60
240 PRINT"BENCH3     =   "(B3-B2)/60
250 PRINT"BENCH4     =   "(B4-B3)/60
260 PRINT"BENCH5     =   "(B5-B4)/60
270 PRINT"BENCH6     =   "(B6-B5)/60
280 PRINT"BENCH7     =   "(B7-B6)/60
290 PRINT"BENCH8     =   "(B8-B7)/60
300 PRINT"GESAMT ZEIT=   "(B8-T1)/60
310 IFF=1THENPRINT:PRINT:PRINT:PRINT:PRINT#1:CLOSE1:END
320 OPEN1,4:CMD1:F=1:GOTO170
330 REM----------------------------
340 REM    BENCHMARKS
350 REM--------------------1-------
360 REM
370 B0=TI
380 FORK=1TO1000
390 NEXTK
400 B1=TI
410 REM--------------------2---------
420 K=0
430 K=K+1
440 IFK<1000THEN430
450 B2=TI
451 REM--------------------3---------
452 K=0
453 K=K+1
454 A=K/K*K+K-K
455 IFK<1000THEN453
456 B3=TI
460 REM--------------------4---------
470 K=0
480 K=K+1
490 A=K/2*3+4-5
500 IFK<1000 THEN480
510 B4=TI
520 REM--------------------5---------
530 K=0
540 K=K+1
550 A=K/2*3+4-5
560 GOSUB600
570 IFK<1000 THEN540
580 B5=TI
590 GOTO620
600 RETURN
610 REM--------------------6---------
620 K=0
630 K=K+1
640 A=K/2*3+4-5
650 GOSUB710
660 FORL=1TO5
670 NEXTL
680 IFK<1000 THEN630
690 B6=TI
700 GOTO730
710 RETURN
720 REM---------------------7--------
725 DIM M(10)
730 K=0
740 K=K+1
750 A=K/2*3+4-5
760 GOSUB830
770 FORL=1TO5
780 M(L)=A
790 NEXTL
800 IFK<1000 THEN740
810 B7=TI
820 GOTO850
830 RETURN
840 REM---------------------8--------
850 K=0
860 K=K+1
870 A=K^2
880 B=LOG(K)
890 C=SIN(K)
900 IF K<1000 THEN860
910 B8=TI
920 RETURN
930 REM -----------------------------
940 REM -        UP SORTIEREN       -
950 REM -----------------------------
960 REM -   Q1    = ANZAHL ELEMENTE -
970 REM -   FF$() = SORTIERFELD     -
980 REM -----------------------------
990 :
1000 REM JJ,LL = LAUFVARIABLE
1010 REM Q2$   = ZWISCHENSPEICHER
1020 :
1030 REM SORTIERT DAS FELD FF$ MIT
1040 REM Q1 ELEMENTEN IN ALPHABE -
1050 REM TISCHER FOLGE
1060 :
1070 FORJJ=1TOQ1-1
1080 FORLL=JJ+1TOQ1
1090 IFFF$(JJ)<=FF$(LL)THEN1130
1100 Q2$=FF$(JJ)
1110 FF$(JJ)=FF$(LL)
1120 FF$(LL)=Q2$
1130 NEXTLL
1140 NEXTJJ
1150 RETURN