anchor.diff:  
   procedure EmitLn(s: string);
   begin
  -   Emit(s);
  -   WriteLn;
  +    Emit(s);
  +    WriteLn;
   end;
   
   {--------------------------------------------------------------}
  
positive.code: 
  function GetName: char;
  begin
     if not IsAlpha(Look) then Expected('Name');
     GetName := UpCase(Look);
     GetChar;
  end;
  
  
  
negative.code: 
  procedure Abort(s: string);
  begin
      Error(s);
      Halt; { No exit code? }
  end;
  
  
  