C*******************************************************************
C
C	INCLUDE BLOCK FOR LABELS CHANGE PROGRAM
C
C		BY JEFF BURCH, 23 MAY 1985
C
C********************************************************************
	CHARACTER*30 NAME,COMP,ADDRSS,CITY*20,STATE*2, ANSWER*1,
     &		FILE,OLD_NAME, CHOICE*1, OLD_CHOICE*1

	INTEGER*4 ZIP,CODE,ICODE, OLD_CODE, CUR_MON, CUR_DAY, CUR_YEAR,
     &		IOPTION, OLD_OPTION
	INTEGER*2 MON,YEAR,IREC, ICNT, REC, OLD_REC

	LOGICAL REPAINT

	COMMON // NAME,COMP,ADDRSS,CITY,STATE, ANSWER,FILE,OLD_NAME, 
     &		ZIP,CODE,ICODE, OLD_CODE, CUR_MON, CUR_DAY, 
     &		CUR_YEAR, IOPTION, OLD_OPTION, MON,YEAR,IREC, ICNT, REC,
     &		REPAINT, CHOICE, OLD_CHOICE, OLD_REC