elsif ($key eq chr(1))				# home
        {
            $output_sem->down();
            $ptr = 0;
            curs_to_ptr($input_window, $ptr);
            $output_sem->up();
        }