	PARAMETER DIR_RECORD_LENGTH = (100/4)*4

	COMMON /BULL_DIR/ MSG_BTIM,MSG_NUM,DESCRIP,FROM,LENGTH,EX_BTIM
     &	,SYSTEM,BLOCK,HEADER_BTIM,HEADER_NUM,NEWEST_EXBTIM,NEWEST_MSGBTIM
     &	,NBULL,NBLOCK,SHUTDOWN,SHUTDOWN_BTIM,NEMPTY
     &	,DATE,TIME,EXDATE,EXTIME,NEWEST_EXDATE,NEWEST_EXTIME
     &  ,NEWEST_DATE,NEWEST_TIME,SHUTDOWN_DATE,SHUTDOWN_TIME
	CHARACTER*56 DESCRIP
	CHARACTER*12 FROM
	LOGICAL SYSTEM

	CHARACTER*12 DATE,EXDATE,NEWEST_EXDATE,NEWEST_DATE,SHUTDOWN_DATE
	CHARACTER*12 TIME,EXTIME,NEWEST_EXTIME,NEWEST_TIME,SHUTDOWN_TIME

	INTEGER MSG_BTIM(2),EX_BTIM(2),HEADER_BTIM(2)
	INTEGER NEWEST_EXBTIM(2),NEWEST_MSGBTIM(2),SHUTDOWN_BTIM(2)

	CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY
	EQUIVALENCE (MSG_BTIM,BULLDIR_ENTRY)

	CHARACTER*52 BULLDIR_HEADER
	EQUIVALENCE (HEADER_BTIM,BULLDIR_HEADER)

	DATA HEADER_BTIM/0,0/,HEADER_NUM/0/

	CHARACTER MSG_KEY*8

	EQUIVALENCE (MSG_BTIM,MSG_KEY)

	PARAMETER LINE_LENGTH=255
	PARAMETER INPUT_LENGTH=256

	COMMON /INPUT_BUFFER/ INPUT
	CHARACTER INPUT*(INPUT_LENGTH)

	PARAMETER NEWSDIR_RECORD_LENGTH = 180 

	COMMON /NEWS_DIR/ NEWS_MSG_KEY,NEWS_MSG_BTIM_KEY,NEWS_MSGID
     &  ,NEWS_EX_BTIM_KEY,NEWS_POST_BTIM,NEWS_BLOCK,NEWS_LENGTH
     &  ,NEWS_DESCRIP,NEWS_FROM
     &  ,NEWS_HEADER_KEY,NEWS_NEWEST_MSG_BTIM_KEY
     &  ,NEWS_HEADER_FOLDER,NEWS_NEWEST_EX_BTIM_KEY,NEWS_HEADER_NUM
     &	,NEWS_NBULL
	CHARACTER*64 NEWS_MSGID
	CHARACTER*56 NEWS_DESCRIP
	CHARACTER*12 NEWS_FROM
	CHARACTER*8 NEWS_MSG_KEY,NEWS_HEADER_KEY

	CHARACTER*12 NEWS_MSG_BTIM_KEY,NEWS_EX_BTIM_KEY
	CHARACTER*12 NEWS_NEWEST_MSG_BTIM_KEY,NEWS_NEWEST_EX_BTIM_KEY
	INTEGER NEWS_POST_BTIM(2)

	CHARACTER*(NEWSDIR_RECORD_LENGTH) NEWSDIR_ENTRY
	EQUIVALENCE (NEWS_MSG_KEY,NEWSDIR_ENTRY)

	CHARACTER*64 NEWS_HEADER_FOLDER
	CHARACTER*(NEWSDIR_RECORD_LENGTH) NEWSDIR_HEADER
	EQUIVALENCE (NEWS_HEADER_KEY,NEWSDIR_HEADER)
