FoxPro/Visual FoxPro - Tecla presionada y borrar bufer

Hola foxeros, mi pregunta es la siguiente, ¿cómo puedo saber en un bucle (do while) si se ha presionado la tecla de "escape" de forma que no me falle (tanto por API o por cualquier otro método) y que luego pueda borrar el buffer de teclado para que éste "escape" no pueda ocasionarme problemas?

Muchas gracias de antemano.

Prueba con LASTKEY( ) y KEYBOARD

Gracias Roman pero no funcionó. Si le pongo en el bucle:

do while .t.
...
If lastkey()=27
return
endif
...
enddo

No se sale del bucle cuando le presiono la tecla de escape e incluso teniendo el "SET ESCAPE OFF", me interrumpe la ejecucion de los procedimientos que vienen después de este bucle.

¿Alguna otra solución?

HOLA, PRUEBA EN EL METODO KEYBOARD
IF NKEYCOD=27
* MENSAJE O LO QUE QUIERAS Q HAGA
ENDIF

O UN SET ESCAPE OFF AL INICIO DEL PROGRAMA
SALUDOS

Creo que con esto te funcionara:

SET ESCAPE OFF

DO WHILE INKEY()<>27

*Codigo

ENDDO

MESSAGEBOX("Salimos gracias al escape",32,"programa")