C*	KPSUP  - UPDATE ICP POINTER TO BDUP BUFFER
C
	SUBROUTINE KPSUP
C
	INCLUDE 'KPSCM.COM/NOLIST'
C
	ICP = ICP + 1
	IF (ICP .GT. MXCOL) LEC = .TRUE.
	RETURN
	END