MAIME.MAC;2/AU=MAIME.VGN
\
-3,3
	.IDENT	/06MAY80/
-39
; JGD20		J. DOWNWARD	06-MAY-80	USER MAY NOT WRITE TO MAILBAG
;						NOT ON HIS/HER UIC. PREVENT WRITING
;						MAILFILES OFF OF OWNER'S UIC.
-102,,/; JGD20/
	.EVEN
NOUIC:	.ASCII	<12>/MAIL -- NO UIC WITH YOUR MAILBAG, PLEASE/<15>
NOUICL=.-NOUIC
-123,,/; JGD20/
; EXTERNAL GLOBALS
	.GLOBL	UICFLG
;
-236,,/; JGD20/
	TST	UICFLG			; WAS UIC SPECIFIED	
	BEQ	71$			; IF EQ, NO, ALL OK	
	TTYOUT	#NOUIC,#NOUICL		; WARN USER OF ERROR	
	BR	74$			; AND ASK AGAIN		

/