SUBROUTINE SPEED(NRATE)
C	=======================
C	
C	PURPOSE	- SETS THE MAXIMUM PEN SPEED (FROM 1 TO 36 CM/SEC)
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NR=MAX0(NRATE,1)
	NR=MIN0(NRATE,36)
	IF (NR.EQ.NRATEN) RETURN
	NRATEN=NR
	CALL ASC('~V@')
	CALL SBN(NR)
	RETURN

	END