anchor.diff:  end;
   
   
  +procedure SwapBool(var A, B: Boolean);
  +var
  +  S: Boolean;
  +begin
  +  S := A; A := B; B := S;
  +end;
  +
  +
   procedure SwapInt(var A, B: byte);
   var
  -  S: byte;
  +  S: Byte;
   begin
     S := A; A := B; B := S;
   end;
  
positive.code:   function decs(const AText: string; Len, RunAsFunction: integer): string; overload;
    function RemoveQuotes(const Input: string): string;
    procedure SwapStr(var A, B: string);
    procedure SwapInt(var A, B: Byte); overload;
    procedure SwapInt(var A, B: ShortInt); overload;
    procedure SwapInt(var A, B: SmallInt); overload;
  
negative.code: 
  procedure SwapInt(var A, B: shortint);
  var
    S: Shortint;
  begin
    S := A; A := B; B := S;
  end;
  
  
  procedure SwapInt(var A,B:smallint);
  var
    s: Smallint;
  begin
    s:=A; A:=B; B:=s;
  end;
  
  
  procedure SwapInt(var A,B:word);
  var
    s: Word;
  begin
    s:=A; A:=B; B:=s;
  end;
  
  procedure SwapInt(var A,B: Integer);
  var
    s: Integer;
  begin
    s:=A; A:=B; B:=s;
  end;
  
  procedure SwapInt(var A,B: Cardinal);
  var
    s: Cardinal;
  begin
    s:=A; A:=B; B:=s;
  end;
  
  {$IFDEF WDC}
  procedure SwapInt(var A,B: NativeUInt);
  var
    s: NativeUInt;
  begin
    s:=A; A:=B; B:=s;
  end;
  {$ENDIF}
  
  procedure SwapFloat(var A,B:single);
  var
    s: Single;
  begin
    s:=A; A:=B; B:=s;
  end;
  