d 	function JJGET( line )
È c.		Get a line from the term, or ^files...
,c.
c.out.	JJGET:	0=EOF or ^Z on primary file
ôc.		+level=Data input
Xc.out.	LINE:	The input line from the file...
¼c.
 c.	^Filename causes a read of the next level file: Filename
„c.	EOF or ^Z on the next level file causes a pop of file
èc.	8 next level files are supported. (units 92,93...)
Lc.
°c.call	JJINFS( Prompt, Default )
c.
xc.	Sets a prompt or files of type TT:, and a default file spec.
Üc.
@c.-end.of.info-
¤c.
	character*(*) line, prompt, default
l	character*80 fnam
Ð	character*40 flevel(10)
4	integer ilin(10)
˜	data flevel(1)/'TT:'/
ü	character*40 filpro, fildef
`		data filpro/'_GET_'/,fildef/'.'/
Ä	41	format( 132a )
(
	data level/1/
Œ
c===
ð
c.
T	if( inital.eq.0 ) then
¸	  inital = 1
	  call jjcmd( line )
€	  JJGET = 0
ä	  if( line.ne.' ' ) goto 400
H	endif
¬c.
100	continue
t	JJGET = 0
Øc.
<	if(  flevel(level).eq.'TT:' ) then
 	  type 41, '$',('.',ii=1,level),filpro(1:jjlen(filpro)),' '
	endif
h	if( level.le.1 ) then
Ì	  read(5,41,end=9000) line
0	  ilin(level) = ilin(level)+1
”400	  continue
ø	  if( line(1:3).eq.'^Z' .or. line(1:3).eq.'^z' ) goto 9000
\	  JJGET = level
À	else
$	  read(level+90,41,end=1200) line
ˆ	  ilin(level) = ilin(level)+1
ì	  if( line(1:3).eq.'^Z' .or. line(1:3).eq.'^z' ) goto 1200
P	  JJGET = level
´	endif
c.
|500	continue
à	if( line(1:1).eq.'^' ) then
D	  ipos = 2
¨	  call jjwrd( line, ipos, fnam )
	  flevel(level+1) = fnam
p	  call jjupp(flevel(level+1) )
Ô	  ipos = index( fnam, '.' )
8	  if( ipos.eq.0 ) fnam(jjlen(fnam)+1:) = fildef
œ	  open( unit=level+91,name=fnam(1:),type='old',err=1100 )
 	  level = level+1
d	  ilin(level)=0
È	  goto 100
,	endif
c.
ô	goto 9000
Xc.	......
¼c.
 1100	continue
„	type 41,' ',('*',ii=1,level),fnam(1:jjlen(fnam)),' Doesn''t Exist'
è	goto 100
Lc.	......
°c.
1200	continue
x	close( unit=level+90 )
Ü	level = level-1
@	goto 100
¤c.
 9000	continue
l 	return
Ð c.	......
4!c.
˜!c... Return level, name, line#
ü!c.
`"	entry JJINFN( line, nline )
Ä"	jjinfn = level
(#	line = flevel(level)
Œ#	nline = ilin(level)
ð#	return
T$c.
¸$c... Set the prompt and default
%c.
€%	entry JJINFS( prompt, default )
ä%	filpro = prompt
H&	fildef = default
¬&	return
'c.
t'		end