>(assumes that the file "doc" is already open)
>
>USE A:\Document ;
>  IN 0 ;
>  ALIAS NewFil
>
>SELECT Doc
>SET ORDER TO dnumber
>
>SELECT NewFil
>SCAN ALL
>  SCATTER MEMVAR MEMO
>  IF !SEEK( Document.dnumber, "Doc" )
>    INSERT INTO Doc ;
>      FROM MEMVAR
>
>  ELSE && you're already positioned to the DOC record
>    GATHER MEMVAR
>
>  ENDIF && !SEEK
>ENDSCAN && ALL for NewFil
>