100 DIM E$(10),A$(10),L%(16),R%(16)
110 DATA"RAM","MONITOR","FLOPPY","DISC","ROM","COMPUTER","TASTEN","JOYSTICK","DRUCKER","BASIC"
120 FORI=1TO10:READE$(I):NEXT
130 D=10
140 FORI=1TOD:A$(I)=E$(I):NEXT
150 AT=TI:GOSUB 210:AT=TI-AT
160 FORI=1TOD:PRINTE$(I),A$(I):NEXT
170 PRINT:PRINTAT:END
180 REM ------------------------------
190 REM   QUICKSORT TEXT
200 REM ------------------------------
210 L%(1)=1:R%(1)=D:EB=2
220 EB=EB-1:IFEB=0THENRETURN
230 IF L%(EB)>=R%(EB) THEN 220
240 L=L%(EB):R=R%(EB):VW$=A$(INT((L+R)/2))
250 IFA$(L)<VW$ THEN L=L+1:GOTO250
260 IFA$(R)>VW$ THEN R=R-1:GOTO260
270 IFL>R THEN 300
280 A$=A$(L):A$(L)=A$(R):A$(R)=A$
290 L=L+1:R=R-1:IFL<=R THEN 250
300 EB=EB+1
310 IF(R-L%(EB-1))<(R%(EB-1)-L)THENL%(EB)=L%(EB-1):R%(EB)=R:L%(EB-1)=L:GOTO230
320 L%(EB)=L:R%(EB)=R%(EB-1):R%(EB-1)=R:GOTO230
330 REM ------------------------------