Определите самое длинное слово в строке - QBasic

LINE INPUT "vvedite stroku: ", s$
FOR i = 1 TO LEN(s$) + 1
    m$ = MID$(s$ + " ", i, 1)
    SELECT CASE ASC(m$)
        CASE 65 TO 90, 97 TO 122, 168, 184, 192 TO 255: w$ = w$ + m$
        CASE ELSE
            IF LEN(w$) > LEN(wmax$) THEN wmax$ = w$
            w$ = ""
    END SELECT
NEXT i
PRINT wmax$