SUBROUTINE KBYES
C
C	KEYBOARD COMMAND ROUTINE
C
C		THIS ROUTINE SERVICES ALL KEYBOARD COMMANDS
C
C 
	INTEGER*4 IZMIN,IZMAX,IXMIN,IXMAX,IYMIN,IYMAX
	COMMON /STATSC/ ISTOP,ICOUNT
	COMMON	/D2SAVE/ IX
	COMMON	/MSCAL/ XORG,XSC,YORG,YSC,IH,IXMIN,IXMAX,IYMIN,
	1	IYMAX,IZMIN,IZMAX,IPLOT
	IF(ICOUNT .ne. 0) CALL MSG('ICOUNT is not 0')
	IF(ICOUNT .lt. 0) CALL SSET	! If not set up do it now
1	IF(IPLOT .NE. 2) GO TO 2	!IF NOT REPEAT PLOT DO REGULAR INPUT
	IF(ABS(SECNDS(CTIME)) .LT. 3.5) GO TO 2	!NOT ENOUGH TIME ELAPSED
	CALL	KBACT			! Execute repeat plot
	CTIME	= SECNDS(0.)		! Save time
2	IF(ICOUNT .gt. 0)RETURN
	CALL	KBACT
	END