Clarion - Capturar puertos COM

KillAllPorts()   !   me aseguro que cierro el puerto (si esta cerrado no reporta error al tratar de cerrarlo)

PortId = NewPort ('COM1:9600,n,8,1',1024,1024)  ! Lo Configuro

IF  PortId < 0

    Message ('Error al Abrir el Puerto '&PortId)

    Bandera = 0

    return level:fatal

END

Display

Sleep(210)  ! se 'duerme'

X#  =   0

Y#  =   0

LOOP        ! Loop continuo

    peso    =   ''                           ! Limpio la variable

    Result = Clip(readport(PortId,peso,7))  ! Leo  7 caracteres del puerto

    S# =    0

    Loop X# = 1 TO 7 BY 1                   ! Rastreo el principio del dato

        Char = val(sub(Peso,X#,1))           ! cargo el valor del dígito a la variable Char

        Inicio = sub(Peso,X#,1)             ! cargo el valor del dígito a la variable Char

        IF  Inicio Not >    ''! veo si es el inicio de la transmisió

            S# = 1                           ! Marco la Salida

            LOC:PesoVisor   = Sub(Peso,X# + 1,7) ! lee parte del campo Peso a partir del caracter

            break     ! Corto en loop

        end

    End ! Loop X#

    Y#  +=  1

    IF  Y#  >   60

        Message('Cantidad de Intentos de Lecturas Agotados. No Puede Leer el Puerto....','Mensaje del Sistema',ICON:Exclamation)

        Bandera = 0

        Break                                ! loop contínuo

    END

    IF  S#  >   0                            ! Si S# > 0 es por que leyó y ahora sale del

        Break                                ! loop contínuo

    END

END ! Loop continuo

Display                                      ! Muestro

KillAllPorts()  ! Me aseguro que Cierro Todos los Puertos