d 	subroutine wrtchr( ix, iy, logstr, nchar )
È c.		Move to IX, IY, and output a number of characters.
,c.
c. 0 <= IX <= 780, 0 <= IY <= 1000
ôc.
Xc.	The characters are contained in an array, not a VAX CHARACTER
¼c. variable, and the maximum number, NCHAR, may be given or not.
 c.
„c. see INFO TEK for information about all plotting routines
èc.
Lc.-end.of.info-
°c.
		CALL JJARGS( NUMARG )
x		IF( NUMARG.EQ.1 ) THEN
Ü		  CALL JJPANY( 200, IX )
@		ELSE IF( NUMARG.EQ.2 ) THEN
¤		  CALL JJPANY( IY, IX )
		ELSE
l		  CALL JJPANY( 0, -1, IX/780.0, IY/780.0 )
Ð		  IF( NUMARG.EQ.3 ) THEN
4		    CALL JJPANY( 200, LOGSTR )
˜		  ELSE
ü		    CALL JJPANY( NCHAR, LOGSTR )
`			  ENDIF
Ä			ENDIF
(
		RETURN
Œ
		end