#
set mesg_a = "Please mount necessary tape and strike <RET> when ready."
set mesg_b = "Please specify destination of listing,(i.e. a filename or lpr):"
echo -n $mesg_b' '
get_dest:
set dest = ($<)
if ($#dest == 0) then 
	goto get_dest
endif
echo $mesg_a	
set dummy = ($<)
if ($dest == lpr) then 
	restore t | print
	exit
endif
restore t > $dest
exit
