anchor.diff:  
   -export([start/1]).
   -export([supports_extension/1]).
  --export([enqueue/1, get_queue/0, skip/0, clear_queue/0]).
  +-export([enqueue/1, get_queue/0, skip/0, pause/1, clear_queue/0]).
   -export([init/1, handle_call/3, handle_info/2]).
   
   -export([join/2]).
  
positive.code:     case State#state.status of
  	idle ->
  	    ok;
  	{playing, _Entry, {UnixPid, Port}} ->
  	    os:cmd("kill " ++ integer_to_list(UnixPid)),
  	    receive
  		{Port, {exit_status, _Code}} -> ok
  	    end
      end,
      act_and_reply(State#state{status = idle});
  handle_call(clear_queue, _From, State) ->
      act_and_reply(State#state{queue = []}).
  
  
negative.code:     Q = State#state.queue,
      case State#state.status of
  	idle -> {idle, Q};
  	{Other, Entry, _PlayerDetails} -> {{Other, Entry}, Q}
      end.
  
  act_and_reply(State) ->
  