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

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

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

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

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

DEFSTR a-d
DEFINT i-m
CLS
INPUT "Enter a ",a
INPUT "Enter b ",b
PRINT
FOR i=1 TO LEN(a)
   c=MID$(a,i,1)
   IF INSTR(b,c)AND c<>" " THEN
      IF NOT INSTR(d,c) THEN PRINT c;:d=d+c
   END IF
NEXT i
END

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

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

Задаются начальные значения переменных:
- a - строка, в которой нужно найти символы
- b - строка, в которой нужно искать символы
- d - пустая строка, в которую будут добавляться найденные символы
- i - переменная для цикла, инициализируется значением 1
- m - переменная для цикла, инициализируется значением LEN(a)
В цикле от i до m выполняются следующие действия:
- c - это текущий символ из строки a, который берется с помощью функции MID$(a,i,1)
- проверяется, содержится ли символ c в строке b с помощью функции INSTR(b,c)
- если символ не найден в строке b и он не является пробелом (что проверяется с помощью оператора AND), то он добавляется в строку d с помощью оператора PRINT и добавления символа к строке d (с помощью оператора :d=d+c)
После выполнения цикла выводится строка d. Вот список действий в виде нумерованного списка:
Задаются начальные значения переменных.
В цикле от i до m выполняются следующие действия:
- 1. c - это текущий символ из строки a, который берется с помощью функции MID$(a,i,1).
- 1. Проверяется, содержится ли символ c в строке b с помощью функции INSTR(b,c).
- 1. Если символ не найден в строке b и он не является пробелом (что проверяется с помощью оператора AND), то он добавляется в строку d с помощью оператора PRINT и добавления символа к строке d (с помощью оператора :d=d+c).
После выполнения цикла выводится строка d.