http://www.ousob.com --- Legacy Redefined #include <stdlib.h> #include <extend50.h> CLIPPER b_envvars() { char *p; int i = 0; while( environ[i] ){ i++; } _reta(i -1); i = 0; while( environ[i] ){ _storc(environ[i], -1, i++); } _ret(); }