LOGICAL*1	ESC
	INTEGER*2	AD_DATA(16)
	REAL*4		CAD_DATA(16)
	CHARACTER	AD_IN*4, DAT_FILE*64
	INTEGER*4	MYCURTIME, MYPRVTIME, ISTRT
C
	INTEGER*4	TT_CHAN, SYS$ASSIGN
	LOGICAL		NOMORETAB
	COMMON	/TRAP_CTRLC/		TT_CHAN, NOMORETAB
	COMMON  /AD_DATA/ 	AD_DATA,CAD_DATA,MYCURTIME