Ввести слово и программа должна написать его же, но, если в слове есть одинаковые символы, то их не писать — QBasic(Бейсик)

CLS
INPUT "Vvedite slovo:", Sl$
PRINT "Slovo bez povtorov:";
FOR bukv% = 1 TO LEN(Sl$)
    NoOut = 0
    FOR pr% = 1 TO LEN(SlovNew$)
        IF bukv% <> pr% AND MID$(Sl$, bukv%, 1) = MID$(SlovNew$, pr%, 1) THEN NoOut = 1
    NEXT
    IF NoOut = 0 THEN SlovNew$ = SlovNew$ + MID$(Sl$, bukv%, 1)
NEXT
PRINT SlovNew$