100 D=200
110 UG=1:OG=10
120 DIM E%(D),A%(D),G%(OG-UG)
130 FORI=1TOD:E%(I)=INT(RND(0)*10+1):NEXT
140 FORI=1TOD:A%(I)=E%(I):NEXT
150 AT=TI:GOSUB210:AT=TI-AT
160 FORI=1TOD:PRINTE%(I),A%(I):NEXT
170 PRINT:PRINTAT:END
180 REM ------------------------------
190 REM HASH-CODE
200 REM ------------------------------
210 FORI=0TOOG-UG:G%(I)=0:NEXT
220 FORI=1TOD:G%(A%(I)-UG)=G%(A%(I)-UG)+1:NEXT
230 I=0:FORJ=1TOD
240 IFG%(I)=0THENI=I+1:GOTO240
250 G%(I)=G%(I)-1:A%(J)=I+UG:NEXTJ:RETURN
260 REM ------------------------------