>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
>