CLS
N = 1
INPUT "tekst"; S$
L = LEN(S$)
FOR i = 1 TO L
B$ = MID$(S$, i, 1)
IF ASC(B$) = 32 THEN
N = N + 1
END IF
NEXT i
PRINT "N="; N
