Clipper/FiveWin - reloj activo

Amigos: Por favor alguien tendrá una rutina en Clipper obvio, que muestre el reloj horario en pantalla en forma activa, es decir los segundo corriendo. Desde ya agradesco vta. atención.
Gracias
Oscar Barros - Chillan - Chile

En la libreria CLTools I tienes una funcion CLOCK_TRAP que te permite realizar lo que deseas.
Otra opcion es modificar la rutina del READ (GETSYS.PRG) y en los procesos largos poner llamadas a una funcion que muestre la hora en la pantalla.

La funcion podria ser algo asi:

FUNCTION HORA()
LOCAL L:=Row(), C:=Col()
SETPOS(0,0); DISPOUT(" "+TIME()+" ", "+W/B")
SETPOS(L,C)
RETURN NIL

tengo una funcion se llama showtime .
te la envio al correo.
saludos.

richard i.
viña del mar
chile.

richard, gracias por responder mi consulta, pero aun no llega a mi correo la funcion showtime, si puedes enviarmela te lo agradesco en el alma.
saludos
oscar

Si no me equivoco, la funcion Showtime() esta en las CA-Tools.
Marcelo