>CLOSE all >SET TALK OFF >SET ECHO OFF >SET SAFETY OFF > >thisform.text3.SetFocus >USE home1 excl >zap >SELECT 0 >USE newamar66 EXCL >*SET DELETED on >INDEX ON VAL(char18) TO hh > >set order to "hh" > >lnTotalCopied = 0 > >FOR i = 1 TO (thisform.text3.Value) && assume 20 values for flag > lnTotalNeedingCopy = (thisform.text3.Value * i) - lnTotalCopied > SEEK i > COPY TO temp2 NEXT (lnTotalNeedingCopy) WHILE VAL(char18) = i > lnTotalCopied = lnTotalCopied + _Tally > SELECT home1 > APPEND FROM temp2 > > SELECT newamar66 >*delete >NEXT >thisform.text3.SetFocus > >CLOSE ALL >use home1 excl >BROWSE > > > > >>thanks.