INCLUDE		'($IODEF)'
	INCLUDE		'($SSDEF)'
	INCLUDE		'($PSLDEF)'

	CHARACTER*17	 MBX_NAME	/ 'PASSWORDADMIN.DAT'/
	CHARACTER*15	 CUSTOMER

	INTEGER*4	LIB$GET_EF
	INTEGER*4	LIB$FREE_EF
	INTEGER*4	SYS$ASSIGN
	INTEGER*4	SYS$CREMBX
	INTEGER*4	SYS$DASSGN
	INTEGER*4	SYS$DELMBX
	INTEGER*4	SYS$PURGWS
	INTEGER*4	SYS$QIOW
	INTEGER*4	SYS$SYNCH
	INTEGER*4	SYS$WAITFR

	INTEGER		STATUS
	INTEGER		READ_CODE
	INTEGER		WRITE_CODE

	INTEGER*2	MBX_CHAN
	INTEGER*2	CUS_CHAN

	INTEGER*4	RANGE(2)	/0,'7FFFFFFF'X/
	INTEGER*4	MESSAGE_LEN
	INTEGER*4	LEN
	INTEGER*4	ACMODE
	INTEGER*4	AST_FLAG
	INTEGER*4	MBX_PROT

	CHARACTER*80	MBX_MESSAGE

	STRUCTURE /STATUS_BLOCK/		!---------------
	INTEGER*2	IOSTAT, MSG_LEN		! IO Status Block
	INTEGER*4	READER_PID		!
	END STRUCTURE				!
	RECORD /STATUS_BLOCK/ IOSTATUS		!---------------

	COMMON	/MBX_DATA/	MBX_CHAN,
	2			MBX_MESSAGE,
	2			MBX_NAME,
	2			IOSTAT,
	2			LEN,
	2			STATUS,
	2			READ_CODE,
	2			MSG_LEN,
	2			READER_PID,
	2			IOSTATUS,
	2			ACMODE,
	2			CUSTOMER
	INTEGER*4	ARG_VECTOR(0:2)
	INTEGER*4	SYS_STATUS
	INTEGER*4	CHAN
	INTEGER*4	TERM_TYPE
	INTEGER*4	TERM_TABLE_ADDR
	INTEGER*4	RET_LEN
	INTEGER*4	EVENT_FLAG

	EXTERNAL	SMG$K_SET_CURSOR_ABS
	EXTERNAL	SMG$K_ERASE_WHOLE_DISPLAY
	EXTERNAL	SMG$K_HOME
	EXTERNAL	SMG$K_ERASE_TO_END_LINE
	EXTERNAL	SMG$K_ERASE_WHOLE_LINE

	CHARACTER*20	DATA_BUFFER
	COMMON /SMGBUF/	DATA_BUFFER,CHAN,TERM_TYPE,
	2		TERM_TABLE_ADDR