SUBROUTINE ANGLE(DEGREE)
C	========================
C	
C	PURPOSE	- SETS THE ANGLE FOR ALL TEXT AND SYMBOLS
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	IF (ANGLEN.EQ.DEGREE) RETURN
	DANGLE=AMOD(DEGREE-ANGLEN,360.)
	ANGLEN=DEGREE
	CALL ASC('w@')
	CALL MBA(DANGLE)
	RETURN

	END