http://www.ousob.com --- Legacy Redefined #include <extend50.h> #define close _tclose extern int _tclose( int ); CLIPPER b_close() { int retVal; int handle = _parni(1); if( !ISNUM(1) ){ _retl(0); return; } retVal = close(handle); _retl( retVal ? 1 : 0 ); }