anchor.diff:  
   %% put_chars
   put_chars(Chars, Port, Q) when is_binary(Chars) ->
  -    put_port(Chars, Port),
  +    ok = put_port(Chars, Port),
       {ok,ok,Q};
   put_chars(Chars, Port, Q) ->
       case catch list_to_binary(Chars) of
  
positive.code:     {match,[{N,1}]};
  srch(<<_:8,T/binary>>,X,N) ->
      srch(T,X,N+1).
  get_line_doit(Prompt, Port, Q, Accu, Enc) -> 
      case queue:is_empty(Q) of
  	true ->
  
negative.code: %% %CopyrightEnd%
  %%
  -module(user).
  -compile(inline).
  
  %% Basic standard i/o server for user interface port.
  
  