extern void gds_lock_c(fchar,fint *);