C
C  PURPOSE IS TO DECLARE GLOBAL COMMON VARIABLES FOR PASSING
C  INFORMATION BETWEEN THE VARIOUS SUBROUTINES USED IN THE 
C  CALENDAR PROGRAM.  
C
C--------------------------------------------------------------
C
C **  RECORD STRUCTURE DEFINITION FOR PASSING TERMINAL CONTROL
C **  ESCAPE SEQUENCES BETWEEN ROUTINES.
C
	STRUCTURE /TERM_ESC/
	    UNION
	      MAP
		CHARACTER*20	TRM_BOT, TRM_PRT, TRM_BLD, TRM_NBD,
     &				TRM_CLR, TRM_MID, TRM_PRN, TRM_NPR
		INTEGER*4	LEN_MID, LEN_PRN, LEN_NPR, LEN_CLR, 
     &				LEN_BOT, LEN_PRT, LEN_BLD, LEN_NBD
		LOGICAL		SCRNCLR, VT100_OPT
	      END MAP
	    END UNION
	END STRUCTURE
C
C **  TERMINAL CONTROL RECORD VARIABLE.
C
	RECORD /TERM_ESC/ TRMNL
C
C--------------------------------------------------------------
C
C **  DEFINE THE STRUCTURE OF THE CALENDER RECORD.
C
C **  RECORD PRIMARY KEY IS THE DATE TIME THE FILE CONTAINING
C **  THE FULL INFORMATION WAS CREATED.  THE KEY IS COMPRISED
C **  OF THE DAY NUMBER, A TWO CHARACTER MONTH DESIGNATOR, A
C **  TWO DIGIT YEAR DESIGNATOR, A 4 DIGIT 24 HOUR TIME, AND
C **  A 2 CHARACTER CALENDAR ID FIELD.  THE 2 CHARACTER CALENDAR
C **  ID FIELD IS ALSO INDEXED IN THE DIRECTORY FILE.
C
C **  THE SECOND FIELD TELLS THE MONTH AND YEAR OF THE EVENT.
C **  THIS IS FOR INTERNAL QUICK INFORMATION.  IT IS DIMENSIONED
C **  FOR TWO ELEMENTS, FIRST FOR START MONTH, SECOND FOR END MONTH.
C
C **  THE THIRD FIELD IS THE OWNER OF THE EVENT ENTRY.
C
C **  THE FOURTH FIELD TELLS THE TITLE OF THE EVENT.  IT IS TWO
C **  STRINGS OF 66 CHARACTERS EACH.
C
C **  THE FIFTH FIELD IS A SPARE FIELD OF 68 CHARACTERS.
C **  POSSIBLY FOR USE IN FUTURE EXPANSION OF TITLE FIELD.
C
C **  THE SIXTH FIELD IS THE BINARY START TIME OF THE EVENT, IN
C **  CASE WE NEED MORE INFORMATION ABOUT WHEN THE EVENT STARTS.
C
C **  THE LAST FIELD IS THE BINARY END TIME OF THE EVENT, IN
C **  CASE WE NEED MORE INFORMATION ABOUT WHEN THE EVENT ENDS.
C
	STRUCTURE /CAL_LIST/
	   UNION
	     MAP
		CHARACTER*12  DAT_TIME          !ENT_TIME
		CHARACTER*8   DAT_PERIOD(2)	!ENT_PERIOD
		CHARACTER*12  DAT_OWNER		!ENT_OWNER
		CHARACTER*66  DAT_DSCRPT(2)	!ENT_DSCRPT
		CHARACTER*68  DAT_SPARE		!SPARE SPACE
		INTEGER*4     STRT_DATE(2)	!BEGINING EVENT DATE
		INTEGER*4     STOP_DATE(2)	!ENDING EVENT DATE
	     END MAP
	   END UNION
	END STRUCTURE
C
C **  DEFINE THE RECORD
C
	RECORD /CAL_LIST/ ENT_LIST
C
C--------------------------------------------------------------
C
C
	INTEGER*4	LNMENU, CCNT(13), IYEAR, INT_PNT, TYEAR(2), TLEN, CUR_MON,
     &			YR_OUT(13), CAL_NUM, ICAL, KMON, KCAL, JMON, KPNT, MTOT,
     &			LEN_WHO, IMON, LCAL, LEN_FUNC, CAL_TOTS(15), NUM_EVT
C
	CHARACTER	OPER_PROMPT*40, ENT_OWNER(3000)*12,
     &			INT_CODE(15)*2, CAL_CODE(15)*10, CAL_DESCRIPT(15)*80,
     &			ENT_DATE(3000,2)*11, ENT_PERIOD(3000)*8, MONTH(24)*3,
     &			ENT_DSCRPT(3000,3)*66, ENT_TIME(3000)*12, IN_CAL*20,
     &			TIM_STR(2)*23, DTE_TME*17, CUR_MONTH*3, CUR_YEAR*4, CMON*2,
     &			TMP_MON(2)*3, TMP_YEAR*4, WHOIAM*12, TFILE*64, SYR*4,
     &			MENU_FUNC*16, WRT_FILE*64, USRID*64
C
	LOGICAL		OK_SYS, OK_DONE, DEL_DONE, EDIT_OPT, EDT_OPT, MAI_OPT,
     &			QUIT_LIFE, MENU_ABORT, FM_DEL, TPU_OPT, PRT_OPT, WRT_OPT,
     &			DIS_OPT, PST_OPT, DEL_OPT
C
C--------------------------------------------------------------
C
C  **  SETS UP THE COMMON AREAS USED BY THE FUNCTIONS OF THE RMAIL PROGRAM.
C
	COMMON /CL_LOGS/	OK_SYS, QUIT_LIFE, MENU_ABORT, PRT_OPT, WRT_OPT,
     &				FM_DEL, OK_DONE, DEL_DONE, MAI_OPT, DIS_OPT,
     &				DEL_OPT, PST_OPT
C
	COMMON /FIND_IN/	ENT_OWNER, INT_CODE, CAL_CODE, CAL_DESCRIPT, 
     &				MONTH, ENT_DSCRPT, ENT_TIME, ENT_DATE, ENT_PERIOD, 
     &				IN_CAL, TIM_STR, DTE_TME, CUR_MON, CUR_MONTH, 
     &				TMP_MON, TMP_YEAR, CUR_YEAR, TFILE, ENT_LIST,
     &				ICAL, KMON, KCAL, IYEAR, INT_PNT, TYEAR, TLEN,
     &				YR_OUT, CAL_NUM, JMON, KPNT, WHOIAM, LEN_WHO,
     &				IMON, CCNT, SYR, LCAL, CMON, LEN_FUNC, MENU_FUNC,
     &				CAL_TOTS, NUM_EVT, WRT_FILE, USRID, MTOT
C
	COMMON /TERM_CTRL/	EDIT_OPT, TPU_OPT, EDT_OPT, TRMNL
C
C--------------------------------------------------------------
C