d 	SUBROUTINE jjpshp( JMOD, ITY, X, Y )
È C.		PLOT ON THE H.P. PLOTTER
ð c.
c. see INFO TEK or USAGE JJPANY for plotting information.
@c.
hc.-end.of.info-
c.
ô	LOGICAL*1 ITY(100)
X	logical*1 ploff(3), plonn(6), obsz(3), pickpen(3), esc(10)
¼	logical*1 setfont(4)
 	LOGICAL*1 LABLE(4)
„	data ploff/'1b'x,'.',')'/
è	data plonn/'1b'x,'.','(','p','60'X,'}'/
L	data obsz/'1b'x,'.','B'/
°	data pickpen/'v','A','}'/
	data setfont/'~','P','`','%'/
x	data esc(1)/'1b'x/
Ü	DATA lable/'~','''',3,'}'/
@C.
¤	if( jmod.eq.-2 ) then
	  pickpen(2) = '7f'x .and. '@'
l	  call JJPUWRITE( 3, pickpen )
Ð	  call JJPUWRITE( 3, ploff )
4	else if( jmod.eq.-1 ) then
˜	  call JJPUWRITE( 6, plonn )
ü	  pickpen(2) = '7f'x .and. 'D'
`		  call JJPUWRITE( 3, pickpen )
Ä		  ipen = 4
(
	  call JJPUWRITE( 4, setfont )
Œ
	else if( jmod.eq. 0 ) then
ð
200	  continue
T	  call jjpuwrite( 3, obsz)
¸	  read(5,*) nbyte
	  if( nbyte .lt. 100 ) then
€	    call jjpuwait( '0 ::1' )
ä	    goto 200
H	  endif
¬	  ix = x*1580+0.0
	  iy = y*1580+0.0
t	  if( ity(1).lt.0 .or. ity(1).gt.127 ) then
Ø	    esc(1) = 'p'
<	  else
 	    if( ipen.ne. ity(1) ) then
	      ipen = ity(1)
h	      pickpen(2) = '7F'X .AND. ( MOD(IPEN,4)+'A')
Ì	      call jjpuwrite( 3, pickpen )
0	    endif
”	    esc(1) = 'q'
ø	  endif
\c.
À	  iix = ix/2**10
$	  esc(2) = iix+'60'x
ˆc.
ì	  iix = (ix.and.'3ff'x)/2**4
P	  esc(3) = iix
´	  if( esc(3).le.'1f'x ) esc(3) = esc(3)+ '40'x
c.
|	  iix = (ix.and.'f'x )* 2**2
à	  iiy = iy/2**12
D	  esc(4) = iix+iiy
¨	  if( esc(4).le.'1f'x ) esc(4) = esc(4)+ '40'x
c.
p	  esc(5) = (iy.and.'fc0'x)/2**6
Ô	  if( esc(5).le.'1f'x ) esc(5) = esc(5)+ '40'x
8c.
œ	  esc(6) = iy .and.'3f'x
 	  if( esc(6).le.'1f'x) esc(6) = esc(6)+ '40'x
dc.
È	  esc(7) = '}'
,	  call JJPUWRITE( 7, esc )
	else
ô	  call jjpuwrite( 2, lable )
X	  call jjpuwrite( jmod, ity(1) )
¼	  call jjpuwrite( 2, lable(3) )
 c.	  write(6,*) jmod, ity(1)
„	endif
è	RETURN
L		END