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

INPUT "vvedite stroku ", a$
INPUT "vvedite simvol ", b$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = b$ THEN s = s + i
NEXT
PRINT s

Тестирование выполнено в программе QB64 ( Скачать )