CREATE CURSOR test (f1 i,f2 c( 50 ), f3 i,f4 i, f5 c( 50 ),f6 i)
INSERT INTO test (f1,f2,f3) SELECT a,b,c FROM d:\prog\dbf\ 1001 .dbf WHERE RECNO()<=RECCOUNT()/ 2 
INSERT INTO test (f4,f5,f6) SELECT a,b,c FROM d:\prog\dbf\ 1001 .dbf WHERE RECNO()>RECCOUNT()/ 2 

INSERT INTO test (f1,f2,f3) SELECT a,b,c FROM d:\prog\dbf\ 1001 .dbf ;
  WHERE RECNO()<=CEILING(RECCOUNT()/ 2 )  && Первая колонка должна быть не короче второй.

SELECT a,b,c FROM d:\prog\dbf\ 1001 .dbf ;
  WHERE RECNO()>CEILING(RECCOUNT()/ 2 ) ;
  INTO CURSOR temp   && Данные для второй колонки.

GO TOP IN "test"
GO TOP IN "temp"

SELECT "temp"
SCAN      && Цикл по данным второй колонки
  REPLACE f3 WITH a, f4 WITH b, f5 WITH c IN "test"
  SKIP  1  IN "test"  
ENDSCAN

USE      && Уничтожаем отработанную выборку

SELECT "test"
GO TOP