ttyp$r (6) --- return the terminal type from the common area  03/25/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function ttyp$r (ttype)
                 character ttype (MAXTERMTYPE)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Ttyp$r'  retrieves  the  name of the terminal from the Sub-
                 system common area, if it has been  previously  set.   If  a
                 valid name is found, the function returns YES; otherwise, it
                 returns NO.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Ttyp$r'  calls 'chkstr' to see if a valid terminal name has
                 been set in  the  Subsystem  common  area.   If  an  invalid
                 terminal  name  has been set, it clears the name and returns
                 NO; otherwise, it copies the name  to  'ttype'  and  returns
                 YES.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 ttype


            _C_a_l_l_s

                 chkstr, ctoc


            _S_e_e _A_l_s_o

                 term (1), term_type (1), other ttyp$?* routines (6)




















            ttyp$r (6)                    - 1 -                    ttyp$r (6)