>CLOSE all
>SET TALK OFF
>SET ECHO OFF
>SET SAFETY OFF
>    thisform.text3.SetFocus
>     USE homecomm1 excl
>     zap
>  SELECT 0
>    USE newcomm66 EXCL
>    SET DELETED on
>    INDEX ON VAL(char2) 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(char2) = i
>   lnTotalCopied = lnTotalCopied + _Tally
>   SEEK i
>   DELETE NEXT (lnTotalNeedingCopy) WHILE VAL(char2) = i
>   SELECT homecomm1
>   APPEND FROM temp2
>   SELECT newcomm66
> NEXT
>   delete&&the proplem
   delete
    skip
  if eof()
    go bottom
    endif
ThisForm.Refresh()

> thisform.text3.SetFocus
>
>CLOSE ALL
>use homecomm1 excl
>BROWSE
>
>