ctop (2) --- convert EOS-terminated string to packed string  03/23/80


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function ctop (str, i, pstr, len)
                 character str (ARB)
                 integer i, len
                 packed_char pstr (len)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Ctop'   converts  the  EOS-terminated  unpacked  string  in
                 argument 'str', starting at position 'i', to packed  integer
                 form  in  the  array  'pstr'.   The argument 'len' gives the
                 maximum length of the array 'pstr'; no more than 'len' words
                 of this array will be modified by 'ctop'.  After conversion,
                 'i' points to the EOS at the end of 'str', or  one  position
                 past  the  last  character  packed  if the maximum length of
                 'pstr' is exceeded.

                 The function return is the number of characters  transferred
                 from 'str' to 'pstr'.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Ctop'  picks  up successive characters from 'str' and packs
                 them into 'pstr' with the standard Subsystem macro 'spchar'.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 i, pstr


            _S_e_e _A_l_s_o

                 ptoc (2), other conversion routines  ('cto?*'  and  '?*toc')
                 (2)


















            ctop (2)                      - 1 -                      ctop (2)