NOMORETAB = .FALSE.
C
	ISTAT=SYS$ASSIGN('TT',TT_CHAN,,)
	IF (.NOT. ISTAT) CALL LIB$SIGNAL( %VAL(ISTAT))
	CALL ENABLE_CTRLC
	ESC = 27
	ISTRT = 0
	IDEV = 1
C
	MYPRVTIME = 0
	CALL ASOC_EF
C
	WRITE(6,500) MYCURTIME, (CAD_DATA(II), II=1,16)
500	FORMAT(1X,I7,16(2X,F5.1))
	MYPRVTIME = MYCURTIME
C
	DO WHILE ((MYCURTIME .EQ. MYPRVTIME) .AND. (.NOT. NOMORETAB))
C
		IF (IDEV .LT. 5) CALL WAITFLAG( IDEV )
C
		CALL POPAD( IDEV, AD_DATA, MYCURTIME )
C
		ISTAT = LSP$FORMAT_TRANSLATE_ADC( AD_DATA, CAD_DATA, 16 )
C
		IF (MYCURTIME .NE. MYPRVTIME) THEN
			WRITE(6,500) MYCURTIME, (CAD_DATA(II), II=1,16)
		ENDIF
C
		MYPRVTIME = MYCURTIME
C
	ENDDO
C
	IF (IDEV .LT. 5) THEN
		CALL DASOC_EF
	ELSE
		CALL AD_CLOSE_FILE( IDEV )
	ENDIF
C
9000	CONTINUE
C
	END

	SUBROUTINE	ENABLE_CTRLC
C
	INTEGER*4	TT_CHAN, SYS$QIOW
	LOGICAL		NOMORETAB
	COMMON	/TRAP_CTRLC/		TT_CHAN, NOMORETAB
C
	INCLUDE	'($IODEF)'
	EXTERNAL	CTRLC_ROUT
C
	ISTAT=SYS$QIOW( ,%VAL(TT_CHAN), 
	1	%VAL(IO$_SETMODE .OR. IO$M_CTRLCAST),
	1	,,,CTRLC_ROUT,,%VAL(3),,,)
	IF (.NOT. ISTAT) CALL LIB$SIGNAL( %VAL(ISTAT))
C
	RETURN
	END

	SUBROUTINE	CTRLC_ROUT
C
	INTEGER*4	TT_CHAN, SYS$QIOW
	LOGICAL		NOMORETAB
	COMMON	/TRAP_CTRLC/		TT_CHAN, NOMORETAB
C
	NOMORETAB = .TRUE.
C
	RETURN
	END


<FF>
	SUBROUTINE GETDATA(DATA)
C
	INTEGER*2	AD_DATA(16)
	REAL*4		CAD_DATA(16)
	INTEGER*4	MYCURTIME
C
	COMMON /AD_DATA/ AD_DATA,CAD_DATA,MYCURTIME
C
	CALL POPAD( IDEV, AD_DATA, MYCURTIME)
	ISTAT = LSP$FORMAT_TRANSLATE_ADC( AD_DATA, CAD_DATA, 16 )
C
	RETURN
	END