$!
$! Make a full archive on vms
$! This may need editing for your system
$! Usage:
$!	makarc toplevel out
$! Where:
$!	toplevel	is the top level of the DECUS-C directory structure
$!	out		designates a directory where the archives are written
$!
$ if "''p1'" .eqs. "" then inquire p1 "Top level of DECUSC <here>"
$ if "''p1'" .eqs. "" then p1 := 'f$logical("SYS$DISK")''f$directory()'
$ if "''p2'" .eqs. "" then inquire p2 "Output written to   <here>"
$ if "''p2'" .eqs. "" then p2 := 'f$logical("SYS$DISK")''f$directory()'
$ if "''ar'" .eqs. "" then ar := $bin:ar
$ old_dir := 'f$logical("SYS$DISK")''f$directory()'
$ was_verify = 'f$verify(1)'
$ set default 'p1'
$ assign 'p2' out
$! The ar parameters are:
$!	-c	Create new archive -- faster than merging
$!	-i	Insert
$!	-v	Verbose
$!	-z	Log on xxx.log
$ ar -civz	command.log	out:command.arc	[.command]*.*
$ ar -civz	comp.log	out:comp.arc	[.comp]*.*
$ ar -civz	cross.log	out:cross.arc	[.cross]*.*
$ ar -civz	lex.log		out:lex.arc	[.lex]*.*
$ ar -civz	misc.log	out:misc.arc	[.misc]*.*
$ ar -civz	otscom.log	out:otscom.arc	[.otscom]*.*
$ ar -civz	otsio.log	out:otsio.arc	[.otsio]*.*
$ ar -civz	rstslb.log	out:rstslb.arc	[.rstslb]*.*
$ ar -civz	rsxlib.log	out:rsxlib.arc	[.rsxlib]*.*
$ ar -civz	tools.log	out:tools.arc	[.tools]*.*
$ ar -civz	useful.log	out:useful.arc	[.useful]*.*
$ ar -civz	vaxlib.log	out:vaxlib.arc	[.vaxlib]*.*
$ set default 'old_dir'
$ 'f$verify('was_verify')'