Добрый день

Чет я застрял или туплю - есть программа:

#include "inkey.ch"  
  
 FUNC Main()  
  
 LOCAL cOne := cTwo := cThree := space( 10 )  
 LOCAL GetList := {}  
  
  SETKEY( K_F1, { || MyProc1( GetList ) } )  
  SETKEY( K_F2, { || MyProc2( GetList ) } ) 
  SETKEY( K_F3, { || MyProc3( GetList ) } )  
  
  @ 0,0 CLEAR 
  @ 2,2 SAY "  cOne" GET cOne  
  @ 3,2 SAY "  cTwo" GET cTwo   WHEN !EMPTY(cOne) 
  @ 4,2 SAY "cThree" GET cThree  
  READ 
  
 RETURN NIL 
  
 * ------------------- * 
 FUNC MyProc1( GetList )  
  
  GetActive():KillFocus()  
  GetList[ 1 ]:SetFocus()  
  GetList[ 1 ]:Display()  
  
 RETURN NIL 
  
 * ------------------- * 
 FUNC MyProc2( GetList )  
  
  GetActive():KillFocus()  
  GetList[ 2 ]:SetFocus()  
  GetList[ 2 ]:Display()  
  
 RETURN NIL 
  
 * ------------------- * 
 FUNC MyProc3( GetList )  
  
  GetActive():KillFocus()  
  GetList[ 3 ]:SetFocus()  
  GetList[ 3 ]:Display()  
  
 RETURN NIL

Фокус между GET полями переключается кнопками F1 .. F3, а ввести ничего нельзя до тех пор, пока стрелками/табуляцией в него не попадешь...
Чего не хватает ?

PS: Где-бы вообще почитать поподробнее про эти get/getlist объекты и "нестандартное" управление ими ?
Спасибо.