Clarion - TEXTO O PALABRA EN FORM PARPADEANTE

If LOC:Vez = o

        LOC:Vez = 1

        BRW1.Q.CLI:Nombre_NormalBG = COLOR:Red

Else

         LOC:Vez = 0

        BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE

End

Display

! En el timer va este código

IF  0 = vez % 2                                                                    ! obtengo el resto de dividir por 2 y si es cero es la vez par

    ?AN1:Caravana{PROP:Color}=COLOR:yellow

ELSE                                                                                   ! la vez impar

    ?AN1:Caravana{PROP:Color}=COLOR:red

END

Display

vez += 1