PC Toledo

No clipper, é possível simular o acionamento de uma tecla ?

o q estou querendo é o seguinte :

do while .t.
@ 08,18 prompt ' TELA I '
@ 08,col()+2 prompt ' TELA II '
@ 08,col()+2 prompt ' TELA III '
@ 08,col()+2 prompt 'Gravar'
@ 08,col()+2 prompt 'Cancelar'
menu to s_prog
do case
case s_prog = 1
TELAIV = sombra(9,4,22,76)
TELAI()
rests(TELAIV)
case s_prog = 2
TELAIV = sombra(9,4,22,76)
TELAII()
rests(TELAIV)
case s_prog = 3 .and. mpesavel='S'
TELAIV = sombra(9,4,22,76)
TELAIII()
rests(TELAIV)
case s_prog = 4
ret = 0
exit
case s_prog = 5 .or. lastkey() = K_ESC
aqui-------->
"Se o digitador escolher 'Cancelar', simular o prescionamento da tecla ESC"

ret = 1
exit
endcase
enddo

Tem jeito ? Já tentei : keyboard chr(27), inkey() = chr(27),inkey(27) nada funcionou.

Coloque no inicio de seu prg

#include "INKEY.CH"

aí deve funcionar o
keyboard chr(27)



OK..