tseek$ (6) --- seek on a terminal device                 01/06/83


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function tseek$ (pos, f, ra)
                 longint pos
                 file_des f
                 integer ra

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Tseek$'  is an internal Subsystem routine that performs the
                 function of 'seekf' for  terminal  files  only.   The  first
                 argument  is a long integer value which specifies the amount
                 of positioning relative to the  current  position  (negative
                 and   absolute  positioning  are  not  allowed  on  terminal
                 devices).  The second argument is the file descriptor of the
                 file whose file pointer is  being  manipulated.   The  third
                 argument  must  equal REL.  The function return is OK if the
                 positioning was successful, ERR if 'ra' is ABS or  if  'pos'
                 is  negative.   'Tseek$' is not intended for general use; it
                 is not protected from user error, and may cause  termination
                 of the user's program if used incorrectly.  It should always
                 be referenced through 'seekf'.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Tseek$'  calls  the  Primos  subroutine C1IN 'pos' times to
                 "skip over" 'pos' characters.


            _C_a_l_l_s

                 Primos c1in


            _S_e_e _A_l_s_o

                 seekf (2)

















            tseek$ (6)                    - 1 -                    tseek$ (6)