В исходной строке а$ определить и вывести слова, в которых нет повторяющихся букв

DIM St AS STRING, s AS STRING
DIM ns AS INTEGER, ns2 AS INTEGER
CLS : LINE INPUT "Vvedi stroku : ", St
St$ = " " + St$ + " "
   FOR i% = 1 TO LEN(St)
      s = MID$(St, i%, 1)
      IF s = " " THEN
        IF prb = 1 THEN Add$ = "" ELSE Add$ = s
        prb = 1
      ELSE prb = 0
        Add$ = s
      END IF
      IF Add$ = " " THEN k% = k% + 1
      n$ = n$ + Add$
   NEXT
St = n$
PRINT "Unikalnye bukvi v slovah:"
   FOR i% = 1 TO k% - 1
      ns = INSTR(ns + 1, St, " ")
      ns2 = INSTR(ns + 1, St, " ")
         Slov1$ = MID$(St, ns + 1, ns2 - ns - 1)
      ns3 = 0: Uni% = -1
      FOR j% = 1 TO k% - 1
         ns3 = INSTR(ns3 + 1, St, " ")
         ns4 = INSTR(ns3 + 1, St, " ")
         IF j% <> i% THEN
            Slov2$ = MID$(St, ns3 + 1, ns4 - ns3 - 1)
              FOR l% = 1 TO LEN(Slov1$)
                 IF INSTR(Slov2$, MID$(Slov1$, l%, 1)) THEN Uni% = 0: EXIT FOR
              NEXT
              IF Uni% = 0 THEN EXIT FOR
         END IF
      NEXT
      IF Uni% THEN PRINT "  "; Slov1$: us = -1
   NEXT
IF NOT us THEN PRINT "Netu unikalnyh slov!!!"

LINE INPUT "enter string: ", a$
n = ASC("z") - ASC("a") + 1
DIM c(n)
FOR i = 1 TO LEN(a$)
    ch$ = MID$(a$, i, 1)
    isalpha = LCASE$(ch$) >= "a" AND LCASE$(ch$) <= "z"
    IF isalpha THEN
        b$ = b$ + ch$
        z = ASC(LCASE$(ch$)) - ASC("a") + 1
        c(z) = c(z) + 1
    END IF
    IF isalpha = 0 OR i = LEN(a$) THEN
        f = 1
        FOR j = 1 TO n
            IF c(j) > 1 THEN f = 0
            c(j) = 0
        NEXT
        IF f THEN PRINT b$
        b$ = ""
    END IF
NEXT