<![CDATA[
#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);
}
]]>