DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T u

⟦a33d2250c⟧ TextFile

    Length: 931 (0x3a3)
    Types: TextFile
    Names: »usr/spool/lp/model/rc640dp «

Derivation

└─⟦833723c12⟧ Bits:30004042/core5.imd SW95705I 386/ix Multi-user Release 1.2
    └─⟦this⟧ »usr/spool/lp/model/rc640dp « 

TextFile

#ident "@(#)lp:model/rc640dp	1.2"
# lp interface for rc640dp program line printer
#

# reset, lf->cr lf, 16 cpi,margin 4 ,duplex  , +-margin 4
echo '\033E\033&k2G\033(s16H\033&a4L\033&l1S\033&l180U\c'
# USACII
# echo '\033(0U\c'

Header=Yes
for i in $5
do
	case "$i" in
	h | H)	Header=No;;
	*)	;;
	esac
done
if [ $Header = Yes ]; then
	echo "\n\n\n\n"
	banner "$2"
	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
#		select front side
		echo "\033&a1G\033&a0G\c"
		cat "$file" 2>&1
# removed 7/3-88 FK
#		[ "`tail -1c $file`" = `echo "\014"` ] || echo "\014\c"
	done
	i=`expr $i + 1`
done
echo '\033E\c'
exit 0