anchor.diff:                                        string:right(integer_to_list(H),  2, $0),
                                         string:right(integer_to_list(Mi), 2, $0),
                                         string:right(integer_to_list(S),  2, $0)]),
  -                    file:write(OutFd,
  +                    ok = file:write(OutFd,
                                  ["File generated from ",ErlFile," by COVER ",
                                   Timestamp,"\n\n"
                                   "**************************************"
  
positive.code:     case byte_size(Bin) of
  	Size when Size > 255 ->
  	    SizeBin = term_to_binary({'$size',Size}),
  	    file:write(Fd,
                         <<(byte_size(SizeBin)):8,SizeBin/binary,Bin/binary>>);
  	Size ->
  	    file:write(Fd,<<Size:8,Bin/binary>>)
      end,
      ok.    
  
  
negative.code:                                 "<body style='background-color: white;"
                                  " color: black'>\n"
                                  "<pre>\n"],
                             ok = file:write(OutFd,Header);
  		       true -> ok
  		    end,
  		    
  