FoxPro/Visual FoxPro - MSCOMM ewn Visual Fox 8-9

Hola, tengop un programa el cual diseñe en visual fox 6, q captura datos de una balanza de manera continua, y este se refleja en la computadora, acciona un semaforo y algunas acciones en la pantalla, asi como reles, etc, (Todo por el puerto serial y paralelo), pero al ejecutarlo en visual 8 o visual 9), para algunas mejoras no detecta informacion serial (NADA), pero no da error, lo vuelvo a ejecutar en visual 6, y funciona perfecto, Q podria estar pasando, No he podido dar con algun control o diferencia de entorno de programacion, por favor en lo que puedan ayudarme se los agradecere ...

SET DECIMALS TO 3 && ** Si no, me redondea el peso a 2 decimales
LOCAL el_peso, eran, ns
eran = SET( 'DECIMALS', 1)
ns = SECONDS()
portopen = .T.
inputlen = 8 && LONGITUD SEGUN BASCULA
DO WHILE SECONDS()- nS < 1
output = "W" + CHR(13)
wait window " Verificando ... " nowait
FOR x = 1 TO 100000
ENDFOR
wait window " Ok " nowait
el_peso = .input && ** Aqui esta el peso medido
el_peso = RIGHT( el_peso, LEN( el_peso) - 1)
el_peso = INT(VAL( LEFT( el_peso, 7)))
IF el_peso > 0
WAIT WIND el_peso
EXIT
ENDIF

ENDDO
portopen=.f.
ENDWITH

SET DECIMALS TO (eran)
Prueba esto para checar la comunicacion entre la bascula y VFP 9 .. espero te sirva

Suerte