DECLARE INTEGER GetEnvironmentVariable IN kernel32;
    STRING lpName, STRING @lpBuffer, INTEGER nSize
 
DECLARE INTEGER SetEnvironmentVariable IN kernel32;
    STRING lpName, STRING lpValue
 
lcName = "DebugMode"
? _GetEnv (lcName)
= _SetEnv (lcName, "True")
? _GetEnv (lcName)
 
FUNCTION _GetEnv(lcName)
    LOCAL lcBuffer, lnResult
    lcBuffer = SPACE(1024)
    lnResult = GetEnvironmentVariable (lcName, @lcBuffer, Len(lcBuffer))
RETURN  Iif(lnResult=0, "#nothing#", Left(lcBuffer, lnResult))
 
FUNCTION _SetEnv(lcName, lcValue)
RETURN SetEnvironmentVariable(lcName, lcValue) <> 0