Цикл для удаления лишних пробелов

DIM str AS STRING
DIM ans AS STRING
OPEN "C:\F1.txt" FOR INPUT AS #1
INPUT ans
 
WHILE NOT EOF(1)
    INPUT #1, str
    PRINT str
    WEND
    CLOSE (1)
    INPUT ans

DECLARE FUNCTION MyTrim$ (txt AS STRING)
DIM txt AS STRING, ff AS INTEGER
ff = FREEFILE
OPEN "f1.txt" FOR INPUT AS ff
WHILE NOT EOF(ff)
    LINE INPUT #ff, txt
    PRINT MyTrim(txt)
WEND
CLOSE ff
 
FUNCTION MyTrim$ (txt AS STRING)
    DIM i AS INTEGER, word AS STRING, m AS STRING, trimstr AS STRING
    FOR i = 1 TO LEN(txt)
    m = MID$(txt, i, 1)
    IF m = " " THEN
        IF word <> "" THEN
        IF trimstr = "" THEN trimstr = word ELSE trimstr = trimstr + " " + word
        word = ""
        END IF
    ELSE
        word = word + m
    END IF
    NEXT i
    IF word <> "" THEN
    IF trimstr = "" THEN trimstr = word ELSE trimstr = trimstr + " " + word
    END IF
    MyTrim = trimstr
END FUNCTION

FUNCTION MyTrim$(txt AS STRING)
    DIM i AS INTEGER, m0 AS STRING, m AS STRING, trimstr AS STRING
    FOR i = 1 TO LEN(txt)
        m = MID$(txt, i, 1)
        IF m <> " " OR m0 <> " " THEN trimstr = trimstr + m
        m0 = m
    NEXT i
    MyTrim = trimstr
END FUNCTION