

_R_e_a_d _a _L_i_n_e _f_r_o_m _t_h_e _T_e_r_m_i_n_a_l

     readline()

_D_e_s_c_r_i_p_t_i_o_n:

     `readline' reads a line from the terminal, returning it
     as a character string.

_E_x_a_m_p_l_e_s:

     fun <- function() {
       cat("Are you a satisfied R user? ")
       ANSWER <- readline()
       if (substr(ANSWER, 1, 1) == "n")
         cat("This is impossible.  YOU LIED!\n")
       else
         cat("I knew it.\n")
     }
     fun()

