10	SUB MASETDW	! enable mailbox ast			&
			! unsolicited write attention		&

20	! Ruth E. Reebel					&
	! Copyright (c) 1982 by					&
	!	Amherst Associates Incorporated			&
	!	210 Old Farm Road				&
	!	Amherst, Massachusetts  01002			&

120	EXTERNAL LONG FUNCTION SYS$QIOW				&
\	EXTERNAL LONG IO$_SETMODE,IO$M_WRTATTN,MADWAST		&
\	DECLARE LONG FUNMOD,SYS_STATUS			&
\	FUNMOD = LOC(IO$_SETMODE) OR LOC(IO$M_WRTATTN)		&

130	COMMON (A1) MBX.CH%,LOG.CH%,TTY.CH%,CTL.FLG%,BAS.FOR%	&

1000	SYS_STATUS=SYS$QIOW(,MBX.CH% BY VALUE,FUNMOD BY VALUE, &
		,,,MADWAST,,,,,)	&
\	CALL SYS$EXIT(SYS_STATUS BY VALUE) IF (SYS_STATUS AND 1%)=0%	&
!	if detached proc writes to MB, processing will go to MADWAST	&

32767	SUBEND