VISOR TPV

Buenas estoy creando un TPV en VFP y tengo que mandar datos a un visor que
tengo conectado al puerto Com3.

En fox2.6 tenia un programilla que lo hacia pero ahora en vfp7 no consigo
que funcione.

alguien sabe como hacerlo?

gracias

el programa que usaba para utilizar el visor en 2.6 es el siguiente:
set LIBRARY TO SYS(2004)+'foxtools.fll' ADDITIVE
BUILDCOMMD = REGFN('BuildCommDCB','@','I')
CLOSECOMMF = REGFN('CloseComm','I','I')
OPENCOMMFN = REGFN('OpenComm','@CII','I')
READCOMMFN = REGFN('ReadComm','','I')
SETCOMMSTA = REGFN('SetCommState','@C','I')
WRITECOMMF = REGFN('WriteComm','','I')
DEV_VIS = CALLFN(OPENCOMMFN,@VISOR,100,100)
COMMDCB = REPLICATE(CHR(0), 25)
= CALLFN(BUILDCOMMD,@DEFVISOR,@COMMDCB)
= CALLFN(SETCOMMSTA,@COMMDCB)
Buf_vis =&vCLR
BUF_VIS = BUF_VIS+TEXEMP
BUF_VIS = BUF_VIS+TEXDES
= CALLFN(WRITECOMMF,DEV_VIS,@BUF_VIS,LEN(BUF_VIS))

pero ahora me da error no existe CloseComm y OpenComm

Buenas estoy creando un TPV en VFP y tengo que mandar datos a un visor que
tengo conectado al puerto Com3.

En fox2.6 tenia un programilla que lo hacia pero ahora en vfp7 no consigo
que funcione.

alguien sabe como hacerlo?

gracias

el programa que usaba para utilizar el visor en 2.6 es el siguiente:
set LIBRARY TO SYS(2004)+'foxtools.fll' ADDITIVE
BUILDCOMMD = REGFN('BuildCommDCB','@','I')
CLOSECOMMF = REGFN('CloseComm','I','I')
OPENCOMMFN = REGFN('OpenComm','@CII','I')
READCOMMFN = REGFN('ReadComm','','I')
SETCOMMSTA = REGFN('SetCommState','@C','I')
WRITECOMMF = REGFN('WriteComm','','I')
DEV_VIS = CALLFN(OPENCOMMFN,@VISOR,100,100)
COMMDCB = REPLICATE(CHR(0), 25)
= CALLFN(BUILDCOMMD,@DEFVISOR,@COMMDCB)
= CALLFN(SETCOMMSTA,@COMMDCB)
Buf_vis =&vCLR
BUF_VIS = BUF_VIS+TEXEMP
BUF_VIS = BUF_VIS+TEXDES
= CALLFN(WRITECOMMF,DEV_VIS,@BUF_VIS,LEN(BUF_VIS))

pero ahora me da error no existe CloseComm y OpenComm