SUBROUTINE PLIFT
C	================
C	
C	PURPOSE	- LIFTS THE PEN (LOGICALLY) TO INHIBIT NEXT VECTOR
C----------------------------------------------------------------------

	INCLUDE 'HPSPECS.FTN/NOLIST'

	CALL ASC ('}p}@')
	ZDOWN=.FALSE.
	ZLIFT=.TRUE.
	RETURN

	END