d 	subroutine jjpslp( imod, ity, x, y )
È C.		PLOT ON THE PRINTER
,c.
c. see INFO TEK or USAGE JJPANY for plotting information
ôc.
Xc.-end.of.info-
¼C.
 	LOGICAL*1 ITY(100)
„C.
è	LOGICAL*1 PLTBUF( 132, 61 )
L	DATA PLTBUF/ 8052*' ' /
°	LOGICAL*1 CRLF(2)
	DATA CRLF/'0D'X,'0A'X/
xC.
Ü	IF( IMOD.EQ.-2 ) THEN
@	  OPEN( UNIT=99,NAME='LP:' )
¤	  DO 220 II=1,61
	    WRITE(99,215) ' ',(PLTBUF(IJ,II),IJ=1,132)
l215	    FORMAT( 140A )
Ð220	  CONTINUE
4	  CLOSE( UNIT=99 )
˜C.
ü	ELSE IF( IMOD.EQ.-1 ) THEN
`		  IF( ISDATA.EQ.1 ) THEN
Ä		  OPEN( UNIT=99,NAME='LP:' )
(
	  DO 230 II=1,61
Œ
	    WRITE(99,215) ' ',(PLTBUF(IJ,II),IJ=1,132)
ð
230	  CONTINUE
T	  CLOSE( UNIT=99 )
¸	  ISDATA = 0
	  ENDIF
€	  DO 250 II=1,61
ä	    DO 250 IJ=1,132
H	      PLTBUF(IJ,II) = ' '
¬250	  CONTINUE
	  XNOW = 0.0
t	  YNOW = 0.0
Ø	ELSE IF( IMOD.EQ.0 ) THEN
<	  CALL JJPUCHAR( ITY, ICHA )
 	  IF( ITY(1).GE.0 ) THEN
	    ISDATA = 1
h	    NPOI = MAX(ABS(200.0*(XNOW-X)), ABS(200.0*(YNOW-Y)) )+1
Ì	    XD = (X-XNOW)/NPOI
0	    YD = (Y-YNOW)/NPOI
”	    DO 310 II=0,NPOI
ø	      PLTBUF( 1+100*(XNOW+II*XD), 61-60*(YNOW+II*YD) )
\	1	= ICHA
À310	    CONTINUE
$	  ENDIF
ˆ	  XNOW = X
ì	  YNOW = Y
P	ELSE IF( IMOD.GT.0 ) THEN
´	  IX = 1+100*XNOW
	  IY = 61-60*YNOW
|	  DO 410 II=1,IMOD
à	    PLTBUF( IX+II, IY ) = ITY(II)
D410	  CONTINUE
¨	ENDIF
C.
p	RETURN
Ô		end