2 IFPEEK(2051)<>3THENPOKE2051,3:LOAD"QUICKSORT.OBJ",8,1
5 REM BITTE ZEILE 2 GENAUSO EINGEBEN
10 INPUT "ANZAHL=  100[157][157][157][157][157]";A
20 DIM A$(A)
23 REM
25 REM  JEDES ELEMENT MIT 3 ZEICHEN
28 REM
30 FOR I = 1 TO A
35 : FOR J = 0 TO 2
40 :   A$(I) = A$(I)+CHR$(RND(1)*26+65)
50 : NEXT J
55 NEXT I
56 REM
57 REM       ELEMEMTE AUSGEBEN
58 REM
60 FOR I = 1 TO A
63 : PRINT A$(I);" ";
65 NEXT I
66 PRINT
67 REM
68 REM       ELEMENTE SORTIEREN
69 REM
70 TI$ = "000000"
74 SYS 52000
76 T = TI
77 REM
78 REM       ELEMENTE AUSGEBEN
79 REM
80 FOR I= 1 TO A
85 : PRINT A$(I);" ";
90 NEXT I
95 PRINT T/60