Даны строки a$ и b$. Вывести все символы строки a$, не входящие в строку b$ - QBasic

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

Даны строки a$ и b$. Вывести все символы строки a$, не входящие в строку b$.

Решение задачи: «Даны строки a$ и b$. Вывести все символы строки a$, не входящие в строку b$»

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

DEFSTR A-B
DEFINT I-J
CLS
INPUT "Vvedite stroku A"; a
INPUT "Vvedite stroku B"; b
 
FOR i = 1 TO LEN(a)
   a1 = MID$(a, i, 1)
   FOR j = 1 TO LEN(b)
      b1 = MID$(b, j, 1)
      IF a1 = b1 THEN 100
   NEXT j
   PRINT a1;
100
NEXT i
END

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

Название программы: DEFSTR A-B

Задаются две строки: a$ и b$.
С помощью цикла FOR выводятся все символы строки a$, которые не входят в строку b$.
Первая итерация цикла FOR выполняет входные данные.
Используется функция MID$(a, i, 1), чтобы получить каждый символ из строки a$ и сохранить его в переменной a1.
Вторая итерация цикла FOR выполняет входные данные.
Используется функция MID$(b, j, 1), чтобы получить каждый символ из строки b$ и сохранить его в переменной b1.
С помощью оператора IF проверяется, равен ли символ a1 символу b1. Если да, то выполнение кода переходит к метке 100.
Если символ a1 не равен символу b1, то с помощью оператора PRINT выводится символ a1.
Если все символы строки a$ были проверены и не совпадают с символами строки b$, то выполнение кода переходит к метке NEXT i.
Если все символы строки b$ были проверены и не совпадают с символами строки a$, то выполнение кода переходит к метке NEXT i.
Код завершается.