SUBROUTINE GRID(X,Y)
C	====================
C	
C	PURPOSE	- DRAWS A GRID AT INCREMENTS OF X AND Y FROM THE AXIS
C		- NEITHER THE BORDER NOR THE AXES ARE DRAWN
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3500	CONTINUE
	ZDOWN=.FALSE.
	IF (NSYMN.NE.0) CALL ASC('~#@')
C	
C	VERTICAL LINES
	IF (X.LE.0.0) GOTO 3503
	NTICKX=(NMAXX-NMINX)/(INC*X)+2
	NDELX=INC*X
	NSTRTX=NZEROX+(NMAXX-NZEROX)/NDELX*NDELX
	DO 3502 NI=1,NTICKX
	  NX=NSTRTX-(NI-1)*NDELX
	  IF (NX.EQ.NZEROX .OR. NX.GE.NMAXX .OR. NX.LE.NMINX) GOTO 3502
	  CALL ASC('p@')
	  CALL MBP(NX,NMINY)
	  CALL MBP(NX,NMAXY)
3502	  CONTINUE
C	
C	HORIZONTAL LINES
3503	IF (Y.LE.0.0) GOTO 3505
	NTICKY=(NMAXY-NMINY)/(INC*Y)+2
	NDELY=INC*Y
	NSTRTY=NZEROY+(NMAXY-NZEROY)/NDELY*NDELY
	DO 3504 NI=1,NTICKY
	  NY=NSTRTY-(NI-1)*NDELY
	  IF (NY.EQ.NZEROY .OR. NY.LE.NMINY .OR. NY.GE.NMAXY) GOTO 3504
	  CALL ASC('p@')
	  CALL MBP(NMINX,NY)
	  CALL MBP(NMAXX,NY)
3504	  CONTINUE
3505	CALL ASC('p@')
	IF (NSYMN.EQ.0) GOTO 3506
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3506	CALL HPSEND
	RETURN

	END