<![CDATA[
#include <extend50.h>
#define open _topen
#define close _tclose
#define lseek _tlseek
#define read _tread
#define write _twrite
#define create _tcreat
extern int _topen( char*, int);
extern int _tclose( int );
extern long _tlseek( int, long, int);
extern int _tread( int, char*, int);
extern int _twrite( int, char*, int);
extern int _tcreat( char*, int);
CLIPPER b_2bytes()
{
register int;
int bytesRead = 0;
char *tmp;
char buffr[1];
char buffer[2];
int fileHandle = _parni(1);
if( !ISNUM(1) ){
buffr[0] = NULL;
_retc(buffr);
return;
}
bytesRead = read(fileHandle,buffr,1);
buffer[0] = buffr[0];
buffer[1] = '\0';
_retc(buffer);
}
]]>