1110 "L" CLEAR : PRINT = PRINT : RANDOM : INPUT "n=";F:F=F-1: DIM A$(F)*17,H$(0)*17,J(5): FOR H=0 TO F
 1111 FOR D=0 TO 5:J(D)= RND (49): FOR E=0 TO D: IF E=D THEN 1113
 1112 IF J(D)=J(E) LET E=D:D=D-1
 1113 NEXT E: NEXT D
 1114 A=1: FOR B=0 TO 4: IF J(B)<=J(B+1) THEN 1116
 1115 G=J(B):J(B)=J(B+1):J(B+1)=G:A=0
 1116 NEXT B: IF A<>1 THEN 1114
 1117 FOR D=0 TO 5: RSET I$= STR$ J(D):I$= RIGHT$ (I$,2)
 1118 A$(H)=A$(H)+I$+" ": NEXT D: NEXT H
 1119 C=1: FOR D=0 TO F-1: IF A$(D)<=A$(D+1) THEN 1121
 1120 H$(0)=A$(D):A$(D)=A$(D+1):A$(D+1)=H$(0):C=0
 1121 NEXT D: IF C<>1 THEN 1119
 1122 FOR E=0 TO F: PRINT A$(E): NEXT E: END