ANAGRAMMES COMPLETES 
Dalibard

10 CLS
20 NP=720
30 DIM Y(NP),SS(NP),Z$(NP)
40 INFUT"Votre not ";A$
50 C=1
60 FOR N=LEN(A$)-1 TO 1 STEP -2
70 M=N*(N+1)
80 C=M*C
90 NEXT N
100 K=1
110 FOR N=1 TO C
120 T$=""
130 FOR I=1 TO LEN(A$):Y(I)=0:NEXT I
140 FOR I=1 TO LEN(AS)
150 X=INT(RND(1)*LEN(A$)+1) 
160 IF X=0 THEN 150
170 FOR J=1 TO I
180 IF Y(J)=X THEN 150
190 NEXT J
200 Y(I)=X
210 Z$(1)=MID$(AS,X,1)
220 NEXT I
230 FOR I=1 TO LEN(AS)
240 T$=T$+Z$(1)
250 NEXT I
260 FOR I=1 TO N
270 IF T$=S$(I) THEN 120
280 NEXT I
290 S$(N)=T$:PRINT Ni" ";SS(N)
300 NEXT N