activate screen
save     screen to b_0241
wait "МОЖЕТЕ УКАЗАТЬ HОВЫЙ КЛЮЧ." window nowait
*do trd_004 with "ESC:ВЫХОД│ENTER:ЗАПИСЬ│",.f.
defi window _seek from  03 , 02  to  05 , 04  ;
     shadow color w+/rb,w+/rb,w+/rb
zoom window _seek norm size  03 , 15 
move window _seek to         06 ,scols()- 18 
acti window _seek
 _key   =  0 
 _num   =  0 
 _keyshd=""
@  00 , 01  say "КЛЮЧ: "
do while.t.
_key = inkey( 0 ,"h")
do case
case  (between(_key, 65 , 90 )    .or.;
       between(_key, 97 , 122 )   .or.;
       between(_key, 128 , 175 )  .or.;
       between(_key, 224 , 239 )).and.;
       between(_num, 0 , 5 )
_keyshd=_keyshd+chrtran(chr(_key),_lwr,_upp)
@  00 , 06 +_num say "■"
_num =  _num+ 1 
case _key= 127 .and.between(_num, 1 , 6 )
@  00 , 06 +_num- 1  say " "
_keyshd=left(_keyshd,len(_keyshd)- 1 )
_num    = _num- 1 
case   _key =  27 
exit
case   _key =  13 
_keyadm =_keyshd
exit
otherwise
??chr( 7 )
endcase
enddo
deactiv window _seek
release window _seek
activat screen
restore screen from b_0241
return