DECLARE INTEGER GetSystemDirectory IN kernel32; 
    STRING @ lpBuffer,; 
    INTEGER nSize 

lpBuffer = SPACE (250) 
nSizeRet = GetSystemDirectory (@lpBuffer, Len(lpBuffer)) 

IF nSizeRet <> 0 
    lpBuffer = SUBSTR (lpBuffer, 1, nSizeRet) 
    ? lpBuffer 
ENDIF