<![CDATA[
#include <extend50.h>
#define read _tread
extern int _tread( int, char*, int);
CLIPPER b_char()
{
char buffr[3] ;
int fileHandle = _parni(1);
if( !ISNUM(1) ){
_retl(0);
return;
}
read(fileHandle,buffr,1);
switch(buffr[0]){
case 0x0a :
buffr[0] = 0x0a;
buffr[1] = 0x0d;
buffr[2] = NULL;
break;
case 0x1a :
buffr[0] = NULL;
break;
default:
buffr[1] = NULL;
break;
}
_retc(buffr);
}
]]>