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   QUICKSORT 128 INTEGER
180 REM ------------------------------
190 L%(1)=1:R%(1)=D:EB=2
200 EB=EB-1:IFEB=0THENRETURN
210 IF L%(EB)>=R%(EB) THEN 200
220 L=L%(EB):R=R%(EB):VW=A%(INT((L+R)/2))
230 IF A%(L)<VW THEN L=L+1:GOTO230
240 IFA%(R)>VW THEN R=R-1:GOTO240
250 IFL>R THEN 280
260 A=A%(L):A%(L)=A%(R):A%(R)=A
270 L=L+1:R=R-1:IFL<=RTHEN230
280 EB=EB+1
290 IF(R-L%(EB-1))<(R%(EB-1)-L)THENL%(EB)=L%(EB-1):R%(EB)=R:L%(EB-1)=L:GOTO210
300 L%(EB)=L:R%(EB)=R%(EB-1):R%(EB-1)=R:GOTO210
310 REM ------------------------------