Clipper/FiveWin - Grabar con MemoWrite

Hola amigos de foro, tengo el siguiente problema, con Memoedit genero un texto, lo almaceno en una variable y luego hago MemoWrite, como puedo hacer para salir grabando con F2 y no haciendo Control-W, si alguien me puede enviar un ejemplo se lo agradecere.
Desde ya gracias de antemano.

Saludos, Cesar.

Cesar,

El Ctrl-W ya viene internamente en la funcion
Memoedit() pero puede utilizarse cualquier otra tecla
para el mismo fin. Llenando el setimo parametro con una
funcion de usuario podemos programar otra tecla. El
Ctrl-w sigue vigente aun.

mi_var := MEMOEDIT(el_texto,01,00,11,39,.T.,"mi_funcion")

(ignora los puntos)
*********************
function mi_funcion()
if lastkey() = -1 //F2
.....return(23) //CTRL-W salva y sale
else
.....return 0 //continua editando
endif

Otra forma seria asignando una tecla asi:

set key -1 to salva_memo() //F2

y haciendo la funcion correspo

y haciendo la funcion correspondiente:

*********************
function salva_memo()
....keyboard chr(23)

Suerte,

Jose.