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 = 140 COMMON /NEWS_DIR/ NEWS_MSG_NUM,NEWS_MSG_BTIM_KEY & ,NEWS_EX_BTIM_KEY,NEWS_MSGID,NEWS_POST_KEY,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*36 NEWS_MSGID CHARACTER*56 NEWS_DESCRIP CHARACTER*12 NEWS_FROM CHARACTER*8 NEWS_POST_KEY CHARACTER*8 NEWS_MSG_BTIM_KEY,NEWS_EX_BTIM_KEY CHARACTER*8 NEWS_NEWEST_MSG_BTIM_KEY,NEWS_NEWEST_EX_BTIM_KEY INTEGER NEWS_POST_BTIM(2) CHARACTER*(NEWSDIR_RECORD_LENGTH) NEWSDIR_ENTRY EQUIVALENCE (NEWS_MSG_NUM,NEWSDIR_ENTRY) CHARACTER*64 NEWS_HEADER_FOLDER CHARACTER*(NEWSDIR_RECORD_LENGTH) NEWSDIR_HEADER EQUIVALENCE (NEWS_HEADER_KEY,NEWSDIR_HEADER)