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 BUBBLE-SORT INTEGER
180 REM ------------------------------
190 FORJ=D-1TO1STEP-1:FORI=JTOD-1
200 IFA%(I)<=A%(I+1)THENI=D-1:GOTO220
210 A=A%(I):A%(I)=A%(I+1):A%(I+1)=A
220 NEXTI:NEXTJ:RETURN
230 REM ------------------------------