Удалить часть символьной строки, заключенной в скобки (вместе со скобками) - QBasic

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

Удалить часть символьной строки, заключенной в скобки (вместе со скобками) В QBasic

Решение задачи: «Удалить часть символьной строки, заключенной в скобки (вместе со скобками)»

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

LINE INPUT "vvedite text:"; a$
DO
    q1 = INSTR(a$, "(")
    q2 = INSTR(a$, ")")
    IF q1 > 0 AND q2 > 0 THEN
        a$ = MID$(a$, 1, q1 - 1) + MID$(a$, q2 + 1, LEN(a$) - q2)
    ELSE
        EXIT DO
    END IF
LOOP
PRINT a$

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

Пользователю предлагается ввести текст.
Вводится цикл DO, который будет выполняться до тех пор, пока не будет выполнено условие выхода из цикла.
Внутри цикла находятся две переменные q1 и q2, которые предназначены для поиска первого и последнего символа скобки в введенном тексте.
Если обе переменные q1 и q2 больше нуля (то есть символы скобки были найдены), то выполняется блок инструкций внутри условия IF.
В этом блоке инструкций происходит замена скопированного текста на введенный текст без скобок.
Если хотя бы одна из переменных q1 или q2 равна нулю (то есть не все скобки были найдены), то выполняется команда EXIT DO, и цикл прекращается.
После окончания цикла выполняется команда PRINT a$, где a$ — это измененный введенный текст без скобок.