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