anchor.diff:    end;
     result := true;
   end;
  -{$endif}
   
   Function StrLeft0Pad( const n: integer; const width: integer ): string;
   Begin
  
positive.code: // Removes spaces around the separator in the given string
  Procedure RemoveSeparatorSpaces( var S: string; const Separator:string );
  
  {$ifdef os2}
  // ------------ Ansi String utilities ------------------------
  
  // Right & left trim that works with AnsiStrings.
  Function AnsiTrim( const S: AnsiString ): AnsiString;
  
  Procedure AnsiParseConfigLine( const S: Ansistring;
                                 var keyName: Ansistring;
                                 var keyValue: Ansistring );
  
  Function AnsiExtractNextValue( var CSVString: AnsiString;
                                 const Separator: AnsiString ): AnsiString;
  
  {$endif}
  
  // ------------- Lists of strings, and strings as lists -----------
  
  
negative.code:   Result := ( UppercaseC >= 'A' ) and ( UppercaseC <= 'Z' );
  end;
  
  // Returns true if s is only spaces (or empty)
  Function IsSpaces( const s: string ): boolean;
  var
  