Fiz um exemplo bem besta de relógio no Progress 4gl.
Segue o codigo…

DEFINE VARIABLE aa AS CHARACTER.
DEFINE FRAME f_aa
WITH TITLE ‘ Data/Hora ‘ CENTERED OVERLAY ROW 6 COL 5.

DISPLAY ‘Now… ‘
WITH FRAME f_aa.

b_principal:
REPEAT:
DISPLAY NOW
WITH FRAME f_aa.
END.

flw