SUBROUTINE TICKB(X,Y)
C	=====================
C	
C	PURPOSE	- DRAWS TICKS AROUND THE BORDER AT INCREMENTS OF X AND Y
C		  FROM THE AXES, INCLUDING THE POINTS ON THE AXES
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3400	CONTINUE
	NDELX = 1
	NDELY = 1
	ZDOWN=.FALSE.
	IF (NSYMN.NE.0) CALL ASC('~#@')
	NTICKX=(NMAXX-NMINX)/(INC*X)+2
	IF (X.GT.0.0) NDELX=INC*X
	NSTRTX=NZEROX+(NMAXX-NZEROX)/NDELX*NDELX
	NTICKY=(NMAXY-NMINY)/(INC*Y)+2
	IF (Y.GT.0.0) NDELY=INC*Y
	NSTRTY=NZEROY-(NZEROY-NMINY)/NDELY*NDELY
	IF (X.LE.0.0) GOTO 3401
	
C	TICKS ON BOTTOM
	DO 3402 NI=1,NTICKX
	  NX=NSTRTX-(NI-1)*NDELX
	  IF (NX.GE.NMAXX .OR. NX.LE.NMINX) GOTO 3402
	  CALL ASC('p@')
	  CALL MBP(NX,NMINY)
	  CALL MBP(NX,NMINY+12)
3402	  CONTINUE
3401	IF (Y.LE.0.0) GOTO 3403
	
C	TICKS ON LEFT
	DO 3404 NI=1,NTICKY
	  NY=NSTRTY+(NI-1)*NDELY
	  IF (NY.GE.NMAXY .OR. NY.LE.NMINY) GOTO 3404
	  CALL ASC('p@')
	  CALL MBP(NMINX,NY)
	  CALL MBP(NMINX+12,NY)
3404	  CONTINUE
	
3403	NSTRTX=NSTRTX-(NTICKX-1)*NDELX
	NSTRTY=NSTRTY+(NTICKY-1)*NDELY
	IF (X.LE.0.0) GOTO 3405
	
C	TICKS ON TOP
	DO 3406 NI=1,NTICKX
	  NX=NSTRTX+(NI-1)*NDELX
	  IF (NX.GE.NMAXX .OR. NX.LE.NMINX) GOTO 3406
	  CALL ASC('p@')
	  CALL MBP(NX,NMAXY)
	  CALL MBP(NX,NMAXY-12)
3406	  CONTINUE
3405	IF (Y.LE.0.0) GOTO 3407
	
C	TICKS ON RIGHT
	DO 3408 NI=1,NTICKY
	  NY=NSTRTY-(NI-1)*NDELY
	  IF (NY.GE.NMAXY .OR. NY.LE.NMINY) GOTO 3408
	  CALL ASC('p@')
	  CALL MBP(NMAXX,NY)
	  CALL MBP(NMAXX-12,NY)
3408	  CONTINUE
3407	CALL ASC('p@')
	IF (NSYMN.EQ.0) GOTO 3409
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3409	CALL HPSEND
	RETURN

	END