DataMuseum.dk

top - metrics - download

    Length: 1499 (0x5db)
    Types: TextFile
    Notes: Uncompressed file

└─⟦5a9f1bdbd⟧ Bits:30004698 RC900 Environment Rel. 2.0 (5.25 inch)
└─⟦5a9f1bdbd⟧ UNIX Filesystem
    └─⟦42f323ad7⟧ »RCENV.ISC/new/usr/spool/lp/model/rcibmpro.Z« 
└─⟦de58d8f44⟧ Bits:30004699 RC900 Environment Rel. 2.0 (3.5 inch)
└─⟦de58d8f44⟧ UNIX Filesystem
    └─⟦42f323ad7⟧ »RCENV.ISC/new/usr/spool/lp/model/rcibmpro.Z« 
        └─⟦this⟧ 

TextFile

#ident @(#)rcibmpro.sh	1.1, RC International, 91/09/03

# 89/08/07 FK
# lp interface for rc60[789] text line printer
#

# Since the IBM proprinter can't reset we have to do it the hard way

echo '\033I\012\c'	# lq, 12 cpi, non proportional spacing
echo '\033k2\c'		# font: courier
echo '\033F\033H\c'	# end emphasized & enhanced
echo '\033%H\c'		# end italics
echo '\033[@\004\000\000\000\001\001\c'	# std width, std hight, 1 line sp.
echo '\033-0\c'		# end underline
echo '\033_0\c'		# end overscore
echo '\033T\c'		# end superscript/subscript
echo '\033 0\c'		# 0 charcter spacing
#echo '\033W0\c'	# Select character set (check with JOBJ)
echo '\033X\001\377\c'	# set margins(L R): 1 & 255
echo '\033R\c'		# reset tabs & v-tabs
echo '\00332\03302\c'	# reset varialble line spacing

Header=Yes
for i in $5
do
	case "$i" in
	nobanner | h | H)	Header=No;;
	*)	;;
	esac
done
if [ $Header = Yes ]; then
	echo "\n\n\n\n"
	banner "$2" "`uname -n`"
	echo "\n"
	user=`grep "^$2:" /etc/passwd | line | cut -d: -f5`
	if [ -n "$user" ]
	then
		echo "User: $user\n"
	else
		echo "\n"
	fi
	echo "Request id: $1    Printer: `basename $0`\n"
	date
	echo "\n"
	if [ -n "$3" ]
	then
		banner $3
	fi
	echo "\014\c"
fi
copies=$4
shift; shift; shift; shift; shift
files="$*"
i=1
while [ $i -le $copies ]
do
	for file in $files
	do
		cat "$file" 2>&1
		[ "`tail -1c $file`" = `echo "\014\c"` ] && continue
		[ "`tail -2c $file`" = `echo "\014\015\c"` ] && continue
		echo "\014\c"
	done
	i=`expr $i + 1`
done	#FILT-CMD