anchor.diff:    end;
     result := true;
   end;
  -{$endif}
   
   Function StrLeft0Pad( const n: integer; const width: integer ): string;
   Begin
  
positive.code:   Result := ( UppercaseC >= 'A' ) and ( UppercaseC <= 'Z' );
  end;
  
  {$ifdef os2}
  // Returns true if s is only spaces (or empty)
  Function IsSpaces( const s: string ): boolean;
  Begin
    Asm
    MOV ESI,s   // get address of s into ESI
    MOV CL,[ESI]     // get length of s
    MOVZX ECX, CL      // widen CL
    INC ECX
  
  !IsSpacesLoop:
    INC ESI   // move to next char
    DEC ECX
    JE !IsSpacesTrue
  
    MOV AL,[ESI] // load character
    CMP AL,32  // is it a space?
    JE !IsSpacesLoop // yes, go to next
  
    // no, return false
    MOV EAX, 0
    JMP !IsSpacesDone
  
  !IsSpacesTrue:
    MOV EAX, 1
  
  !IsSpacesDone:
    LEAVE
    RETN32 4
    End;
  
  End;
  {$else}
  // Returns true if s is only spaces (or empty)
  Function IsSpaces( const s: string ): boolean;
  var
  
negative.code:     Result:= StartString + '1';
  end;
  
  Procedure ReverseList( TheList:TStrings );
  Var
    TempList: TStringList;
  