É 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
Site hosted by Angelfire.com: Build your free website today!