anchor.diff:           function    SkipText( iText: string): boolean;  // true if matched text was found and skipped
            function    SkipTo( iC: Char): boolean; // True if the passed character was found
            function    SkipTo( ChrSet: tCharSet): boolean; // True if one of ChrSet was found  
  +         function    SkipPast( iC: Char): boolean; // True if the passed character was found
  +         function    SkipPast( ChrSet: tCharSet): boolean; // True if one of ChrSet was found         
            function    ReadLn(): string;
            procedure   SkipEOL();  // Skip one End of Line.  Does nothing if we aren't at an EndOfLine
            property    Chr: char read GetChr write UngetChr;
  
positive.code: 
  
  // ************************************************************************
  // * SkipEol() - If the next characters in the queue are a Windows, Unix,
  // *             or old Mac OS line ending, it will be skipped.  Otherwise
  // *             nothing happens.
  
negative.code:       while( not( PeekChr in EolChrs)) do result:= result + chr;
        if( PeekChr = CRchr) then GetChr; // discard it.
        if( PeekChr = LFchr) then GetChr; // discard it.
     end; // ReadLn()
  
  
  
  