d 	subroutine jjpuwrite( nchar, buffer )
È C.		DO THE PHYSICAL WRITE
,c.
c. see INFO TEK or USAGE JJPANY for plotting information
ôc.
Xc. -end.of.info-
¼C.
 	LOGICAL*1 BUFFER(80)
„	COMMON /JJPCOMM/ IPLTYP,PLMIN,IPLDEB,IPLCHN !!COMM
è	LOGICAL*1 CBUF(160)
LC.
°	IF( IPLDEB.EQ.0 ) THEN
	  CALL CHROBF( IPLCHN, NCHAR, BUFFER )
x	  CALL SYS$WAITFR(%VAL(1))
Ü	ELSE IF( IPLDEB.EQ.1 ) THEN
@	  WRITE( 6,120 ) ( BUFFER(II), II=1,NCHAR)
¤120	  FORMAT( 20Z3 )
	ELSE
l	  DO 210 II=1,NCHAR
Ð	      CBUF(3*II-2) = ' '
4	    IF( BUFFER(II).LE.' ' ) THEN
˜	      CBUF(3*II-1)='0' + BUFFER(II)/16
ü	      CBUF(3*II) ='0' + ('0F'X .AND.  BUFFER(II))
`		      IF( CBUF(3*II).GT.'9' ) CBUF(3*II)= CBUF(3*II)+7
Ä		    ELSE
(
	      CBUF(3*II-1) = ' '
Œ
	      CBUF(3*II)= BUFFER(II)
ð
	    ENDIF
T210	  CONTINUE
¸	  CALL CHROBF( IPLCHN, 3*NCHAR, CBUF )
	  CALL SYS$WAITFR(%VAL(1))
€	ENDIF
äC.
H	RETURN
¬		end