FoxPro/Visual FoxPro - CODIGO PARA LEER EL PESO DE BASCULA

Amigos de la web, llevo toda una semana buscando haciendo pruebas con varios codigos para que me pueda dar la bascula como resultado el "PESO" del producto y no me da ningun resultado

1.- Tengo la bascula Torrey MFQ
2.- Cable serial RS-232
3.- MSCOMM

Este es el codigo que tengo en una forma en un boton y en el evento Click:

Nota: no da ningun error pero tampoco da resultado del Pesaje.

que me falta.?

SET DECIMALS TO 3 && ** Si no, me redondea el peso a 2 decimales
LOCAL el_peso, eran, ns

eran = SET( 'DECIMALS', 1)

WITH THISFORM.oleBascula && *** el nombre del objeto MSCOMM32

ns = SECONDS()
.portopen = .T.
.inputlen = 8 && LONGITUD SEGUN BASCULA

DO WHILE SECONDS()- nS < 1 && ** Un loop para leer el puerto
.output = "W" + CHR(13) && ** La orden que exige el fabricante de la bascula
&& es parte del estandar NCI
wait window " Verificando ... " nowait
FOR x = 1 TO 100000 && ** Haciendo tiempo y esperando...

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
THISFORM.txtPeso.Value = el_peso

EXIT
ENDIF

ENDDO
.portopen=.f.
ENDWITH

SET DECIMALS TO (eran)