|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T u
Length: 1090 (0x442) Types: TextFile Names: »usr/spool/lp/model/dqp10 «
└─⟦307897ef0⟧ Bits:30004042/core1.imd SW95705I 386/ix Multi-user Release 1.2 └─⟦this⟧ »usr/spool/lp/model/dqp10 «
#ident "@(#)lp:model/dqp10 1.2" # lp interface for DQP-10 Matrix Printer # # x="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" stty -parenb -parodd 9600 cs8 cread clocal ixon 0<&1 stty -ignbrk -brkint -ignpar -parmrk -inpck -istrip 0<&1 stty -inlcr -igncr -iuclc -ixany 0<&1 stty opost -ocrnl onlcr -onlret tab3 0<&1 echo "\033N" echo "\033]" id=$1 name=$2 title=$3 copies=$4 shift; shift; shift; shift; shift files="$*" echo "\014\c" echo "\n\n\n\n\n\n\n\n\n\n" echo "$x\n$x\n$x\n$x\n\n\n\n\n" banner "$name" echo "\n" echo "Request id: $id" date echo "\n" if [ -n "$title" ] then banner $title fi echo "\n\n\n\n\n" echo "$x\n$x\n$x\n$x\n\n\n\n\n" echo "\014\c" i=1 while [ $i -le $copies ] do for file in $files do case $file in *.g|*.n|*.mm) stty -opost 0<&1 ;; esac cat "$file" 2>&1 stty opost -ocrnl onlcr -onlret tab3 0<&1 echo "\033N" echo "\033]" echo "\014\c" done i=`expr $i + 1` done echo "\n\n\n\n\n\n\n\n\n\n" echo "$x\n$x\n$x\n$x\n\n\n\n\n" banner "END" echo "$x\n$x\n$x\n$x\n\n\n\n\n" echo "\014\c" exit 0