PROCEDURE SimChars PARAMETERS tcString LOCAL lcLetter, i, llRetVal lcLetter = LEFT( tcString, 1 ) i = 0 llRetVal = .T. FOR i = 2 TO LEN( tcString ) IF SUBSTR( tcString, i, 1 ) <> lcLetter llRetVal = .F. EXIT ENDIF lcLetter = SUBSTR( tcString, i, 1 ) ENDFOR RETURN llRetVal