# 
#####Message Texts#######
set mesg1 = "Please specify files/directories to be archived: "
set mesg2 = "Create a new tape, or append to current tape(n or a):"
set mesg3 = "That option is not currently available."
set mesg4 = "Press return <RET> key to continue."
set mesg5 = "Please specify blocking factor (default is 20):"
set mesg6 = "Verbose mode(y or n):"
set mesg7 = "Please mount necessary tape and strike <RET> when ready."
#########################
echo $mesg1
getobject:
set object = ($<)
if ($#object == 0) then
	goto getobject
endif
echo $mesg2
set append = ($<)
if ($append == 'a') then
	set flag = u	
	echo $mesg3
	echo ' '
	echo -n $mesg4
	set ready = ($<)
	exit(0)
else
	set flag = c
endif
echo $mesg5
set block = ($<)
if ($#block == 0) then 
	set block = 20
endif
echo $mesg6
set verb = ($<)
if ($verb != n) then
	set verb = v
else
	set verb = ' '
endif 
echo $mesg7
set ready = ($<)
#tar b$flag$verb $block $object
