#! /bin/csh -f
# Copyright 1985, Massacusetts Institute of Technology.
set prntr=(-Pln03)
set flags=() noglob
unset dv
unsetenv dv
set dv=$DISPLAY
top:
	if ($#argv > 0) then
		switch ($argv[1])

		case *\:*:
			set dv=$argv[1]
			shift argv
			goto top

		case -P?*:
			set prntr = $argv[1]
			shift argv
			goto top

		case -*:
			set flags = ($flags $argv[1])
			shift argv
			goto top

		endsw
	endif
xwd $dv | xpr $flags | lpr $prntr