d 	FUNCTION JJWRD( line, ipos, atom )
È c.		Return the next "word" in the input "line"
,c.
c.	The LINE is searched for the next "word". A word is defined
ôc. as a set of characters from the first printing character to
Xc. the next blank.
¼c.
 c.out.	JJWRD	The length of the "word"
„c.inp.	LINE	The Input line
èc.i/o.	IPOS	The position of the first character to start from, and
Lc.		then the position of the blank after the "word"
°c.out.	ATOM	The string containing the next "word"
c.
xc. -end.of.info-
Üc.
@	CHARACTER*(*) LINE, ATOM
¤C.
	JJWRD = 0
l	ATOM = ' '
Ð	DO 210 IPOS=IPOS,LEN(LINE)
4	  IF( LINE(IPOS:IPOS).GT.' ' ) GOTO 215
˜210	CONTINUE
ü	GOTO 9000
`	C.	....
Ä	215	CONTINUE
(
	DO 220 JPOS=IPOS,LEN(LINE)
Œ
	  IF( LINE(JPOS:JPOS).LE.' ') GOTO 225
ð
220	CONTINUE
T	GOTO 9000
¸C.	....
225	CONTINUE
€	IF(JPOS.EQ.IPOS) GOTO 9000
ä	JJWRD = JPOS-IPOS
H	ATOM = LINE(IPOS:JPOS-1)
¬	IPOS = JPOS
C.
t9000	CONTINUE
Ø	RETURN
<		end