sub ReadBMP
{
    ...
}