$! VRKIT.COM
$!
$! Copy the C distribution kit to VMS, all on one tape.
$!
$! You have mounted a tape on drive 'device'
$! Your current directory is, for example, dba3:[csupport.decusc.command].
$! You have created the following subdirectories:
$!	.command	Command files and documentation
$!	.comp		Compiler source
$!	.otscom		Common (no i/o) run-time library
$!	.otsio		I/O run-time library
$!	.rstslb		RSTS/E specific library source
$!	.rsxlib		RSX-11M specific library source
$!	.tools		C source for general-purpose programs
$!	.misc		Various junk
$!	.cross		Cross-assemblers
$!	.lex		Lexical analyser
$!	.libc		Library in C
$!	.useful		Useful subroutines
$!	.vaxlib		VMS interface library
$!
$! Note: only documentation is copied from [5,2].
$!
$!
$	device := "''p1'"
$	if f$mode() .nes. "INTERACTIVE" then goto gotparameters
$ 	if device .eqs. "" then inquire device "Magtape device <mf0:>"
$ gotparameters:
$	if device .eqs. "" then device := "mf0:"
$ set verify
$!
$ set default [-.command]
$ on error then continue
$ mcr flx sy:='device'[5,1]*.*/do/rw
$ on error then exit
$ purge *.*
$!
$ set default [-.pml]
$ on error then continue
$ mcr flx sy:='device'[5,2]*.*/do/-rw
$ on error then exit
$ purge *.*
$ set default [.command]
$!
$ set default [-.comp]
$ on error then continue
$ mcr flx sy:='device'[5,3]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.otscom]
$ on error then continue
$ mcr flx sy:='device'[5,4]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.otsio]
$ on error then continue
$ mcr flx sy:='device'[5,5]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.rstslb]
$ on error then continue
$ mcr flx sy:='device'[5,6]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.rsxlib]
$ on error then continue
$ mcr flx sy:='device'[5,7]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$! First part done, copy header files to c:
$!
$ set default [-]
$ copy [.command]*.h *.*
$ purge *.*
$ set default [.command]
$!
$ set default [-.tools]
$ on error then continue
$ mcr flx sy:='device'[6,1]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.misc]
$ on error then continue
$ mcr flx sy:='device'[6,2]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.cross]
$ on error then continue
$ mcr flx sy:='device'[6,3]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.lex]
$ on error then continue
$ mcr flx sy:='device'[6,4]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.libc]
$ on error then continue
$ mcr flx sy:='device'[6,5]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.useful]
$ on error then continue
$ mcr flx sy:='device'[6,6]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set default [-.vaxlib]
$ on error then continue
$ mcr flx sy:='device'[6,7]*.*/do/-rw
$ on error then exit
$ purge *.*
$!
$ set nover
$!
$! Kit built
$!