C	PROGRAM ADTAPE (DIGITIZED READING VERSION)
	COMMON NDEV,N1,N2,N3,N4,NBLK,NMAX,NLEN
	COMMON NEW,NSAM,NDIS,NADC,NADCS
	COMMON NSPB,NCAL,JC,IC,JB,IB
	COMMON NBI,NII,NBF,NIF,IFIL
	COMMON IBUF,JBUF,KBUF
	DIMENSION NDEV(2),NADCS(8)
	DIMENSION IFIL(97),IBUF(256),JBUF(256),KBUF(256)
C	NAME=X.AD
	N1=1536
	N2=0
	N3=0
	N4=68
	NCAL=600
C
	NSAM=6
	NADC=6
	NADCS(1)=8
	NADCS(2)=9
	NADCS(3)=10
	NADCS(4)=11
	NADCS(5)=12
	NADCS(6)=13
	NDEV=1
	CALL SETU
C
C====================================
C
C	SUBROUTINE BOE
C
C	NLEN: NEXT BLOCK TO FILL
C
C*** LSENS(1): BEGIN TAPING
C*** LSENS(2): ABORT TRIAL
C
C*** RELAY(2): READY SIGNAL TO LAB
C
SENTRY BOE
SBOE, BLOCK 2
8	CONTINUE
	CALL RFILE(2,NBLK+NLEN,KBUF)
	CALL RELAY(2,1)
10	CONTINUE
	CALL DISP9(-200,100,'BEGIN')
	CALL DFILE
C	IF(KRB=375)GOTO 15
SKSF
SJMP \11
SKRB
STAD (-375
SSNA CLA
SJMP \15
11	IF(LSENS(1))12,12,10
12	NLEN=2
	CALL TAPER
	CONTINUE
15	CALL RELAY(2,0)
	CALL MODE
	END
$