SUBROUTINE TXTDEF(WIDE,HIGH,SLANT)
C	==================================
C	
C	PURPOSE	- SET THE WIDTH, HEIGHT, AND SLANT FOR ALL TEXT AND SYMBOLS
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NWIDE=INC*WIDE
	NHIGH=INC*HIGH
	IF (NWIDE.EQ.NWIDEN .AND. NHIGH.EQ.NHIGHN) GOTO 3701
	  CALL ASC('~%@')					! SET NEW WIDTH & HEIGHT
	  CALL MBP(NWIDE,NHIGH)
	  NWIDEN=NWIDE
	  NHIGHN=NHIGH
3701	IF (SLANT.EQ.SLANTN) GOTO 3702
	  CALL ASC('~/@')					! SET NEW SLANT
	  CALL MBA(SLANT)
3702	RETURN

	END