AUTOMATIC KEYCODE

[carchano]

Tenfo un Procedimiento que trabaja automáticamente mostrando mensajes:

mensaje('blabla',parametros)
(tiempo de espera)
mensaje('blabla',parametros)
....

Necesito saber cuando el usuario presione p.e. la tecla F2 y que me ejute un Procedure o que salga del actual.
El problema lo solucóné colocando:

mensaje('blabla',parametros)
IF KEYBOARD()<>0
CASE MESAGGE('EXIT?'..'SI|NO')
OF 1
...
END

Pero necesitaria evitar el CASE MESSAGE. La ventana no puede tener TIMER. Como puedo remplazar este ultimo codigo?
Gracias Mil.

 

[carchano]

SOLUCION!!!! me funciona de la siguiente manera, para quien pueda o no necesitarlo!

1- Alerté las teclas f5 a f8 en la ventana.
2- en el source hice:

ALERT(f5key,f8key)
MostrarMensajes('CUANDO LE AVISE, PRESIONE LOS','BOTONES O
PEDALES ESPECIFICADOS.',1,'AZ')
IF KEYBOARD()<>0
ACCEPT
CASE event()
OF EVENT:AlertKey
IF keycode()=116 THEN GLO:Secuencia='CAN';EXIT. !f5
IF keycode()=117 THEN GLO:Secuencia='ANT';EXIT. !f6
....
END
END
END

Gracias!