1250 "S" CLEAR : CLS : INPUT "Anzahl ";N,"Laenge ";L,"Doppelte?";B$:N=N-1: DIM A$(N)*L,B$(0)*L
 1251 FOR I=0 TO N: WAIT 0: PRINT "Item"; STR$ (I+1);":";: INPUT A$(I): CLS : NEXT I: FOR I=0 TO N-1:K=I
 1252 FOR J=I+1 TO N: IF A$(K)<=A$(J) THEN 1254
 1253 K=J: GOTO 1255
 1254 IF B$="N" AND A$(K)=A$(J) LET A$(J)=""
 1255 NEXT J:B$(0)=A$(I):A$(I)=A$(K):A$(K)=B$(0): NEXT I:I=0: WAIT : FOR L=0 TO N: IF A$(L)="" NEXT L
 1256 I=I+1: PRINT "Item"; STR$ (I);":";A$(L): NEXT L: END