Написать программу , определяющую число слов в строке.Одно слово от другого отделяется пробелом — QBasic(Бейсик)

DIM s AS STRING, slov AS INTEGER
CLS: INPUT "Vvedite slovo:"; s
s = RTRIM$(LTRIM$(s)): slov = 1
IF s = "" THEN PRINT 0: END
DO: f = INSTR(1, s, " ")
    IF f = 0 THEN EXIT DO ELSE slov = slov + 1: s = RIGHT$(s, LEN(s) - f)
LOOP
PRINT slov