<![CDATA[
#include <dos.h>
#include <extend50.h>
CLIPPER b_len()
{
union REGS iRegs,oRegs;
struct SREGS segregs;
char *string = _parc(1);
if( !ISCHAR(1) ){
_retl(0);
return;
}
iRegs.x.ax = 0x1225;
segregs.ds = FP_SEG( (void far *)string );
iRegs.x.si = FP_OFF( (void far *)string );
int86x(0x2F,&iRegs,&oRegs,&segregs);
_retni(oRegs.x.cx - 1);
}
]]>