100 PRINT "BITTE WARTEN. SORTSTRINGS WERDEN ERZEUGT"
110 A=50:DIM A$(A)
120 FOR I=1 TO A:FOR II=1 TO 10:A$(I)=A$(I)+CHR$(INT(RND(TI)*25)+65):NEXT II,I
130 FOR I=1 TO A:PRINT A$(I):NEXT:T1=TI
140 FOR X=1 TO A-1:FOR Y=X+1 TO A:IF A$(X)<=A$(Y) THEN 160
150 SYS 49152,A$(X),A$(Y)
160 NEXT Y,X
170 PRINT:FOR I=1 TO A:PRINT A$(I):NEXT
180 PRINT "SORTIERZEIT:"(TI-T1)/60"SEC"