Function            MFIELDS()
Action              Pops up an achoice for current dbf fields
Returns             <expC> field name or "" if none selected
Category            Popup
Syntax              <expC> = Mfields([expC],[expN1..expN4])
Description         Popus up a box and presents an achoice() for the
                    current dbf fields.
Options             [expC] title for box. [expN1..expN4]  coordinates
                    of the box. Default is centered.
Examples            fieldname = MFIELDS()
                    *or
                    fieldname = MFIELDS("Pick a Field")
                    *or
                    fieldname = MFIELDS("Pick a Field",10,10,20,40)


Warnings            Cursor is left ON
Found in (prg)......S_MFLD.PRG