100 INPUT"ANZAHL DER WERTE";D:PRINT
110 DIM E%(D),A%(D),L%(16),R%(16)
120 FORI=1TOD:E%(I)=INT(RND(1)*32768):A%(I)=E%(I):NEXT
130 AT=TI:GOSUB 190:AT=TI-AT
140 FORI=1TOD:PRINTE%(I),A%(I):NEXT
150 PRINT:PRINTAT:END
160 REM ------------------------------
170 REM   TURBOSORT INTEGER
180 REM ------------------------------
190 L%(1)=1:R%(1)=D:EB=1:GOTO260
200 IFL>=RTHEN250
210 FORJ=RTOL+1STEP-1:VW=A%(J-1):A=R:FORI=JTOR
220 IFA%(I)>=VWTHENA=I-1:I=R:GOTO240
230 A%(I-1)=A%(I)
240 NEXTI:A%(A)=VW:NEXTJ
250 EB=EB-1:IFEB=0THENRETURN
260 L=L%(EB):R=R%(EB):IFL+12>RTHEN200
270 VW=A%(INT((L+R)/2))
280 IFA%(L)<VW THEN L=L+1:GOTO280
290 IFA%(R)>VW THEN R=R-1:GOTO290
300 IFL>R THEN 330
310 A=A%(L):A%(L)=A%(R):A%(R)=A
320 L=L+1:R=R-1:IFL<=R THEN 280
330 EB=EB+1
340 IF(R-L%(EB-1))<(R%(EB-1)-L)THENL%(EB)=L%(EB-1):R%(EB)=R:L%(EB-1)=L:GOTO260
350 L%(EB)=L:R%(EB)=R%(EB-1):R%(EB-1)=R:GOTO260
360 REM ------------------------------