http://www.ousob.com --- Legacy Redefined #include <extend50.h> #define unlink _tunlink extern int _tunlink(char *); CLIPPER b_erase() { if( !ISCHAR(1) ){ _retl(0); return; } _retl( (unlink(_parc(1)) == 2) ? 1 : 0 ); }