Подсчитать число различных букв в слове - QBasic

Формулировка задачи:

Подсчитать число различных букв в слове. Нашел на паскале эту задачу, как пределать эту задачу на qbasic length вроде нет в basic ,

                    Листинг программы
                
 
                        
                          
                    
var s:string;
r:real;
i,j,n:integer;
begin
r:=0;
readln(s);
for i:=1 to length(s) do begin
n:=0;
for j:=1 to length(s) do begin
if s[i]=s[j] then inc(n);
end;
r:=r+1/n;
end;
writeln('количество различных букв = ', r:1:0);
end.

Решение задачи: «Подсчитать число различных букв в слове»

Листинг программы

DIM ch(255)
INPUT "Vvedi slovo: ", s$
FOR i = 1 TO LEN(s$)
    q = ASC(MID$(s$, i, 1))
    IF ch(q) = 0 THEN ch(q) = 1: ret = ret + 1
NEXT
PRINT "Razlichnyh bukv ="; ret

Объяснение кода листинга программы

Создается массив ch размером 255 для хранения количества вхождений каждой буквы.
Пользователю предлагается ввести слово.
Происходит итерация по каждому символу в слове.
Каждый символ преобразуется в числовое значение с помощью функции ASC.
Проверяется, сколько раз в массиве ch встречается символ с числовым значением, равным текущему символу.
Если символ встречается в массиве ch впервые, то увеличивается его счетчик на 1.
После завершения цикла выводится количество различных букв в слове.