ENVIRON
if (!(p->v_type&(ENVIRON|INIT)))
p->v_type &= ~(ENVIRON|INIT);
if (p->v_type&ENVIRON)
{ "SHELL", STRING|ENVIRON|INIT, (READ|WRITE)<<PUBLIC,
{ "HOME", STRING|ENVIRON, (READ|WRITE)<<PUBLIC,