Click above to get retro games delivered to your door ever month!

 FUNCTION TAGIT()

  Short:
  ------
  TAGIT() Tag records in a dbf for later action

  Returns:
  --------
  <aTagged> => An array of tagged record numbers

  Syntax:
  -------
  TAGIT(aTagged,[aFields,aFieldDesc],[cTitle])

  Description:
  ------------
  <aTagged> is an array. To start, it is an empty array. It is both
  modified by reference and returned as a parameter. It
  is filled with the record numbers of tagged records. If it is not
  empty when passed in, it is presumed to be filled with already tagged
  record numbers.

  <aTagged> is always 'packed' on entry, so any empty()
  or nil elements are removed, and the length adjusted.

  [aFields,aFieldDesc] are optional arrays of field
  names and field descriptions.

  [cTitle] is an optional title for the tag popup.

  Examples:
  ---------
   aTag := {}
   tagit(aTag,nil,nil,"Tag records to copy")
   copy to temp for (ascan(aTag,recno()) > 0)

  Notes:
  -------
  There are slight differences in behavior from
  previous versions.

  Previous versions required an array of fixed length,
  and only allowed tagging up to that length. This version grows or
  shrinks the array as needed. This version will also shrink an empty
  array down to zero on startup.

  Source:
  -------
  S_TAG.PRG