CLOSE all
SET SAFETY off

USE aliq1
SELECT 0
USE aliq EXCL
INDEX ON no TAG no

lnTotalCopied = 0

FOR i = 1 TO 14 && assume 20 values for flag
   lnTotalNeedingCopy = (thisform.text1.Value * i) - lnTotalCopied
   SEEK i
   COPY TO temp1 NEXT (lnTotalNeedingCopy) WHILE no = i
   lnTotalCopied = lnTotalCopied + _Tally
   SELECT aliq1
   APPEND FROM temp1
   SELECT aliq
NEXT