%
% BMP file handler
%
% stack: filespec
%
"c:\___Work\LeviStadium_0.bmp"
(@
@Xomm
exch @^Bmp
dup !Bmp.Valid
"bmpvalid" log)(
{
"bmpcompr" log)(
 !Bmp.Compress
"bmpcolors" log)(
 !Bmp.Colors
"bmpbpp" log)(
 !Bmp.Bpp
"bmpw" log)(
 !Bmp.Width
"bmph" log)(
 !Bmp.Height
} if
)@