Определить все слова, отличные от первого слова - QBasic

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

Задание № 1. В исходной строке b$ определить все слова, отличные от первого слова. Вывести эти слова в столбик.

Решение задачи: «Определить все слова, отличные от первого слова»

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

DEFINT A-Z
CLS
LINE INPUT "Vvedi stroku: ", s$
   FOR i = 1 TO LEN(s$)
      b$ = MID$(s$, i, 1)
      IF b$ <> "0" AND b$ <> "1" THEN f = 1
   NEXT
IF f = 1 OR b$ <> "0" THEN f2 = 1: PRINT "ne ";
PRINT "yavlaetsa"
IF f2 = 0 THEN
   FOR i = 1 TO LEN(s$)
      b$ = MID$(s$, i, 1)
      IF b$ = "0" THEN PRINT "1"; *ELSE PRINT "0";
   NEXT
END IF

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

Задаётся команда DEFINT A-Z, которая определяет все буквы от A до Z как числа.
Очищается экран с помощью команды CLS.
Пользователю предлагается ввести строку с помощью команды LINE INPUTVvedi stroku: , s$.
С помощью цикла FOR проверяется каждый символ в строке.
Переменная b$ получает каждый символ строки s$ с помощью функции MID$.
Если текущий символ не равен 0 и не равен 1, то переменной f присваивается значение 1.
Если f равно 1 или текущий символ не равен 0, то переменной f2 присваивается значение 1 и выводится сообщение ne yavlaetsa.
Если f2 равно 0, то с помощью цикла FOR выводятся все символы строки s$, которые равны 0.
Если f2 равно 1, то с помощью цикла FOR выводятся все символы строки s$, которые не равны 0.