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

⟦fb72aaa38⟧ TextFile

    Length: 814 (0x32e)
    Types: TextFile
    Notes: Uncompressed file

Derivation

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

TextFile

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

# lp interface for dumb text line printer
#

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