d subroutine jjpstek( imod, ity, x, y ) C. PLOT ON THE TEKTRONIX ,c. c. see INFO TEK or USAGE JJPANY for plotting information. c. Xc. -end.of.info- C.  LOGICAL*1 ITY(100)  LOGICAL*1 CLRBUF(2)  DATA CLRBUF/'1B'X,12/ !!ESC, FF LC.  IF( IMOD.EQ.-1 ) THEN  CALL JJPUWRITE( 2, CLRBUF ) x CALL JJPSTEKS(-1, 0.0, 0.0)  CALL JJPUWAIT( '0 ::5' ) @ XNOW = 0.0  YNOW = 0.0  ELSE IF( IMOD.EQ.0 ) THEN l CALL JJPSTEKS( ITY, X, Y )  ELSE IF( IMOD.GT.0 ) THEN 4 CALL JJPUWRITE( IMOD, ITY )  ENDIF C. ` RETURN end