anchor.diff:  // additional web output
   procedure WebWriteVar(const key, value: string); inline;
   procedure WebWriteBlock(const txt: string); inline;
  +procedure WebWriteLine(const space: integer = 0; const width: integer = 50); inline;
   procedure WebPutGlyph(const gName: string; const caption: string = ''; const newLine: boolean = false); inline;
   function  WebGetGlyph(const gName: string; const caption: string = ''; const asTitle: boolean = false): string; inline;
   function  WebGetLink(const url: string; const caption: string = ''; const newPage: boolean = false): string; inline;
  
positive.code:   InputCount := 0;
    WebInput   := '';
    ExeName    := ExtractFileName(ParamStr(0));
  end.
negative.code: procedure WebWriteBlock(const txt: string);
  begin
    writeln('<blockquote>',txt,'</blockquote>');
  end;
  
  procedure WebWriteLine(const space: integer = 0; const width: integer = 50);
  begin
    writeln('<hr align="left" width="'+IntToStr(width)+'%" style="margin:10px 10px 10px '+IntToStr(space)+'px" />');
  end;
  
  // Support BootStrap's glyphicon library. Make sure the css and font are installed correctly.
  