anchor.diff:  
   procedure Expected(s: string);
   begin
  -   Abort(s + ' Expected');
  +    Abort(s + ' Expected');
   end;
   
   {--------------------------------------------------------------}
  
positive.code: 
  procedure Add;
  begin
     Match('+');
     Term;
     EmitLn('add %ebx, %eax');
  end;
  
  
  
negative.code: 
  procedure Emit(s: string);
  begin
      Write(TAB, s);
  end;
  
  
  