:
#
#	wide2fax - Convert wide ASCII text files to FAX format
#
for i in $*
do
	cat <<-\EOF
	.de he		\" Header leave .3i space
	'sp .3i
	..
	.de fo		\" Footer skips to next page
	'bp
	..
	.ps 8		\" Text size is 8 points
	.vs 8.8p	\" Vertical spacing is 8.8 points
	.ll 10i		\" Line length is 10 inches
	.pl 8.3i	\" Page length is 8.3 inches
	.wh 0 he	\" Set trap to invoke header
	.wh -.1i fo	\" Set trap to invoke footer
	.po .5i		\" half inch margins
	.in 0		\" No additional indent
	.ft CW		\" Constant width font
	.nf		\" No-fill mode
	EOF
	# Use newform and sed to fix tabs and blackslashes
	newform -i $i | sed 's/\\/\\e/'
done | jetroff -Tfax -l1
