tquit$ (2) --- check for pending terminal interrupt      02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 logical function tquit$ (flag)
                 logical flag

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Tquit$'  checks  to  see  if  there  is  a  pending program
                 interrupt as a result of the user having entered a BREAK  or
                 CTRL-P.   If  there  is,  a  value of .true.  is returned in
                 'flag' and as the function's result; otherwise, a  value  of
                 .false.  is returned.

                 Before  'tquit$'  can be used, the Primos system call BREAK$
                 must have been called with an argument of .true..  Before  a
                 program  exits,  BREAK$ should be called with an argument of
                 .false..


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Tquit$' calls  the  Primos  routine  QUIT$  to  detect  the
                 interrupt.   If  one  has occurred, it also calls the Primos
                 routine TTY$RS to clear the terminal output buffer and  T1OU
                 to echo a NEWLINE.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 flag


            _C_a_l_l_s

                 Primos quit$, Primos tty$rs, Primos t1ou




















            tquit$ (2)                    - 1 -                    tquit$ (2)