That, combined with the bitmap saving function that I put together should do the job then.
function SaveBitmap(File as string, Bmp as integer)
local x as integer
local y as integer
local Colour as dword
local OldBmp as integer
local Width as integer
local Height as integer
local PadSize as integer
OldBmp=current bitmap()
set current bitmap Bmp
Width=bitmap width()
Height=bitmap height()
PadSize=4-((Width*3) mod 4)
if PadSize=4 then PadSize=0
if file exist(File) then delete file File
open to write 1, File
write byte 1, asc("B")
write byte 1, asc("M")
write long 1, 26+( ((Width*3)+PadSize) * Height )
write word 1, 0
write word 1, 0
write long 1, 26
write long 1, 12
write word 1, Width
write word 1, Height
write word 1, 1
write word 1, 24
Width=Width-1
Height=Height-1
lock pixels
for y=Height to 0 step -1
for x=0 to Width
Colour=point(x,y)
write byte 1, Colour
write byte 1, Colour >> 8
write byte 1, Colour >> 16
next x
if PadSize > 0
for x=1 to PadSize
write byte 1,0
next x
endif
next y
unlock pixels
close file 1
set current bitmap OldBmp
endfunction
It ain't quick, but it does the job.
