SET EXACT OFF

CREATE Table yourcursor (statements M(4))

INSERT INTO yourcursor VALUES ('Specifies the string to be evaluated')
INSERT INTO yourcursor VALUES ('Specifies the index position of the word to be returned')
INSERT INTO yourcursor VALUES ('Specifies the string whose words will be counted')
INSERT INTO yourcursor VALUES ('Specifies one or more optional characters used to separate words in cString')
INSERT INTO yourcursor VALUES ('Count supports the Access method')
INSERT INTO yourcursor VALUES ('Since Count is read-only, it does not support the Assign method')

CREATE TABLE my_words (mtext c(50))
INDEX ON UPPER(mtext) TAG my_words

SELECT yourcursor

SCAN
    m.my_var = STRTRAN(ALLTRIM(yourcursor.statements),' ',CHR(13))
    m.number_of_words = MEMLINE(m.my_var)
    FOR m.my_cicle = 1 TO m.number_of_words
        m.new_word = ALLTRIM(MLINE(m.my_var,m.my_cicle))
        SEEK UPPER(m.new_word) IN my_words
        IF NOT FOUND('my_words')
           INSERT INTO my_words VALUES (m.new_word)
        ENDIF
    ENDFOR
ENDSCAN

SELECT my_words
BROWSE NORMAL
CLOSE DATABASES ALL