Clipper/FiveWin - Duda con lastkey()=27

Buenas, soy nuevo en el foro y programando en clipper tambien (estudiante) asi que disculpen mi pregunta si parece tonta. En una sencilla rutina de incluir datos en una bd coloque la secuencia de If lastkey()=27 para que me devolviera a un menu principal pero cuando ejecuto y presiono escape me llena todos los campos con 0 o blanco y despues de presionar por segunda vez escape es cuando me devuelve al menu anterior, porque pasa esto y como puedo solucionarlo. adjunto un pedazo de la rutina. Agradecido de antemano FGT

use nomina
index on CI to Nomina
do while .t.
If lastkey()=27
clear
do menu
Endif
clear
@ 1,16 TO 18,74 DOUBLE
@ 03,29 say " S I S T E M A D E N O M I N A "
@ 04,29 say " MODULO DE INGRESO "
@ 06,22 say "CI: " get CIY picture "99999999"
read
seek (ciy)
if found()
@ 08,22 say "LA CEDULA YA EXISTE"
INKEY(0)
CLEAR
loop
else
append blank
@ 07,22 say "NOMBRE: " get NOMBRE picture "@A!"

use nomina
index on CI to Nomina
do while .t.
clear
@ 1,16 TO 18,74 DOUBLE
@ 03,29 say " S I S T E M A D E N O M I N A "
@ 04,29 say " MODULO DE INGRESO "
@ 06,22 say "CI: " get CIY picture "99999999"
read
//////////////////////// el lastkey() captura cuando precionas una tecla, en donde lo tenias no funcionaba del todo bien, tenes que colocarlo despues de un read o de un inkey() ////////////////////////////////////////
If lastkey()=27
do menu
(o pones "exit", que lo que hace es forzar la salida del while)
Endif
seek (ciy)
if found()
@ 08,22 say "LA CEDULA YA EXISTE"
INKEY(0)
CLEAR
loop
else
append blank
@ 07,22 say "NOMBRE: " get NOMBRE picture "@A!"

Gracias mi pana ahora si funciona como quiero, pero tengo otra duda en un modulo de menu creado con do case quisiera colocar la misma opcion de lastkey()=27 pero que me pregunte si desea salir o no, la rutina ya esta la duda viene porque me dices que es mejor colocarlo despues de un read o de un inkey pero en el modulo no tengo ninguno de los dos donde y/o como lo puedo poner

Agradecido de antemano

FGT

Gabriel,

Normalmente la estructura de descisiones DO CASE como la explicas
esta despues de alguna instruccion (read, achoice, inkey) que espera para
pulsar una tecla asi que puedes hacerlo asi:

case lastkey() = 27
if alert('¿Sale?',{'No','Si'}) = 2
exit //o lo que quieras hacer
endif

Jose.