[RESOLVIDO] Contador de tempo para função

Como poderia implementar um contador de tempo?
Tipo aquele que tem no ft0909.

A cada tantos segundos é executada uma função.

Bom acredito que metade do programa tenha conseguido:

Ele faz a função a cada minuto só que o problema é que não faz mais nada alem disso, trava todo o resto, taria faltando algo que ainda não descobri.

DEF VAR sec AS INTEGER.
ASSIGN sec = time MOD 60.
REPEAT.
DO WHILE sec > 2.
ASSIGN sec = time MOD 60.
END.
IF sec = 0 THEN DO:
MESSAGE STRING(TIME,"HH:MM:SS") SKIP
sec
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
ASSIGN sec = 20.
END.

Dá uma olhada no comando PROCESS EVENTS

Verifique o ocx PStimer ele funciona muito bem.

Eu utilizo a OCX PsTimer para controlar a leitura da porta serial, funciona mais ou menos assim:
chCtrlFrameSTimer:ENABLED = true. /*Habilita o timer*/
chCtrlFrameSTimer:Interval = 10. /*Informa o ciclo*/
do:
/*Código*/
end:
ps.: não esqueça de colocar a opção para sair do loop.

Obs.: Quanto menor o tempo do ciclo, mais o processo exigirá da máquina.

OCX???

viajei agora

minha saida do loop nao ta funcionando, tentei leave, stop e nada funfa... ( to tendo que usa o gerenciador de tarefas)
to usando o process events