В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в заглавные - QBasic

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

1. В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в заглавные. буду очччень благодарен, если поможете.. сейчас контрольная идет!

Решение задачи: «В заданной строке преобразовать все заглавные буквы латинского алфавита в строчные а строчные в заглавные»

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

INPUT a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = LCASE$(MID$(a$, i, 1)) THEN
        MID$(a$, i, 1) = UCASE$(MID$(a$, i, 1))
    ELSE
        MID$(a$, i, 1) = LCASE$(MID$(a$, i, 1))
    END IF
NEXT
PRINT a$

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

Входная строка сохраняется в переменной a$.
Запускается цикл, который будет выполняться для каждого символа в строке (не больше 20).
Для каждого символа проверяется его регистр с помощью функции LCASE и UCASE.
Если символ в нижнем регистре, то он преобразуется в верхний регистр.
Если символ в верхнем регистре, то он преобразуется в нижний регистр.
Выполняется следующий итерация цикла.
После выполнения всех итераций цикла, преобразованная строка выводится на экран.