anchor.diff:  Procedure TSnowballProgram.SetCurrent(Current: AnsiString);
   Begin
       FCurrent := Current;
  -	FCursor  := 0;
  -	FLimit   := Length(Current);
  -	FBkLimit := 0;
  -	FBra     := FCursor;
  -	FKet     := FLimit;
  +    FCursor  := 0;
  +    FLimit   := Length(Current);
  +    FBkLimit := 0;
  +    FBra     := FCursor;
  +    FKet     := FLimit;
   End;
   
   Function TSnowballProgram.InGrouping(s : array of char; min, max : Integer) : Boolean;
   Var ch : Integer;
   Begin
       Result := False;
  -	If (FCursor >= FLimit) Then Exit;
  +    If (FCursor >= FLimit) Then Exit;
   
       ch := Ord(FCurrent[FCursor + 1]);
  -	If (ch > max) Or (ch < min) Then Exit;
  -
  -	ch := ch - min;
  -	If (Ord(s[ch Shr 3]) And Ord(1 Shl (ch And $7))) = 0 Then Exit;
  -
  -	Inc(FCursor);
  -	Result := True;
  +    If (ch > max) Or (ch < min) Then Exit;
  +
  +    ch := ch - min;
  +    If (Ord(s[ch Shr 3]) And Ord(1 Shl (ch And $7))) = 0 Then Exit;
  +
  +    Inc(FCursor);
  +    Result := True;
   End;
   
   Function TSnowballProgram.InGroupingBk(s : array of char; min, max : Integer) : Boolean;
   Var ch : Integer;
   Begin
       Result := False;
  -	If (FCursor <= FBkLimit) Then Exit;
  +    If (FCursor <= FBkLimit) Then Exit;
   
       ch := Ord(FCurrent[FCursor]);
  -	If (ch > max) Or (ch < min) Then Exit;
  -
  -	ch := ch - min;
  -	If (Ord(s[ch Shr 3]) And Ord(1 Shl (ch And $7))) = 0 Then Exit;
  -
  -	Dec(FCursor);
  -	Result := True;
  +    If (ch > max) Or (ch < min) Then Exit;
  +
  +    ch := ch - min;
  +    If (Ord(s[ch Shr 3]) And Ord(1 Shl (ch And $7))) = 0 Then Exit;
  +
  +    Dec(FCursor);
  +    Result := True;
   End;
   
   Function TSnowballProgram.OutGrouping(s : array of char; min, max : Integer) : Boolean;
   Var ch : Integer;
   Begin
       Result := False;
  -	If (FCursor >= FLimit) Then Exit;
  -
  -	ch := Ord(FCurrent[FCursor + 1]);
  -
  -	If (ch > max) Or (ch < min) Then
  -    Begin
  -	    Inc(FCursor);
  -	    Result := True;
  +    If (FCursor >= FLimit) Then Exit;
  +
  +    ch := Ord(FCurrent[FCursor + 1]);
  +
  +    If (ch > max) Or (ch < min) Then
  +    Begin
  +        Inc(FCursor);
  +        Result := True;
           Exit;
  -	End;
  -
  -	ch := ch - min;
  +    End;
  +
  +    ch := ch - min;
       If (Ord(s[ch Shr 3]) And Ord(1 Shl (ch And $7))) = 0 Then
       Begin
  -	    Inc(FCursor);
  -	    Result := True;
  -	End;
  +        Inc(FCursor);
  +        Result := True;
  +    End;
   End;
   
   Function TSnowballProgram.OutGroupingBk(s : array of char; min, max : Integer) : Boolean;
  
positive.code: 
  Procedure TSnowballProgram.SliceFrom(s : AnsiString);
  Begin
  	SliceCheck();
  	ReplaceS(FBra, FKet, s);
  End;
  
  Function TSnowballProgram.AssignTo() : AnsiString;
  
negative.code: Begin
      Result := False;
  
      if (FCursor - FBkLimit) < s_size Then Exit;
  
      For I := 1 To s_size Do
          If FCurrent[FCursor - s_size + I] <> s[i] Then Exit;
  
      FCursor := FCursor - s_size;
  
      Result := True;
  End;
  