$	was_verify = 'f$verify(0)'
$! VWKIT.COM
$!
$! If you are running only on VMS, you should use VMS backup instead.
$!
$! Make a vax kit (dos format) on one (2400 foot) tape
$!
$	device := "''p1'"
$	density := "''p2'"
$	if f$mode() .nes. "INTERACTIVE" then goto gotparameters
$ 	if device .eqs. "" then inquire device "Magtape device <mf0:>"
$ 	if device .eqs. "" then device := "mf0:"
$ again:
$	if density .eqs. "" then inquire density "Density (800/1600) <1600>"
$	if density .eqs. "" then density := "1600"
$	if density .eqs. "800" .or. density .eqs. "1600" -
	    then goto gotparameters
$	write sys$error "Illegal density ''density', try again"
$	density := ""
$	goto again
$!
$ gotparameters:
$	if device .eqs. "" then device := "mf0:"
$	if density .eqs. "" then density := "800"
$!
$	set verify
$! You have mounted a tape on drive 'device'
$! It will be zero'd. and written at 'density' bits per inch.
$!
$! Note that [5,2] does not correspond to the RSTS/E contents
$!
$! You are in [.command]
$!
$ set verify
$!
$ mcr flx  'device'/ze/do/dns:'density'
$!
$ set default [-.command]
$ mcr flx  'device'[5,1]/do/dns:'density'=readme.1ST/rs/rw
$ mcr flx  'device'[5,1]/do/dns:'density'=kit.doc/rs/-rw
$ mcr flx  'device'[5,1]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.pml]
$ mcr flx  'device'[5,2]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.comp]
$ mcr flx  'device'[5,3]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.otscom]
$ mcr flx  'device'[5,4]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.otsio]
$ mcr flx  'device'[5,5]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.rstslb]
$ mcr flx  'device'[5,6]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.rsxlib]
$ mcr flx  'device'[5,7]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.tools]
$ mcr flx  'device'[6,1]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.misc]
$ mcr flx  'device'[6,2]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.cross]
$ mcr flx  'device'[6,3]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.lex]
$ mcr flx  'device'[6,4]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.libc]
$ mcr flx  'device'[6,5]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.useful]
$ mcr flx  'device'[6,6]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.vaxlib]
$ mcr flx  'device'[6,7]/do/dns:'density'=*.*/rs/-rw
$!
$ set default [-.command]
$ set nover
$!
$! Kit built
$!
$ if 'was_verify' then set verify