http://www.ousob.com --- Legacy Redefined #include <ctype.h> #include <string.h> #include <extend50.h> CLIPPER b_isalpha() { int retVal = 1, i = 0; char *ptr; if( !ISCHAR(1) ){ _retl(retVal); return; } ptr = _parc(1); for(i=0; i<strlen(ptr); i++){ if( !isalpha(ptr[i]) ){ retVal = 0; break; } } _retl(retVal); }