d 	subroutine jjpscrts( ity, xst, yst )
È C.		SERVICE THE CRT PLOT
,c.
c. -end.of.info-
ôC.
X	LOGICAL*1 BUFFER(10)
¼	DATA BUFFER(1)/'1B'X/, BUFFER(2)/'Y'/ !!ESC
 C.
„	BUFFER(4) = '7F'X .AND. ( 32 + IFIX( XST*60 ) )
è	BUFFER(3) = '7F'X .AND. ( 32+23 - IFIX( YST*23 ) )
L	CALL JJPUWRITE( 4, BUFFER )
°	IF( ITY.GT.0  ) CALL JJPUWRITE( 1,ITY )
	RETURN
x		end