http://www.ousob.com --- Legacy Redefined #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); }