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   TURBOSORT TEXT
200 REM ------------------------------
210 L%(1)=1:R%(1)=D:EB=1:GOTO280
220 IFL>=RTHEN270
230 FORJ=RTOL+1STEP-1:VW$=A$(J-1):A=R:FORI=JTOR
240 IFVW$<=A$(I)THENA=I-1:I=R:GOTO260
250 A$(I-1)=A$(I)
260 NEXTI:A$(A)=VW$:NEXTJ
270 EB=EB-1:IFEB=0THENRETURN
280 L=L%(EB):R=R%(EB):IF L+12>R THEN 220
290 VW$=A$(INT((L+R)/2))
300 IFA$(L)<VW$ THEN L=L+1:GOTO300
310 IFA$(R)>VW$ THEN R=R-1:GOTO310
320 IFL>R THEN 350
330 A$=A$(L):A$(L)=A$(R):A$(R)=A$
340 L=L+1:R=R-1:IFL<=R THEN 300
350 EB=EB+1
360 IF(R-L%(EB-1))<(R%(EB-1)-L)THENL%(EB)=L%(EB-1):R%(EB)=R:L%(EB-1)=L:GOTO280
370 L%(EB)=L:R%(EB)=R%(EB-1):R%(EB-1)=R:GOTO280
380 REM ------------------------------