Составить программу перевода строки строчных русских букв в прописные — QBasic(Бейсик)

CLS
INPUT a$
DIM b$(LEN(a$))
FOR i = 1 TO LEN(a$)
    b$(i) = MID$(a$, i, 1)
    k = ASC(b$(i))
    IF (k >= 160) AND (k <= 175) THEN
        k = k - 32: b$(i) = CHR$(k)
    ELSEIF (k >= 224) AND (k <= 239) THEN
        k = k - 80: b$(i) = CHR$(k)
    ELSE
        PRINT b$(i); " ne yavlyaetsya bukvoi russkogo alfavita"
        b$(i) = ""
    END IF
NEXT i
PRINT
s$ = ""
FOR i = 1 TO LEN(a$)
    s$ = s$ + b$(i)
NEXT i
PRINT s$