Дана строка. Подсчитать, сколько различных символов встречаются в ней Вывести их на экран — QBasic(Бейсик)

INPUT a$
FOR i = 1 TO LEN(a$)
    f = 0
    FOR j = 1 TO LEN(a$)
        IF i <> j AND MID$(a$, i, 1) = MID$(a$, j, 1) THEN f = 1
    NEXT
    IF f = 0 THEN k = k + 1
NEXT
PRINT k