Click above to get retro games delivered to your door ever month!

 SWPSETENV() / SWPSETENVBAS()
------------------------------------------------------------------------------
 Purpose:
 Set environment variables for the child process.

 Syntax:
 lsuccess = SWPSETENV(cString)

 Parameters:
 cString  Environment variables string.

 Returns:
 True if cString < 512 bytes long, false otherwise

 Description:
 SWPSETENV() allows the parent process to add, amend and delete environment
 strings in the child's environment. The parameter to SWPSETENV() is a single
 string containing all the variables to be set. Each variable is separated
 from the next by a delimiter, the character CHR(255). You do not need a
 CHR(255) at the end of the string. If you need a CHR(255) in the string,
 specify two in a row.

 Example:
 str := "PROMPT=<Type Exit to return><$p$g" + CHR(255) + "SWAPPED=TRUE"      
 SWPSETENV(str)                                                              

 This example will change the prompt, and add (or change) the 'SWAPPED'
 environment variable.
 str := "CLIPPER=" + CHR(255) + "BLINKER=/OP1"
 SWPSETENV(str)
 This example will DELETE the 'CLIPPER' environment variable, and add (or
 change) the 'BLINKER' environment variable.
 Note that these environment changes are only set at the time the swap is
 executed, and apply only to the child's environment, NOT the parent's copy.
 Use of this function will increase the size of the kernel in memory by an
 amount equal to the size of the new environment.