INTEGER	FUNCTION BUFPOS(X,Y)
	INTEGER	X,Y,MINX(2),LTYPE,LENGTH(9)
	DATA	LENGTH,MINX/70,5,2,2,1,1,1,1,1,5,30/
	J=0
	LTYPE=1			! DEFAULT FOR LINE TYPE
	IF(Y.GT.1)LTYPE=2
	IF(Y.LE.1)GO TO 330
	DO 325 I=1,Y-1
	J=J+LENGTH(I)
325	CONTINUE
330	J=J+X-MINX(LTYPE)+1	! SHOULD BE POSITION IN BUFFER
	BUFPOS=J
	RETURN
	END