MasSav_1

DIM T$, I AS INTEGER, S AS INTEGER, LWS AS INTEGER, LWL AS INTEGER
DIM SWS AS INTEGER, SWL AS INTEGER
INPUT "Input text: ", T$
LWL = 0: SWL = 32767: I = 1
DO
    DO WHILE MID$(T$, I, 1) = " " AND I <= LEN(T$)
        I = I + 1
    LOOP
    S = I
    DO WHILE MID$(T$, I, 1) <> " " AND I <= LEN(T$)
        I = I + 1
    LOOP
    L = LEN(MID$(T$, S, I - S))
    IF LWL < L THEN
        LWL = L
        LWS = S
    ELSEIF SWL > L THEN
        SWL = L
        SWS = S
    END IF
LOOP WHILE I < LEN(T$)
PRINT "Most short word: "; MID$(T$, SWS, SWL); "; length ="; SWL
PRINT "Most long word: "; MID$(T$, LWS, LWL); "; length ="; LWL