http://www.ousob.com --- Legacy Redefined #include <stdlib.h> #include <string.h> #include <extend50.h> CLIPPER b_putenv() { int result; if( !ISCHAR(1) ){ _retl(0); return; } result = putenv( _parc(1) ); _retl( (result == 0) ? 1 : 0 ); }