|
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 - download
Length: 905 (0x389)
Types: TextFile
Notes: UNIX file
Names: »tekstkon«
└─⟦6279acb2c⟧ Bits:30004169/disk8.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦6279acb2c⟧ UNIX Filesystem
└─⟦this⟧ »up/new/usr/UAP/bin/tekstkon«
# DO NOT EDIT THIS FILE WHIT "vi" or any other high-order-bit-
# stripping editor
#
# tekstkon - transform and adjust effects from UNIPLEX ver. 5 to
# ver. 6
#
# 88.05.25 RC COMPUTER/esk
: '
V..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T..T.H
'
USAGE='
Usage: tekstkon file [file ...]
'
# Collect file name(s) in FILES
FILES=
for ARG do
case "$ARG" in
*) test -w $ARG || exec echo "Can't write to file: $ARG$USAGE"
FILES="$FILES$ARG "
;;
esac
done
case "$FILES" in
'') exec echo "No file(s) specified$USAGE";;
esac
TMP=/tmp/reeff.$$
for F in $FILES; do
echo "Transforming \"$F\" "
sed '
/@@$/{'"
n
y/AFGHIJKLMNOPQRSXYZ[/BEJKGGHHFILLHVF««««/
}
" $F >$TMP
tr "\173\174\175\133\134\135\55\43\377\372\253" \
"\221\233\206\222\235\217\255\365\240\55\133" \
< $TMP > $F
rm -f $TMP
done