http://www.ousob.com --- Legacy Redefined #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_4bytes() { register int; int bytesRead = 0; char *tmp; char buffr[4]; char buffer[5]; 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); }