* Function BMPInfo()

     ,     
  Windows BMP-.      
     ,  
  .      ,   
   .

*   :

Store 0 To LNHeight, LNWidth, LNColors
*   
* LNHeight =   
* LNWidth =   
* LNColors =  

=BMPInfo("Drive:\Dir\FileName.bmp")
*  ,     
*      ,
*   ,    .

? [Height in pixels: ] + LTrim(Str(LNHeight))
? [Width in pixels: ] + LTrim(Str(LNWidth))
? [Number of colors: ] + LTrim(Str(LNColors))
