d 	subroutine jjpscrt( imod, ity, x, y )
È C.		PLOT ON THE CRT
,C.
c. see INFO TEK or USAGE JJPANY for plotting information.
ôc.
Xc.-end.of.info-
¼C.
 	LOGICAL*1 ITY(100)
„	LOGICAL*1 CLRBUF(4)
è	DATA CLRBUF/'1B'X,'H','1B'X,'J'/ !!ESC
LC.
°	IF( IMOD.EQ.-1 ) THEN
	  CALL JJPUWRITE( 4,CLRBUF )
x	  XNOW = 0.0
Ü	  YNOW = 0.0
@	ELSE IF( IMOD.EQ.0 ) THEN
¤	  CALL JJPUCHAR( ITY, ICHA )
	  IF( ITY(1).GE.0 .AND. ITY(1).LE.'7F'X ) THEN
l	    NPOI = MAX(ABS(100.0*(XNOW-X)), ABS(100.0*(YNOW-Y)) )
Ð	    IF( NPOI.GE.1 ) THEN
4	      XD = (X-XNOW)/NPOI
˜	      YD = (Y-YNOW)/NPOI
ü	      DO 210 II=0,NPOI-1
`		        CALL JJPSCRTS( ICHA, XNOW+II*XD, YNOW+II*YD )
Ä	210	      CONTINUE
(
	    ENDIF
Œ
	  ENDIF
ð
	  CALL JJPSCRTS( ICHA, X, Y )
T	  XNOW = X
¸	  YNOW = Y
	ELSE IF( IMOD.GT.0 ) THEN
€	  CALL JJPUWRITE( IMOD, ITY )
ä	ENDIF
HC.
¬	RETURN
		end