É só copiar e compilar
Esse é só um teste de como as teclas de função funcionam, voce pode inclusive usar Ctr + a letra para programar a tecla.
clea DO WHILE .T. set cursor off @1,1 SAY "F1 ACERTAR HORA" @2,1 SAY "F2 ACERTAR DATA" @3,1 SAY "ESC SAIR" ntecla=0 ntecla=inkey(0) if ntecla=28 set cursor on clea run time clea endif if ntecla=-1 set cursor on clea run date clea endif if ntecla=27 run cls exit endif enddo