100 DATA"RAM","MONITOR","FLOPPY","DISC","ROM","COMPUTER","TASTEN","JOYSTICK","DRUCKER","BASIC"
110 D=10:DIM E$(D),A$(D)
120 FORI=1TOD:READE$(I):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 TEXT
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 ------------------------------