http://www.ousob.com --- Legacy Redefined #include <string.h> #include <extend50.h> CLIPPER b_chrcount() { int retVal = 0, i; char chr = _parc(1)[0]; char *str = _parc(2); if( !ISCHAR(1) && !ISCHAR(2) ){ _retni(-1); return; } for(i=0; i<strlen(str); i++){ if( chr == str[i] ){ retVal++; } } _retni(retVal); }