LOCAL n : INTEGER := 0; END_LOCAL; REPEAT i := 1 TO LENGTH (str); IF str[i] = '.' THEN n := n + 1; END_IF; END_REPEAT; RETURN (n);