SUBROUTINE COLOUR(NPEN)
C	=======================
C	
C	PURPOSE	- IF NPEN>0
C		  THEN LOAD PEN # MOD(NPEN-1,4)+1
C		  ELSE STORE ALL PENS
C	
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	NP=0
	IF (NPEN.GT.0) NP=MOD(NPEN-1,4)+1
	IF (NP.EQ.NPENN) RETURN			! IF PEN IS SAME DO NOTHING
	NPENN=MAX(NP,0)
	IF (NSYMN.NE.0)CALL ASC('~#@')		! KILL SYMBOL IF NECESSARY
	CALL ASC('p@')				! MOVE TO NEAR PENS
	CALL MBP(2490,0)
	CALL ASC('v@')				! SELECT NEW PEN
	CALL SBN(NP)
	IF (NSYSN.EQ.0) GOTO 1000		! RESTORE SYMBOL IF NECESSARY
	CALL ASC('~#@')
	CALL SBN(NSYMN)
1000	ZDOWN=.FALSE.
	ZLIFT=.TRUE.
	CALL HPSEND
	RETURN

	END