SUBROUTINE PABS(X,Y)
C	====================
C	
C	PURPOSE	- MOVE TO POINT (X INCHES, Y INCHES)
C		- REFERENCED TO LOWER LEFT OF LOGICAL PAGE
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NX=NMINX+INC*X
	NY=NMINY+INC*Y
	IF (NX.LT.0 .OR. NX.GT.NMAXNX .OR. NY.LT.0 .OR. NY.GT.NMAXNY)
	1  RETURN
	IF (ZDOWN) CALL ASC ('q@')
	IF (.NOT. ZDOWN) CALL ASC ('p@')
4101	CALL MBP(NX,NY)
	CALL HPSEND
	RETURN

	END