d 	subroutine jjpsteks( ity, x, y )
È C.		SERVICE THE TECTRONIX PLOTS
,c.
c. see INFO TEK or USAGE JJPANY for plotting information.
ôc.
Xc.-end.of.info-
¼C.
 	LOGICAL*1 ITY
„	COMMON /JJPCOMM/ IPLTYP,PLMIN,IPLDEB,IPLCHN !!COMM
è	LOGICAL*1 PLTBUF(100)
L	DATA PLTBUF(1)/'1B'X/, PLTBUF(2)/'1D'X/ !!ESC, GS
°	DATA PLTBUF(3)/'40'X/ !! LOWX
	DATA IPLT/2/
x	LOGICAL*1 LNTY(15)
Ü	DATA LNTY/'`','A','B','C','D','H','I','J','K','L',
@	1	'P','Q','R','S','T'/
¤C.
	IF( ITY.GE.0 .AND. ITY.LE.'7F'X ) THEN
l	  IPLT = IPLT+2 !SEND LAST LOWX, NULL
Ð	  LNIXN = ITY
4	  LNIXN = MOD( LNIXN,16)+1
˜	  IF( LNIXN.NE.LNIX .AND. IPLTYP.EQ.5 ) THEN
ü	    LNIX = LNIXN
`		    PLTBUF(IPLT+1) = '1B'X !! ESC
Ä		    PLTBUF(IPLT+2) = LNTY(LNIX) !! BEEM CODE
(
	    IPLT = IPLT+2
Œ
	  ENDIF
ð
	ENDIF
T	IX = 780*X
¸	IY = 780*Y
	IYHN = ((IY/32).AND.'1F'X).OR.'20'X
€	IYLN = ((IY).AND.'1F'X).OR.'60'X
ä	IXHN = ((IX/32).AND.'1F'X).OR.'20'X
H	IF( IYHN .NE. IYH ) THEN
¬	  IPLT = IPLT+1
	  PLTBUF(IPLT) = IYHN
t	  IYH = IYHN
Ø	ENDIF
<	IF( IXHN .NE. IXH ) THEN
 	  IPLT = IPLT+1
	  PLTBUF(IPLT) = IYLN
h	  IYL = IYLN
Ì	  IPLT = IPLT+1
0	  PLTBUF(IPLT) = IXHN
”	  IXH = IXHN
ø	ELSE IF( IYLN .NE. IYL ) THEN
\	  IPLT = IPLT+1
À	  PLTBUF(IPLT) = IYLN
$	  IYL = IYLN
ˆ	ENDIF
ì	IPLT = IPLT+1
P	PLTBUF(IPLT) = ((IX).AND.'1F'X).OR.'40'X
´	PLTBUF(IPLT+1) = 0 !! NULL
	PLTBUF(IPLT+2) = '1F'X !! US
|C.
à	CALL JJPUWRITE( IPLT+2, PLTBUF )
D	PLTBUF(3) = PLTBUF(IPLT) ! SAVE LOWX
¨	PLTBUF(4) = 0
	IPLT = 2
pC.
Ô	RETURN
8		end