В исходной строке b$ после каждого вхождения заданного сочетания символов x$ ввести сочетание символов y$ - QBasic

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

В исходной строке b$ после каждого вхождения заданного сочетания символов x$ ввести сочетание символов y$.

Решение задачи: «В исходной строке b$ после каждого вхождения заданного сочетания символов x$ ввести сочетание символов y$»

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

DEFSTR B, X-Y
DEFINT I, N
CLS
INPUT "Vvedite osnovnuyu stroku"; b
INPUT "Vvedite sochetanie X"; x
INPUT "Vvedite sochetanie Y"; y
n2 = 1
nx = LEN(x)
ny = LEN(y)
 
2014
nb = LEN(b)
n = n2
n = INSTR(n, b, x)
IF n <> 0 THEN
   b1 = LEFT$(b, n - 1 + nx)
   b2 = RIGHT$(b, nb - (n - 1) - nx)
   b = b1 + y + b2
   n2 = n + nx + ny - 1
   GOTO 2014
END IF
PRINT b
END

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

В этом коде выполняется следующая последовательность действий:

Задаются исходные данные: основная строка b$, сочетание символов x$ и y$.
Определяются и инициализируются переменные:
- n2 - счётчик, начальное значение 1;
- nx - длина сочетания символов x$;
- ny - длина сочетания символов y$;
- nb - длина строки b$;
- b1 - левая часть строки b$ до первого вхождения сочетания символов x$;
- b2 - правая часть строки b$ после последнего вхождения сочетания символов x$;
- b - итоговая строка, равная b1 + y + b2;
- n2 - обновлённое значение счётчика, равное сумме счётчика n, длины сочетания символов x$ и длины сочетания символов y$.
С помощью цикла GOTO 2014 обеспечивается рекурсивное вставка сочетания символов y$ после каждого вхождения сочетания символов x$ в строке b$.
Код выводит итоговую строку b$.