anchor.diff:      {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 ->
  
positive.code: %% %CopyrightEnd%
  %%
  -module(user).
  -compile( [ inline, { inline_size, 100 } ] ).
  
  %% Basic standard i/o server for user interface port.
  
  
negative.code:         _ -> exit({no_translation, unicode, unicode})
      end.
  
  wrap_characters_to_binary(Chars, unicode, latin1) ->
      case catch unicode:characters_to_binary(Chars, unicode, latin1) of
          Bin when is_binary(Bin) ->
              Bin;
          _ ->
              case catch unicode:characters_to_list(Chars, unicode) of
                  L when is_list(L) ->
                      list_to_binary(
                        [ case X of
                              High when High > 255 ->
                                  ["\\x{",erlang:integer_to_list(X, 16),$}];
                              Low ->
                                  Low
                          end || X <- L ]);
                  _ ->
                      error
              end
      end;
  wrap_characters_to_binary(Bin, From, From) when is_binary(Bin) ->
      Bin;
  wrap_characters_to_binary(Chars, From, To) ->
      case catch unicode:characters_to_binary(Chars, From, To) of
          Bin when is_binary(Bin) ->
              Bin;
          _ ->
              error
      end.
  