NAME=GetBmpDimensions
AUTHOR=
ITEM=sub GetBmpDimensions fileName$, byref width, byref height
DESCRIPTION=This sub reads a bitmap's width and height from a valid bmp file. Width and height are returned to the main program by reference.
OUTSIDE CODE=

sub GetBmpDimensions fileName$, byref width, byref height
    open fileName$ for input as #gbd
    temp$ = input$(#gbd, 24)
    close #gbd
    width = asc(mid$(temp$, 19, 1))+asc(mid$(temp$, 20, 1))*256
    height = asc(mid$(temp$, 23, 1))+asc(mid$(temp$, 24, 1))*256
end sub

