В следующем примере реализованы две API-функции, которые можно вызвать из Visual FoxPro. MAKEMESS( ) отображает не имеющие смысла символы в трех верхних ст оках экрана. Эта функция создана лишь в качестве примера применения программы _RefreshDisplay( ).

Код FoxPro for MS-DOS

SET LIBRARY TO REFRDISP

= MAKEMESS() && writes junk to top three lines of screen

= REFRESH() && Visual FoxPro redraws its display

Код C

#include <pro_ext.h>

FAR makeMess(ParamBlk FAR *parm)

{

char far *videoRam = (char far *) 0xb8000000;

int i;

for (i = 0; i < 480; i++) {

videoRam[i] = i;

}

}

FAR refresh(ParamBlk FAR *parm)

{

_RefreshDisplay();

}

FoxInfo myFoxInfo[] = {

{"REFRESH", (FPFI) refresh, 0, ""},

{"MAKEMESS", (FPFI) makeMess, 0, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *)0, sizeof(myFoxInfo) / sizeof(FoxInfo), myFoxInfo

};