

            lscopy (4) --- copy linked string                        01/03/83


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine lscopy (ptr1, pos1, ptr2, pos2)
                 pointer ptr1, ptr2
                 integer pos1, pos2

                 Library:  vlslb


            _F_u_n_c_t_i_o_n

                 The string specified by 'ptr1', beginning at position 'pos1'
                 is  copied  to  the  string specified by 'ptr2' beginning at
                 position 'pos2'.  If 'ptr2' is zero, a string of the  proper
                 length  is  allocated  and  the pointer to it is returned in
                 'ptr2' after copying.  If in copying, the  resultant  string
                 would overflow the space allocated for the second string, no
                 new space is allocated, and the copy terminates.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 The  first  string  is  positioned to position 'pos1' with a
                 call to 'lspos'.  Then, if 'ptr2' is zero, a string  of  the
                 proper  length  is  allocated  with a call to 'lsallo'.  The
                 second string is then  positioned  to  position  'pos2'  and
                 characters are copied until the end of one string is reached
                 by using 'lsgetc' and 'lsputc'.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 ptr2 (if zero)


            _C_a_l_l_s

                 lsallo, lsgetc, lslen, lspos, lsputc


            _B_u_g_s

                 Locally supported.















            lscopy (4)                    - 1 -                    lscopy (4)


