HB_FUNC( INKEY ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackTestTSD( &s_inkeyBlock ); 
    int iPCount = hb_pcount(); 
    PHB_ITEM pKey = NULL; 
    int iKey; 
  
    if( pInkeyBlock && pInkeyBlock->before ) 
       hb_vmEvalBlock( pInkeyBlock->before );                       // БЛОК КОДА ДО ... 
  
    do 
    { 
       iKey = hb_inkey( iPCount == 1 || ( iPCount > 1 && HB_ISNUM( 1 ) ), 
                        hb_parnd( 1 ), 
                        HB_ISNUM( 2 ) ? hb_parni( 2 ) : hb_setGetEventMask() ); 
  
       if( iKey == 0 || !pInkeyBlock || !pInkeyBlock->after )                  // БЛОК КОДА ПОСЛЕ ... 
          break; 
  
       pKey = hb_itemPutNI( pKey, iKey ); 
       iKey = hb_itemGetNI( hb_vmEvalBlockV( pInkeyBlock->after, 1, pKey ) ); 
       hb_inkeySetLast( iKey ); 
    } 
    while( iKey == 0 ); 
  
    if( pKey ) 
       hb_itemRelease( pKey ); 
  
    hb_retni( iKey ); 
 } 
  
 /* temporary disabled */ 
 #if 0                                                              // ЗДЕСЬ #if 1 
 HB_FUNC( HB_SETINKEYBEFOREBLOCK ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackGetTSD( &s_inkeyBlock ); 
  
    if( pInkeyBlock->before ) 
       hb_itemReturn( pInkeyBlock->before ); 
  
    if( hb_pcount() > 0 ) 
    { 
       PHB_ITEM pBlock = hb_param( 1, HB_IT_BLOCK ); 
  
       if( pInkeyBlock->before ) 
          hb_itemRelease( pInkeyBlock->before ); 
       pInkeyBlock->before = pBlock ? hb_itemNew( pBlock ) : pBlock; 
    } 
 } 
  
 HB_FUNC( HB_SETINKEYAFTERBLOCK ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackGetTSD( &s_inkeyBlock ); 
  
    if( pInkeyBlock->after ) 
       hb_itemReturn( pInkeyBlock->after ); 
  
    if( hb_pcount() > 0 ) 
    { 
       PHB_ITEM pBlock = hb_param( 1, HB_IT_BLOCK ); 
  
       if( pInkeyBlock->after ) 
          hb_itemRelease( pInkeyBlock->after ); 
       pInkeyBlock->after = pBlock ? hb_itemNew( pBlock ) : pBlock; 
    } 
 } 
  
 #endif