Como fazer numero piscar no Harbour

Geral
1

Tenho um programa em HARBOR e mostra um resultado assim :

  setcolor('4/7')
   @ row(),col()+1 say trans(a_rs[1],'@ez 999,999,999.99')i

no clipper eu colocaria um * apos o 4 e ele ficaria piscando, como fazer no Harbour ?
obrigado

2

Infelizmente não tem blink no Harbour, não tem jeito, também já tentei de tudo.

3

PROCEDURE Main()
LOCAL lBlink := .T.

CLS
DO WHILE .T.
    IF lBlink
        SETCOLOR("R/N")
        @ 5, 10 SAY "*"
    ELSE
        @ 5, 10 SAY " "
    ENDIF
    lBlink := !lBlink
    INKEY(0.3)
    IF LASTKEY() == 27  // ESC
        EXIT
    ENDIF
ENDDO
RETURN

Essa é um exemplo que pode ser melhorado