anchor.diff:    end;
   end;
   
  +procedure WebRead(var int: word; const newLine: boolean = false);
  +var
  +  s: string;
  +begin
  +  s := readTextInput;
  +  // set input to var
  +  if getKey('input_'+Int2Str(InputCount),webInput) then 
  +  begin
  +    // valid input set var
  +    if IsInt(s) then 
  +    begin
  +      int := Str2Int(s);
  +      writeTextInput(s,newLine,false);
  +    end
  +    // invalid input reset to var
  +    else 
  +    begin
  +      if s = '' then
  +        writeTextInput(Int2Str(int),newLine,true)
  +      else
  +        writeTextInput('ERROR: Wrong input!',newLine,true);
  +    end;
  +  end
  +  // set input from var
  +  else
  +  begin
  +    // write default value
  +    if int <> 0 then
  +      writeTextInput(Int2Str(int),newLine,false)
  +    else
  +      writeTextInput('Type a number here...',newLine,true);
  +  end;
  +end;
  +
   procedure WebRead(var int: int64; const newLine: boolean = false);
   var
     s: string;
  
positive.code: procedure WebReadln; overload; inline;
  procedure WebReadln(var str: string); overload; inline;
  procedure WebReadln(var int: integer); overload; inline;
  procedure WebReadln(var int: int64); overload; inline;
  procedure WebReadln(var real: double); overload; inline;
  procedure WebReadln(var bool: boolean; const aLabel: string); overload; inline;
  
negative.code: # Release note:
    - v.1.0: - On 4 Sep 2016.
             - First public release, without any documentation.
    - v.1.1: - Updated on 14 Feb 2018.
             - Added new WebWriteLine() procedure.
             - Added new brief User Manual on GitHub.
             - Some minor bug fixes.
  # Author:
    - Nickname : Mr. Bee Jay
  