SUBROUTINE AXES
C	===============
C	
C	PURPOSE	- DRAWS THE CURRENT AXES
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3200	CONTINUE
	ZDOWN=.FALSE.
	IF (NSYMN.NE.0) CALL ASC('~#@')
	IF (NZEROX.LT.NMINX .OR. NZEROX.GT.NMAXX) GOTO 3201
	  CALL ASC('p@')
	  CALL MBP(NZEROX,NMINY)
	  CALL MBP(NZEROX,NMAXY)
3201	IF (NZEROY.LT.NMINY .OR. NZEROY.GT.NMAXY) GOTO 3202
	  CALL ASC('p@')
	  CALL MBP(NMINX,NZEROY)
	  CALL MBP(NMAXX,NZEROY)
3202	CALL ASC('p@')
	IF (NSYMN.EQ.0) GOTO 3203
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3203	CALL HPSEND
	RETURN

	END