$read_size = LINES() - ($write_size + 1);

    $output_window = newwin ($read_size, 0, 0, 0);
    scrollok ($output_window, 1);
    idlok ($output_window, 1);

    $input_window = newwin ($write_size, 0, $read_size + 1, 0);
    scrollok ($input_window, 1);
    idlok ($input_window, 1);

    $status_line = newwin (1, 0, $read_size, 0);
    set_init_status ($output_window,
                      $input_window,
                      $status_line,
                      $options{server});

##</code><code>##

    ReadMode 3;
    while ($input_thread_running > 0 && !$ret)
    {
        until (defined($key = ReadKey(0))) 	# wait for input
        {
            resize_input_window($input_window) if ($sizechanged);
        }

        if ($key == ERR)
        {
            threads->yield;
        }
        elsif ($key eq KEY_RESIZE)
        {
            set_resize_flag();
            threads->yield;
        }
        elsif (($key eq "\n") or ($key eq "\r"))			# return/newline
        {
            ...