.;
.;----------------------------------------------------------------------------
.;
.; CMD-name:	IOX
.;
.; Purpose:	Testing of magtape or disks via command-file.
.;
.; Author:	Jan H. Belgraver
.;
.; Date:	23-FEB-83
.;
.; Version:	2.3	20-JAN-86
.;
.; Modified by:	JHB		14-FEB-84	JB01	V1.1
.;		JHB		26-OCT-84	JB02	V1.2
.;		Reset error log counts for magtape.
.;
.;		Jan H. Belgraver	6-MAY-85	JB03	V2.0
.;		With on-line generated command-file.
.;
.;		Jan H. Belgraver	14-AUG-85	JB04	V2.1
.;		Default buffer size 2048.
.;
.;		Jan H. Belgraver	18-SEP-85	JB05	V2.2
.;		1. Continuation default answer.
.;		2. Don't wait for rewind operation.
.;		3. Ring bell just before question.
.;
.;		Jan H. Belgraver	20-JAN-86	JB06	V2.3
.;		Set SUMMARYTIME to 10 minutes.
.;----------------------------------------------------------------------------
.;

.enable	substitution
.disable lowercase
.sets	DENS	"1600"
.sets	RETRY	"NO"
.setn	BUFSIZ	2048.							.;JB04
.;
.enable	quiet								.;JB03
.ifnins	IOX	INS $IOX
	ALL	MM:
.LOOP:
	.disable	quiet						.;JB03
	.ASK [<TRUE>]	FLAG	Density 800 [N] or 1600 [Y]	
	.IFF	FLAG	.SETS	DENS	"800"
;
	.ASK [<FALSE>]	FLAG	Retry No [N] or Yes [Y]		
	.IFT	FLAG	.SETS	RETRY	"YES"				.;JB03
;
	.ASKN [::BUFSIZ]	BUFSIZ	Enter buffer size 		
;
	.open	iox.tst
	.data DENSITY MM: 'DENS'
	.data BUFFERSIZE 'BUFSIZ'.
	.data ERRORLIMIT 100.
	.data LOGFILE Y
	.data PATTERN 12.
	.data RECORDS 0.
	.data RETRIES 'RETRY'
	.data RUNTIME 0.
	.data SELECT MM:
	.data SUMMARYTIME 10.
	.data PARAMETERLIST
	.data START
	.data EXIT
	.CLOSE
	.enable	quiet							.;JB03
.SPAWN:	IOX	@IOX.TST						! JB03
	.XQT	RUN	$REWIND
	ELI	MM:/RE		! Reset error log error counts
	PIP	IOX.TST;*/DE/NM
	BEL	1
	.disable quiet							.;JB03
	.ASK [<TRUE>]	NEXT	Another tape to check
	.IFT	NEXT	.GOTO	LOOP
	.enable	quiet							.;JB03
	PIP	IOX.LOG;*/LI
	REM	IOX
	DEA	MM:
.EXIT
