Function SaveBMP(img, file$)
Save an image to a *.bmp file