define window FF from  11 , 25  to  17 , 51  color scheme  2  double shadow;
 title [ Таб.номер ]
TabN= 0 
do while .t.
 activate window FF
 set cursor on
 store  0  to sav,cnc
 @ 1 , 1  say [Таб.номер..] get TabN pict '@Z 99999'
 @ 3 , 4  say [Выполнить  Отмена]
 @ 3 , 3  get sav func [*IT] size  1 , 11 
 @ 3 , 14  get cnc func [*IT] size  1 , 8 
 read cycle color [,w+/bg] MODAL
 hide window FF
 if cnc<> 0  or sav= 0 
  exit
  else
  * Выполнение необходимых действий
 endif
enddo
rele wind ff