store .f. to is_make_dbf, is_end
 ON KEY LABEL F3 DO make_dbf
 ON KEY LABEL esc do stop_cycle
  SELECT a
  USE table.dbf

  do while !is_end
    BROWSE FIELDS field1 :R :H='  КОД  ', field2 :R :H='НАИМЕНОВАНИЕ';
        WINDOW brwind IN WINDOW brwind color scheme  8 
   if is_make_dbf
    IF USED('table')
      SELECT table
      USE
    ELSE 
      SELECT  0 
    ENDIF
    COPY FILE table_arh.dbf TO table.dbf
    USE table.dbf
    INSERT INTO table.dbf (FIELD1, FIELD2);
       SELECT my_cur.F1 AS field1, my_cur.F2 AS field2
           FROM my_cur
    is_make_dbf=.f.
   endif
  enddo
  
  PROCEDURE make_dbf
     is_make_dbf = .t.
     keyboard '{Ctrl+W}'
  RETURN

  PROCEDURE stop_cycle
     is_end = .t.
     keyboard '{Ctrl+W}'
  RETURN