Составить программу, удаляющую в строке все, что заключено между фигурными скобками и их самих — QBasic(Бейсик)

INPUT a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = "(" THEN n1 = i
    IF MID$(a$, i, 1) = ")" THEN n2 = i
NEXT
FOR i = 1 TO LEN(a$)
    IF i < n1 OR i > n2 THEN b$ = b$ + MID$(a$, i, 1)
NEXT
PRINT b$