.TITLE	PRTLA	PRINT SPOOL TO LA36
	.IDENT	/SPL.LA/
B:	.ASCII	/QUEUE /
C:	.BLKB	80.
END:	.ASCIZ	%/DE/IN/LA%<15>
	.EVEN
RCVBUF:	.BLKW	15.
PMCR:	.BYTE	79.,3
	80.
	B
	.MCALL	DIR$,RCVX$S
	.MCALL	EXIT$S
S:
	RCVX$S	,#RCVBUF		;GET A MESSAGE
	BCS	E
	MOV	#C,R0			;WHERE TO PUT IT
	MOV	#RCVBUF+4,R5		;POINT AT START
	MOV	#3,R4
1$:	MOV	(R5)+,R1
	CALL	$C5TA			;CONVERT TO ASCII
	SOB	R4,1$
	MOVB	#'.,(R0)+
	MOV	(R5)+,R1
	CALL	$C5TA
	MOVB	#';,(R0)+
	MOV	(R5)+,R1
	CLR	R2
	CALL	$CBOMG
	MOV	#END,R1
11$:	MOVB	(R1)+,(R0)+
	BNE	11$
	MOVB	#15,-(R0)
	DIR$	#PMCR
	BR	S
E:	EXIT$S
	.END	S