SUBROUTINE CUT ( IICUT )
C
C	NAME:  CUT
C
C	LANGUAGE:  FORTRAN
C
C	OPERATING SYSTEM:  DEC VAX/VMS
C
C	ORDER NUMBER:  5448-SE
C
C	PART NUMBER:  000-025522-001  OCTOBER 1985
C
C	PRODUCT:  DEC VAX/VMS VERSAPLOT COLOR RANDOM 2.0
C
C	VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C	A XEROX COMPANY
C
C	Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C	"NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C	INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C	LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C	PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C	REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C	THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C	VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C	AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C	THE COPYRIGHT ACT OF 1976."
C
C
C	CUT - UPDATE THE PAPER CUT FLAG FOR THE CURRENT PLOT
C
C	SUBROUTINE CUT ALLOWS THE USER TO OVERRIDE THE DEFAULT PAPER
C	CUT VALUE FOR THE CURRENT PLOT.
C
C	NOTE:
C		1) CUT MUST BE CALLED AFTER THE CALL TO SUBROUTINE
C		   PLOTS AND BEFORE THE END-OF-PLOT (+-23,+-999) CALL
C		   IS MADE TO SPECIFY A CUT FOR THE CURRENT PLOT.
C		   THE PAPER CUT FLAG IS RESET TO THE DEFAULT VALUE
C		   (JCUT) AFTER AN END-OF-PLOT CALL.
C
C	ENTRY:  CALL CUT (IICUT)
C
C			IICUT - NEW VALUE FOR PAPER CUT FLAG
C			       = -1 - CUT IMMEDIATE
C			       =  0 - NO PAPER CUT COMMAND
C			       =  1 - SET PAGE MODE
C
C	EXIT:  RETURN
C
C	CALLED BY: USER
C
C	CALLS:  MSGLG1
C
C	COMMON USED:
C	/DVCOM/
C		I ICUT    - PAPER CUT FLAG FOR CURRENT PLOT
C			    = -1 - CUT IMMEDIATE
C			    = 0  - NO PAPER CUT
C			    = 1  - SET PAGE MODE
C
C
C
	INCLUDE 'DVCOM.CMN'
C
C
C
C...	CHECK FOR ILLEGAL VALUES.
	IF (IICUT .LT. -1  .OR. IICUT .GT. 1) GO TO 900
C
C...	SET NEW VALUE
	ICUT = IICUT
	GO TO 999
C
C...	PRINT ILLEGAL VALUE MESSAGE.
  900	CALL MSGLG1(129)
C
  999	RETURN
	END