anchor.diff:  
   procedure Match(x: char);
   begin
  -   if Look = x then GetChar
  -   else Expected('''' + x + '''');
  +    if Look = x then GetChar
  +    else Expected('''' + x + '''');
   end;
   
   
  
positive.code: { Main Program }
  
  begin
     Init;
     Expression;
  end.
  {--------------------------------------------------------------}
  
negative.code: 
  function GetName: char;
  begin
      if not IsAlpha(Look) then Expected('Name');
      GetName := UpCase(Look);
      GetChar;
  end;
  
  
  