100 INPUT"ANZAHL DER WERTE";D:PRINT
110 DIM E%(D),A%(D)
120 FORI=1TOD:E%(I)=INT(RND(1)*32768):A%(I)=E%(I):NEXT
130 AT=TI:GOSUB190:AT=TI-AT
140 FORI=1TOD:PRINTE%(I),A%(I):NEXT
150 PRINT:PRINTAT:END
160 REM ------------------------------
170 REM SELEKT-SORT INTEGER
180 REM ------------------------------
190 FORJ=2TOD:VW=A%(J-1):A=J-1:FORI=JTOD
200 IFA%(I)<VWTHENVW=A%(I):A=I
210 NEXTI:A%(A)=A%(J-1):A%(J-1)=VW:NEXTJ:RETURN
220 REM ------------------------------