В следующем примере _WPutStr( ) отображает в новом окне строку, содержащую все 8-разрядные значения, за исключением '\0'.

Код Visual FoxPro

SET LIBRARY TO WPUTSTR

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

int i;

WHANDLE wh;

char String[256];

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

WO_SYSTEMBORDER);

_WShow(wh);

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

String[i] = i + 1;

String[255] = '\0';

_WPutStr(wh, String);

}

FoxInfo myFoxInfo[] = {

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

};

FoxTable _FoxTable = {

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

};