anchor.diff:  
   uses
     fpg_utils;
  +
  +
  +procedure ReadImage_OS2BMP(img: TfpgImage; bmp: Pointer; bmpsize: longword); forward;
   
   
   function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage;
  
positive.code:   img.UpdateImage;
  end;
  
  end.
  
  
negative.code: 
    p         := bmp;
    PByte(bh) := p;
  
    if bh^.signature = $4d62 then { 'bM' }
    begin
      ReadImage_OS2BMP(img, bmp, bmpsize);
      exit;
    end;
  
    ppal      := nil;
    if bh^.filesize <> bmpsize then
      Exit; //==>
  