! In order to run the MESMAN package LOGIN must be modified.
	! This file can be appended to LOGIN to preform the needed
	! changes

	! This file contains a routine to send a intra job message
	! to MESMAN informing the program that a user has loged in.

5210	I$=SYS(CHR$(0%))+SYS(CHR$(2%))
	\ CLOSE 1%,2%
	\ PRINT
	\ GOTO 31000 UNLESS N1%
31000 ON ERROR GOTO 31020
	\ I$=SYS(CHR$(6%)+CHR$(-21%))
	\ A%=0%
	\ I$=SYS(CHR$(6%)+CHR$(18%)+CHR$(-1%)+CHR$(0%)+
	MID(SYS(CHR$(6%)+CHR$(-10%)+'MESMAN'),7%,4%)+CHR$(1%)+
	MID(SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)),2%,1%)+CHR$(N%=0%))
	! SEND MESAGE TO 'MESMAN'

31010 Q$=CHR$(9%)
	\ GOTO 32700
	! EXIT TO MONITOR WITH READY MESSAGE

31020 Q$=CHR$(9%)
	\ RESUME 32700
	! ERROR IF MESMAN NOT RUNNING