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