anchor.diff:      p("kill_ftp_proc_6035 -> entry"),
       receive
   	open ->
  -	    p("kill_ftp_proc_6035 -> received open: send shutdown"),
  +	    p("kill_ftp_proc_6035 -> received open => now issue shutdown"),
   	    exit(Pid, shutdown),
   	    kill_ftp_proc_6035(Pid, LogFile);
   	{open_failed, Reason} ->
  
positive.code: 	    is_error_report_6035(LogFile)
      end.
  
  open_wait_6035(FtpServer, From) ->
      p("open_wait_6035 -> try connect to ~s", [FtpServer]),
      case ftp:open(FtpServer, [{timeout, timer:seconds(15)}]) of
  	{ok, Pid} ->
  	    p("open_wait_6035 -> connected, now login"),
  	    LoginResult = ftp:user(Pid,"anonymous","kldjf"),
  	    p("open_wait_6035 -> login result: ~p", [LoginResult]),
  	    From ! open,
  
negative.code:     Res =
  	case file:read_file(LogFile) of
  	    {ok, Bin} ->
  		Txt = binary_to_list(Bin), 
  		p("is_error_report_6035 -> logfile read: ~n~p", [Txt]),
  		read_log_6035(Txt);
  	    _ ->
  		false
  	end,
      p("is_error_report_6035 -> logfile read result: "
        "~n   ~p", [Res]),
      %% file:delete(LogFile),
      Res.
  
  read_log_6035("=ERROR REPORT===="++_Rest) ->
      p("read_log_6035 -> ERROR REPORT detected"),
      true;
  read_log_6035([H|T]) ->
      p("read_log_6035 -> OTHER: "
        "~p", [H]),
      read_log_6035(T);
  read_log_6035([]) ->
      p("read_log_6035 -> done"),
      false.
  
  
  %%--------------------------------------------------------------------
  