FoxPro/Visual FoxPro - Puerto Paralelo

Hola, Como puedo enviar una señal por puerto paralelo por un tiempo determinado desde visual foxpro, ya tengo el progama en c, pero no se como integrarlo a VFP..

Gracias

No se necesita C para esto la rutina podria ser asi:
Function LeerPuertoSerial()
set safety off
do while .t.
STORE FOPEN(´C:\WINDOWS\SYSTEM\LPT.VXD´) TO puerto
STORE FREAD(´C:\WINDOWS\SYSTEM\LPT.VXD´,254) TO MCAD
mcad2 = asc(mcad)
if MCAD2 > 0
appen blank
repla valor with mcad2
exit
else
loop
endif
enddo
EndFunc

Gracias voy a correr la funcion