local lcfilename, lcAlias

* Save current work area
lcAlias = ALIAS()

* Get the file name
lcFileName = GETPICT("BMP;TIF;PCX;WMF;DIB;GIF;JPG", ;
                     "Select Map Image File", ;
                     "Select")

* If you have a file name
IF !EMPTY(lcFileName)
   * Select the Cutters work area
   SELECT Cutters
   * Add a new record for the file
   APPEND BLANK
   * Add the image file to the general field
   APPEND GENERAL bitmapname from (lcFileName)
   * Refresh the form
   thisform.Refresh()
ENDIF
* Put the current work area back to what it was
IF NOT EMPTY(lcAlias )
   * If there qwas a table open then reselect its work area
   SELECT ( lcAlias )
ELSE
   * Otherwise select an empty work area
   SELECT 0
ENDIF