* Выполняется один раз в блоке инициализации проги
procedure init_onkey
public array onkey( 64 , 5 ), onkey1( 13 , 5 )
select a
use onkey
copy to array onkey
use onkey1
copy to array onkey1
use
public array stack( 1 , 3 )
stack( 1 , 1 )= 0 
store '' to stack( 1 , 2 ),stack( 1 , 3 )
public _stack
store  0  to _stack

* Сама функция обработки
function rester
parameter what
do case
 case m.what= 0 
 * Очистить назначения и прочитать предыдущие из стека
 on key
 if _stack> 0 
  stk1=alen(stack, 1 )
  do while stack(stk1, 1 )=_stack
   stk_n=alltrim(stack(stk1, 2 ))
   stk_m=alltrim(stack(stk1, 3 ))
   on key label (stk_n) &stk_m
   stk1=stk1- 1 
  enddo
  dimension stack(stk1, 3 )
  _stack=_stack- 1 
 endif
 case m.what= 1 
 * Записать текущие установки в стек и очистить назначения
 _stack=_stack+ 1 
 for stk1= 1  to alen(onkey, 1 )
  for stk2= 2  to alen(onkey, 2 )
   if onkey(stk1,stk2)
    stk_n=iif(stk2= 3 ,'SHIFT+',iif(stk2= 4 ,'CTRL+',iif(stk2= 5 ,'ALT+','')))
    stk_m=stk_n+alltrim(onkey(stk1, 1 ))
    if len(on('key',stk_m))> 0 
     stk_a=alen(stack, 1 )+ 1 
     dimension stack(stk_a, 3 )
     stack(stk_a, 1 )=_stack
     stack(stk_a, 2 )=stk_m
     stack(stk_a, 3 )=on('key',stk_m)
    endif
   endif
  endfor
 endfor
 on key
endcase

...
do init_onkey
...
=rester( 1 )
on key label F2 do x2
on key label F3 do x3
activate menu ...
=rester( 0 )
...
.. x2
=rester( 1 )
browse ...
=rester( 0 )
...
.. x3
=rester( 1 )
@get ...
read cycle
=rester( 0 )
...