http://www.ousob.com --- Legacy Redefined #include <extend50.h> #define ff _f_first extern int _f_first(char *); CLIPPER b_ff() { int retVal = FALSE; if( !ISCHAR(1) ){ _retl(retVal); return; } if( ff(_parc(1)) ){ retVal = TRUE; } _retl(retVal); }