LPARAMETERS ; tcString LOCAL ; lnIx, ; lnBadCount lnBadCount = 0 FOR lnIx = 1 TO LEN(tcString) STEP 1 IF ASC(SUBSTR(tcString, lnIx, 1)) > 0 ; AND ASC(SUBSTR(tcString, lnIx, 1)) < 32 * Character is "bad": lnBadCount = lnBadCount + 1 ELSE * Character is OK ENDIF ENDFOR WAIT WINDOW "There are " + LTRIM(STR(lnBadCount)) + ; " bad characters in the string."