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 INSERT-SORT INTEGER
180 REM ------------------------------
190 FORJ=DTO2STEP-1:VW=A%(J-1):A=D:FORI=JTOD
200 IFVW<=A%(I)THENA=I-1:I=D:GOTO220
210 A%(I-1)=A%(I)
220 NEXTI:A%(A)=VW:NEXTJ:RETURN
230 REM ------------------------------