.macro	Line	nrt, npro
	.if b npro 
	  gos	Lino	<nrt, #LiTe>
	.iff
	  gos	Lino	<nrt, npro>
	.endc
.endm


Proc	Lino	<ln,lt>

begin
	push	<r0, r1>
	Write	lt(r5)
	clr	r0
	mov	ln(r5), r1
	call	deco16
	call	pcrlf
	pop	<r1, r0>
	ret


PrtTre:	push	<r0, r1, r2, r3, r4>
	mov	Level, r3
	beq	999$
	mov	#Found, r4
10$:	mov	(r4)+, r1
	call	GetAdr
	mov	r1, r2
	mov	@r1, r1
	mov	#-10, r0
	call	deco16
	mov	#'", r0
	call	ttyout
	mov	r2, r1
	add	#rStr, r1
	call	strout
	call	ttyout
	call	pcrlf
	sob	r3, 10$
999$:	call	pcrlf
	pop	<r4, r3, r2, r1, r0>
	rts	pc