DECLARE INTEGER GetWindowsDirectory IN kernel32;
    STRING @lpBuffer, INTEGER nSize
 
DECLARE INTEGER GetSystemDirectory IN kernel32;
    STRING @ lpBuffer, INTEGER nSize
 
LOCAL lpBuffer, nSizeRet
 
lpBuffer = SPACE (250)
nSizeRet = GetSystemDirectory(@lpBuffer, Len(lpBuffer))
lpBuffer = SUBSTR (lpBuffer, 1, nSizeRet)
? lpBuffer
 
lpBuffer = SPACE (250)
nSizeRet = GetWindowsDirectory(@lpBuffer, Len(lpBuffer))
lpBuffer = SUBSTR (lpBuffer, 1, nSizeRet)
? lpBuffer