# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

include	<fset.h>

# MT_SKIP_RECORD -- Skip records on an opened file.  Return the actual number
# of records skipped; stop if EOF is reached.

int procedure mt_skip_record (fd, nrecords)

int	fd				#I magtape device
int	nrecords			#I number of records to skip

pointer	sp, buf
int	n, bufsize
errchk	aread, await
int	await(), fstati()

begin
	call smark (sp)
	bufsize = fstati (fd, F_BUFSIZE)
	call salloc (buf, bufsize, TY_CHAR)

	for (n=1;  n <= nrecords;  n=n+1) {
	    call aread (fd, Memc[buf], bufsize, 0)
	    if (await (fd) == EOF)
		break
	}

	call sfree (sp)
	return (n-1)
end