小弟我初学VC，请高手指点我这段程序的意思

char *lpr
CDWordArray lpo;
CDWordArray lpc;
char *lpb[HYDICNUM];
long lpx[HYDICNUM];
long lpe[HYDICNUM];

pMainFrame->cantran = FALSE;

while(1)
{
long length=AllocMem(HYR,lpr,1000L+600L*1000L);

if( length== -1L )
break;

if( length== -2L )
{
AfxMessageBox("内存不够！");
break;
}

long point=0L; lpo.Add(0L);

for(FILE *fp=fopen(HYR,"rb");;)
{
fgets_encr(buf,250,fp);
int len=strlen(buf);

if(len<=1)
break;

if(strstr(buf,"%%%%%%")==NULL)
memcpy(lpr+(point+=len)-len,buf,len);
else
lpo.Add(point);
}

fclose(fp);

long filestart=length+1000L;
lpo.Add(filestart);
lpo.Add(filestart+100L*1000L);
lpo.Add(filestart+200L*1000L);
lpo.Add(filestart+300L*1000L);
lpo.Add(filestart+400L*1000L);
lpo.Add(filestart+500L*1000L);
lpo.Add(filestart+600L*1000L);

// modified by hance, 2001,7.7
int i;
#ifdef OLD_VERSION

for(i=0;i<lpo.GetSize();i++)
lpc.Add(0L);
#else
lpc.SetSize(lpo.GetSize());
#endif
/////////////////////////////////////////////////////////

for(i=0;i<HYDICNUM;i++)
{
lpx[i]=0L;
lpe[i]=0L;
}

for(i=0;i<HYDICNUM;i++)
{
long length=AllocMem(INDFILE[i],lpb[i],1000L);

if( length== -1L )
goto END;

if( length== -2L )
{
AfxMessageBox("内存不够！");
goto END;
}

lpe[i]=FileToLp(INDFILE[i],lpb[i]);
lpe[i]/=(long)ONE_IND_LEN;
}

pMainFrame->cantran=TRUE;
break;
}