XPaFieldPut()
 Put an Array of field data into current record
------------------------------------------------------------------------------

   Function:   XPaFieldPut()

               A simple though very handy function.
               See source code below for wat it does.

   Syntax:     XPaFieldPut(aFields) --> NIL

   Arguments:  An Array filled with data for every field.

   Returns:    NIL

   Usage:      Here's the source code:
               Function XPaFieldPut(x)
               Local i
               For i := 1 to Len(x)
                   FieldPut(i,x[i])
               Next
               Return (NIL)