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:   for i := 1 to j do
    begin
      // auto left align
      if newLine and (LeftWidth > 0) and (i > 0) then 
        write('<span class="input" style="width:',LeftWidth,'px"> </span>');
      write('<label><input type="radio" id="rbInput_',InputCount,'" ');
      write('name="input_',InputCount,'" value="option_',i,'"');
  
negative.code:   InputCount := 0;
    WebInput   := '';
    ExeName    := ExtractFileName(ParamStr(0));
  end.
  