anchor.diff:  procedure TmwBasePasLex.Init;
   begin
     FCommentState := csNo;
  -  FLineNumber := 1;
  +  FLineNumber := 0;
     FLinePos := 0;
     Run := 0;
     InitDefines;
  
positive.code: 
  function TmwBasePasLex.GetPosXY: TTokenPoint;
  begin
    Result.X := FTokenPos - FLinePos;
    Result.Y := FLineNumber;
  end;
  
  procedure TmwBasePasLex.InitIdent;
  
negative.code: 
  procedure TmwBasePasLex.InitLine;
  begin
    FLineNumber := 0;
    FLinePos := 0;
    Run := 0;
  end;
  