В следующем примере программа _WPutChr( ) используется для отображения всех 8- азрядных значений в новом окне.

Код Visual FoxPro

SET LIBRARY TO WPUTCHR

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

int i;

WHANDLE wh;

wh = _WOpen(2,2,20,70,WEVENT | CLOSE,WINDOW_SCHEME,(Scheme FAR *) 0,

WO_SYSTEMBORDER);

_WShow(wh);

for (i = 0; i < 256; i++)

_WPutChr(wh, i);

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", (FPFI) Example, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};