Anagrammatic 213
145 LOCATE 1,8: PEN 3:PRINT"DO NOT INPUT ANY LETTERS WHOSE POSITION IS KNOWN.";: PRINT:PEN I
150 INPUT A$:IF A$="" THEN 150
160 PRINT
170 L=LEN(A$)
180 ERASE B$,C$,Q
190 DIM B$(L),C$(L),Q(L)
200 FOR X=1 TO L:B$(X)=" ":C$(X)=" ":NEX
210 PRINT CHR$(24)"ARE ANY LETTERS/SPACE S KNOWN? CY OR NJ?":PRINT CHR$(24)
220 Z$=INKEY$:IF Z4=="" THEN 220
230 IF Z$="N" OR Z$="n" THEN K$=STRING$( L,"-"):W=L:GOTO 290
240 IF Z$<>"1" AND Z$<>"y" THEN 220
250 PEN 2:PRINT:PRINT"TYPE IN THE KNOWN ORDER AS PER EXAMPLE	C E.g. 1-
E-F -EE-]":PEN 1
260 INPUT K$:W=L
270 T=0: FOR J=1 TO LEN(K$):IF M1D$(K$,J ,1)="-" THEN T=T+I
280 NEXT J:IF T<>L THEN GOSUB 540:GOTO 2 60
290 PRINT STRING$(40,"-")
300 GOSUB 520
310 FOR J=W TO L
320 K=1
330 Q(K)=1
340 IF B$(Q(K))=" " THEN 450
350 C$(K)=B$(0(K)):B$(0(K))=" "
360 K=K+I
370 IF K<=J THEN 330
380 A=1
390 FOR S=1 TO LEN(K$)
400 IF MID$(K$,S,1)="-" THEN PRINT C$(A) ;:A=A+1:GOTO 420
410 PRINT MIDS(K$,S,1); 420 NEXT S:PRINT,
430 K=J
440 BS(Q(K))=MID$(A$,Q(K) I) 450 Q(K)=Q(K)+1
460 IF Q(K)<=L THEN 340 470 K=K-1