XPenvPtr()
  Return/Set the Environment Pointer
------------------------------------------------------------------------------

  Function:    XPenvPtr()

               Use this function to set the value of the Environment
               Pointer. You need to make it Point to the original
               Environment strings for Child processes.

  Syntax:      XPenvPtr(nValue)

  Arguments:   New segment adress

  Returns:     Current segment adress

  Usage:       * - RUN, but use Environment strings as set by
               * Your Application (Envxxxx() functions).
               x = XPenvPtr(XPenvOrig())  <- Keep Ours and set To orig..
               ! WhatEver
               XPenvPtr(x)              <- Restore Ours..