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