C----------------------------------------------------------------------
	SUBROUTINE OFFSET(X,Y)
C	======================
C	
C	PURPOSE	- CHANGES THE OFFSET
C		- CAUSES A PAGE PARAMETER UPDATE
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

1100	CONTINUE
	OFFX=X+0.1
	OFFY=Y+0.3
	GO TO 1500
	
C----------------------------------------------------------------------
	ENTRY SIZE(X,Y)
C	===============
C	
C	PURPOSE	- CHANGES THE PAGE SIZE
C		- CAUSES A PAGE PARAMETER UPDATE
C	
C----------------------------------------------------------------------
1200	CONTINUE
	SIZEX=X
	SIZEY=Y
	GO TO 1500
	
C----------------------------------------------------------------------
	ENTRY ORIGIN(X,Y)
C	=================
C	
C	PURPOSE	- CHANGES THE ORIGIN
C		- CAUSES A PAGE PARAMETER UPDATE.
C	
C----------------------------------------------------------------------
1300	CONTINUE
	ORGX=X
	ORGY=Y

C----------------------------------------------------------------------
C	UPDATE PAGE PARAMETERS
C	======================
C----------------------------------------------------------------------
1500	CONTINUE
	ZDOWN=.FALSE.
	ZLIFT=.TRUE.
	NMINX=MAX0(IFIX(OFFX*INC),0)
	NMINY=MAX0(IFIX(OFFY*INC),0)
	NMAXX=MIN0(IFIX((OFFX+SIZEX)*INC),NMAXNX)
	NMAXY=MIN0(IFIX((OFFY+SIZEY)*INC),NMAXNY)
	RZEROX=(OFFX+ORGX)*INC
	RZEROY=(OFFY+ORGY)*INC
	NZEROX=MIN1(AMAX1(RZEROX,-32000.0),32000.0)
	NZEROY=MIN1(AMAX1(RZEROY,-32000.0),32000.0)
D	TYPE 500, RZEROX, RZEROY, NZEROX, NZEROY
D	TYPE 501, NMINX, NMAXX, NMINY, NMAXY
D500	FORMAT ('0** ORIGIN'/' ZERO:',2F10.2,2I10)
D501	FORMAT ('    X:',2I10/'    Y:',2I10)
	RETURN

C----------------------------------------------------------------------
	ENTRY SCALE(X,Y)
C	================
C	
C	PURPOSE	- CHANGES THE SCALE
C	
C----------------------------------------------------------------------
1400	CONTINUE
	ZDOWN=.FALSE.
	ZLIFT=.TRUE.
	SCALEX=X
	SCALEY=Y
	RETURN

	END