$!
$! Command file to build a bootable the Versatec model 121/122
$! controller diagnostic onto a bootable diskette or cassette.
$!
$!
$!	LANGUAGE:  VAX-11 DCL
$!
$!	OPERATING SYSTEM:  VAX/VMS
$!
$!	ORDER NUMBER:  12X-9XV
$!
$!	PART NUMBER:  000-025809-XXX REV. G  MAY, 1985
$!
$!	PRODUCT: VAX-11 DIAGNOSTIC,
$!	PRODUCT: VAX/VMS DRIVER, SYMBIONT, AND OUTPUT PACKAGE
$!
$!	VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
$!	A XEROX COMPANY
$!
$!	Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
$!
$!	"NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
$!	INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
$!	LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
$!	PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
$!	REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
$!	THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
$!	VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
$!	AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
$!	THE COPYRIGHT ACT OF 1976."
$!
$!
$ TYPE SYS$INPUT
        *** VERSATEC CREATE DIAGNOSTIC PROCEDURE FOR VAX COMPUTERS ***
This distribution media contains the required files to create a
floppy or cassette containing the VAX model 121/122 controller
diagnostic.
$!
$! Connect to console
$!
MCR SYSGEN
CONNECT CONSOLE
EXIT
$ WRITE SYS$OUTPUT " "
$L10:
$ INQUIRE MEDIA "Enter media to create (DISKETTE or CASSETTE)"
$ IF MEDIA .EQS. "DISKETTE" THEN GOTO L20
$ IF MEDIA .EQS. "CASSETTE" THEN GOTO L20
$ GOTO L10
$L20:
$ DISM CS1:
$ WRITE SYS$OUTPUT "The console ''MEDIA' has been dismounted. Please"
$ WRITE SYS$OUTPUT "replace it with the ''MEDIA' you wish to create the"
$ INQUIRE ANS "diagnostic on.  Press return when ready to continue"
$ MOUNT CS1:/FOR
$ EXCHANGE INIT CS1:
$ EXCHANGE COPY DIAG.EXE CS1:
$ IF MEDIA .EQS. "DISKETTE" THEN GOTO L30
$ MCR WRITEBOOT
CS1:DIAG.EXE
1
200
$ EXCHANGE COPY 730BOO.CMD CS1:
$ EXCHANGE COPY 730BOO.CMD CS1:DEFBOO.CMD
$ GOTO L40
$L30:
$ EXCHANGE COPY 780BOO.CMD CS1:
$ EXCHANGE COPY 780BOO.CMD CS1:DEFBOO.CMD
$L40:
$ DISMOUNT CS1:
$ WRITE SYS$OUTPUT "Model 121/122 Diagnostic cassette created"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "Please remove the diagnostic and remount the"
$ INQUIRE ANS "console volume.  Press return when ready to continue"
$ MOUNT/SYS/FOR/PROT=(SYS:RWLP) CS1: CONSOLE
$ EXIT