SUBROUTINE TICKA(X,Y)
C	=====================
C	
C	PURPOSE	- TICK THE AXES AT INCREMENTS X AND Y FROM THE ORIGIN
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3300	CONTINUE
	ZDOWN=.FALSE.
	IF (NSYMN.NE.0)CALL ASC('~#@')
	IF (NZEROY.LT.NMINY .OR. NZEROY.GT.NMAXY .OR. X.LE.0.0)
	1  GOTO 3301
	
C	TICKS ON X-AXIS
	NTICKX=(NMAXX-NMINX)/(INC*X)+2
	NDELX=INC*X
	NSTRTX=NZEROX+(NMAXX-NZEROX)/NDELX*NDELX
	DO 3302 NI=1,NTICKX
	  NX=NSTRTX-(NI-1)*NDELX
	  IF (NX.EQ.NZEROX .OR. NX.LE.NMINX .OR. NX.GE.NMAXX) GOTO 3302
	  CALL ASC('p@')
	  CALL MBP(NX,MAX0(NZEROY-12,NMINY))
	  CALL MBP(NX,MIN0(NZEROY+12,NMAXY))
3302	  CONTINUE
3301	CONTINUE
	IF (NZEROX.LT.NMINX .OR. NZEROX.GT.NMAXX .OR. Y.LE.0.0)
	1  GOTO 3303
	
C	TICKS ON Y-AXIS
	NTICKY=(NMAXY-NMINY)/(INC*Y)+2
	NDELY=INC*Y
	NSTRTY=NZEROY+(NMAXY-NZEROY)/NDELY*NDELY
	DO 3304 NI=1,NTICKY
	  NY=NSTRTY-(NI-1)*NDELY
	  IF (NY.EQ.NZEROY .OR. NY.LE.NMINY .OR. NY.GE.NMAXY) GOTO 3304
	  CALL ASC('p@')
	  CALL MBP(MIN0(NZEROX+12,NMAXX),NY)
	  CALL MBP(MAX0(NZEROX-12,NMINX),NY)
3304	  CONTINUE
3303	CONTINUE
	CALL ASC('p@')
	IF (NSYMN.EQ.0) GOTO 3305
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3305	CONTINUE
	CALL HPSEND
	RETURN

	END