	.even
print:
	sys	intr; setiflag		/intercept DEL's
	jsr	r5,mesg
	<\n\n3\0>
	.even
	mov	$"dd,bline
	jsr	r5,sstatus
	jsr	r5,tab
	30.
	jsr	r5,mesg
	<4JOB \0>
	.even
	mov	$"nu,bline
	jsr	r5,sstatus
	jsr	r5,tab
	64.
	mov	$"c1,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\n\0>
	.even
	mov	$"ti,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\nAuthor(s): \0>
	.even
	mov	$"a1,bline
	jsr	r5,sstatus
	jsr	r5,tab
	58.
	jsr	r5,mesg
	<Origin(s): \0>
	.even
	mov	$"o1,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\0>
	.even
	jsr	r5,tab
	11.
	mov	$"a2,bline
	jsr	r5,sstatus
	jsr	r5,tab
	69.
	mov	$"o2,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\0>
	.even
	jsr	r5,tab
	11.
	mov	$"a3,bline
	jsr	r5,sstatus
	jsr	r5,tab
	69.
	mov	$"o3,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\0>
	.even
	jsr	r5,tab
	11.
	mov	$"a4,bline
	jsr	r5,sstatus
	jsr	r5,tab
	69.
	mov	$"o4,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\nAttorney  : \0>
	.even
	mov	$"at,bline
	jsr	r5,sstatus
	jsr	r5,tab
	57.
	jsr	r5,mesg
	<Opened: \0>
	.even
	mov	$"od,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\nSupervisor: \0>
	.even
	mov	$"su,bline
	jsr	r5,sstatus
	jsr	r5,tab
	30.
	jsr	r5,mesg
	<Location: \0>
	.even
	mov	$"lo,bline
	jsr	r5,sstatus
	jsr	r5,tab
	57.
	jsr	r5,mesg
	<Closed: \0>
	.even
	mov	$"cd,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\nDirector  : \0>
	.even
	mov	$"di,bline
	jsr	r5,sstatus
	jsr	r5,tab
	57.
	jsr	r5,mesg
	<DCODE : \0>
	.even
	mov	$"dc,bline
	jsr	r5,sstatus
	jsr	r5,mesg
	<\n\n\0>
	.even
	sys	intr; 0			/disable DEL's
	rts	r5


tab:
	mov	(r5)+,mq
	mov	$8.,div
	mov	mq,0f
	mov	ac,1f
	mov	r1,1f
	mov	$1,r0
	sys	write; 2f; 1
	mov	$1,r0
	sys	write; tabs; 0: 0
	mov	$1,r0
	sys	write; blanks; 1: 0
	rts	r5
2:
	.byte	15				/return char
tabs:
	<										>
