#
#####Message Texts#######
set mesg1 = "List to standard output, or file or lpr(s or f): "
set mesg2 = "Please specify name of file to send listing to (lpr = printer): "
set mesg3a = "Please mount necessary tape and strike <RET> when ready."
set mesg3b = "press return <RET> key to continue."
#########################
echo $mesg1
set dest = ($<)
if ($dest == f) then
	echo $mesg2
	getspec:
	set spec = ($<)
	if ($#spec == 0) then
		goto getspec
	endif
	echo $mesg3a
	set ready = ($<)
	if (($spec == lpr)|($spec == printer)) then
		tar tv | print
		exit
	endif
	tar tv > $spec
else
	echo $mesg3a
	set ready = ($<)
	tar tv | more -d
	echo ' '
	echo -n $mesg3b
	set ready = ($<)
endif
