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

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$