Здравствуйте, подскажите пожалуйта что нужно сделать:

делается FLL для VFP 7.0 в Visual C 6.0 из примеров MSDN

При компиляции идет все нормально при подключении тоже, а при выполнении ? REPLTOMH('D' , 2) выдается сообщение "API call caused an exception"

winapims.lib размером 85284 и датой создания 15.06.01 00:38
atls.lib 932792 и 05.01.02 15:17 (в поставке не нашел нашел его у знакомых)
pro_ext.h 37485 и 13.03.01 23:04

#include "pro_ext.h"

// Replicate char argument to memory allocated with _AllocHand().
// Return the memory handle to Visual FoxPro.
void FAR replToMH(ParamBlk FAR *parm)
{
char FAR *rep;
char c = *(char *) _HandToPtr(parm->p[0].val.ev_handle);
MHANDLE mh;

if ((mh = _AllocHand((int) parm->p[1].val.ev_long + 1)) == 0)
{
_Error(182); // "Insufficient memory"
}
_HLock(mh);
rep = _HandToPtr(mh);
_MemFill(rep, c, (int) parm->p[1].val.ev_long);
rep[parm->p[1].val.ev_long] = '\0'; // null terminate
_HUnLock(mh);

_RetInt(mh, 10);
}

// Returns characters in memory handle.
// Argument in call from Visual FoxPro
// must be a valid Visual FoxPro memory handle.
void FAR MHToFoxString(ParamBlk FAR *parm)
{
char FAR *string;
MHANDLE mh = parm->p[0].val.ev_long;

_HLock(mh);
string = _HandToPtr(mh);
_RetChar(string);
_HUnLock(mh);
}

// Frees memory handle. Argument in call from
// Visual FoxPro must be a valid
// Visual FoxPro memory handle.
void FAR freeMH(ParamBlk FAR *parm)
{
_FreeHand((MHANDLE) parm->p[0].val.ev_long);
}

FoxInfo myFoxInfo[] = {
{"REPLTOMH", (FPFI) replToMH, 2, "C,I"},
{"MHTOFOX", (FPFI) MHToFoxString, 1, "I"},
{"FREEMH", (FPFI) freeMH, 1, "I"},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};