SUBROUTINE TEXT(X,Y,ZTEXT)
C	==========================
C	
C	PURPOSE	- PRINT TEXT STARTING AT (X,Y) WITH THE APPROPRIATE
C		  ANGLE, WIDTH, HEIGHT, AND SLANT
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

3600	CONTINUE
	ZDOWN=.FALSE.
	ZLIFT=.TRUE.
	NX=X*INC+NMINX
	NY=Y*INC+NMINY
	IF (NX.LT.0 .OR. NX.GT.NMAXNX .OR. NY.LT.0 .OR. NY.GT.NMAXNY)
	1  RETURN
	IF (NSYMN.NE.0) CALL ASC('~#@')
	CALL ASC('p@')
	CALL MBP(NX,NY)
	CALL ASC('~''@')
	CALL ASC(ZTEXT)
	CALL ASC(Z03)
	IF (NSYMN.EQ.0) GOTO 3605
	  CALL ASC('~#@')
	  CALL SBN(NSYMN)
3605	CALL HPSEND
	RETURN

	END