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

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$