Сформировать и вывести слова, буквы, в которых являются всевозможными перестановками букв исходного слова

CLS
 
DIM A AS STRING
DIM M(1 TO 4) AS STRING
DIM R(1 TO 24) AS STRING
 
INPUT "A = "; A
 
FOR i = 1 TO 4
   M(i) = MID$(A, i, 1)
NEXT i
 
z = 1
FOR i = 1 TO 4
FOR j = 1 TO 4
   IF j = i THEN 100
   FOR k = 1 TO 4
      IF k = i OR k = j THEN 200
      FOR l = 1 TO 4
         IF l = i OR l = j OR l = k THEN 300
         R(z) = M(i) + M(j) + M(k) + M(l)
         z = z + 1
300
      NEXT l
200
   NEXT k
100
NEXT j
NEXT i
 
FOR i = 1 TO 24
   PRINT R(i)
NEXT i
 
END

CLS
 
DIM A AS STRING
DIM B AS STRING
DIM M(1 TO 4) AS STRING
DIM R(1 TO 24) AS STRING
 
INPUT "A = "; A
 
FOR i = 1 TO 4
   M(i) = MID$(A, i, 1)
NEXT i
 
z = 1
FOR i = 1 TO 4
FOR j = 1 TO 4
   IF j = i THEN 100
   FOR k = 1 TO 4
      IF k = i OR k = j THEN 200
      FOR l = 1 TO 4
         IF l = i OR l = j OR l = k THEN 300
         B = M(i) + M(j) + M(k) + M(l)
 
         IF z = 1 THEN R(1) = B: z = z + 1: GOTO 300
 
         FOR y = 1 TO z - 1
            IF B = R(y) THEN 300
         NEXT y
         R(z) = B
         z = z + 1
300
      NEXT l
200
   NEXT k
100
NEXT j
NEXT i
 
FOR i = 1 TO 24
   IF R(i) <> "" THEN PRINT R(i)
NEXT i
END

CLS
DIM A AS STRING
DIM B AS STRING
DIM C AS STRING
OPEN "A.txt" FOR INPUT AS #1
OPEN "B.txt" FOR INPUT AS #2
OPEN "C.txt" FOR OUTPUT AS #3
 
INPUT #2, B
 
DO
   INPUT #1, A
   IF A = B THEN
      DO
         INPUT #1, C
         PRINT #3, C
      LOOP UNTIL EOF(1)
   END IF
LOOP UNTIL EOF(1)
 
END