C
C	subroutine IDSFIL
C
	BYTE		QXPTR(422)		! pointers into the buffer
	BYTE		QBUFFR(28770)		! the raster buffer itself
	COMMON /IDSRAS/ QXPTR,QBUFFR
C
C	do we read or write?
C
	IF (IRDWR .EQ. 0) GOTO 100
C
C	read a buffer full
C
	CALL CLRDOT				! first, clean out the buffer
	READ (LOONRS,ERR=10,END=10) QBUFFR
	RETURN
10	QDONE = .TRUE.
	RETURN
C
C	write a buffer full
C
100	WRITE (LOONRS,ERR=110) QBUFFR
	RETURN
110	WRITE (LOONTI,120)
120	FORMAT('0RASTER error - maybe a full device')
	RETURN
	END