$JOB
$!	XTESTB - Test Sequential Binary I/O
$
$!	XTESTB: Copy BINARY.DAT to TESTB.DAT
$RUN xtestb
$DAT
BINARY.DAT
TESTB.DAT
$EOD
$DIRECTORY binary.dat
$DIRECTORY testb.dat
$
$!	XTESTB: Copy a concatenation of binary files
$
$RUN xtestb
$DAT
BINARY.DAT+BINARY.DAT
TESTB.TWO
$EOD
$DIRECTORY binary.dat,testb.two
$
$!	XTESTB: Testing complete
$
$EOJ