anchor.diff:        while( not( PeekChr in EolChrs)) do result:= result + chr;
         if( PeekChr = CRchr) then GetChr; // discard it.
         if( PeekChr = LFchr) then GetChr; // discard it.
  -   end; // SkipEol()
  +   end; // ReadLn()
   
   
   
  
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:          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;
  