findf$ (6) --- see if file exists in current directory   02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function findf$ (file)
                 packedchar file (16)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Findf$' is an internal routine used to verify the existence
                 of a file.  The argument is a packed, blank-padded character
                 string (such as that returned by 'getto') that is 32 charac-
                 ters  in length.  'Findf$' returns YES if the file exists in
                 the current directory, NO otherwise.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Findf$' calls the Primos routine SRCH$$ with the key  KEXST
                 to determine if the named file exists.


            _C_a_l_l_s

                 Primos srch$$


            _S_e_e _A_l_s_o

                 getto (2), file (1)



























            findf$ (6)                    - 1 -                    findf$ (6)