В последовательности символов, предшествующих символу / заменить каждую из групп стоящих рядом точек одной точкой- QBasic(Бейсик)

INPUT a$
b = INSTR(1, a$, "/")
c$ = MID$(a$, b + 1)
FOR i = b TO 1 STEP -1
    IF MID$(a$, i, 1) <> "." OR (MID$(a$, i, 1) = ".") AND (MID$(a$, i + 1, 1) <> ".") THEN c$ = MID$(a$, i, 1) + c$
NEXT
PRINT c$