SUBROUTINE SYMBOL(NSYM)
C	=======================
C	
C	PURPOSE	- IF 1 <= NSYM <= 17
C		  THEN SET SYMBOL #
C		  ELSE USE NO SYMBOLS
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NS=0
	IF (NSYM.GE.1 .AND. NSYM.LE.17) NS=NSYM
	IF (NS.EQ.NSYMN) RETURN
	NSYMN=NS
	CALL ASC('~#@')
	IF (NS.NE.0) CALL SBN(NS)
	RETURN

	END