В следующем примере параметры видеосреды изменяются без участия Visual FoxPro. Это изменение не принимается в Visual FoxPro до тех пор, пока не будет вызвана программа _RefreshVideo( ), перенастраивающая Visual FoxPro на новую видеосре у.

Код FoxPro for MS-DOS

SET LIBRARY TO REFRVIDE

SET DISP TO VGA50

= LARGEFONT() && switches to 8 x 16 font

SDFDF && where's the error box?

= REFRESH() && orients Visual FoxPro to video environment

SDFDF && now error box is on screen

SET DISP TO VGA25

= SMALLFONT() && switches to 8 x 8 font

LIST STAT && only using top half of screen

= REFRESH() && orients Visual FoxPro to video environment

LIST STAT && using full screen

Код C

#include <dos.h>

#include <pro_ext.h>

FAR smallFont(ParamBlk FAR *parm)

{

union REGS cpuReg;

cpuReg.h.ah = 0x11; // load character set

cpuReg.h.al = 0x12; // 8 x 8 font

cpuReg.h.bl = 0x00;

int86(0x10, &cpuReg, &cpuReg);

}

FAR largeFont(ParamBlk FAR *parm)

{

union REGS cpuReg;

cpuReg.h.ah = 0x11; // load character set

cpuReg.h.al = 0x14; // 8 x 16 font

cpuReg.h.bl = 0x00;

int86(0x10, &cpuReg, &cpuReg);

}

FAR refresh(ParamBlk FAR *parm)

{

_RefreshVideo();

}

FoxInfo myFoxInfo[] = {

{"SMALLFONT", (FPFI) smallFont, 0, ""},

{"LARGEFONT", (FPFI) largeFont, 0, ""},

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

};

FoxTable _FoxTable = {

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

};