Jerry Lawson
jlawson AT thehartford DOT com
________________________Forward Header________________________
# This is a shell archive. Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by Openmail for HP9000 <openmail@tuleosm1> on Thu Feb 20 08:53:16 1997
#
# This archive contains:
# 01ukp7t
#
# Error checking via wc(1) will be performed.
LANG=""; export LANG
PATH=/bin:/usr/bin:$PATH; export PATH
rm -f /tmp/uud$$
(echo "begin 666 /tmp/uud$$\n#;VL*n#6%@x\n \nend" | uudecode) >/dev/null 2>&1
if [ X"`cat /tmp/uud$$ 2>&1`" = Xok ]
then
unpacker=uudecode
else
echo Compiling unpacker for non-ascii files
pwd=`pwd`; cd /tmp
cat >unpack$$.c <<'EOF'
#include <stdio.h>
#define C (*p++ - ' ' & 077)
main()
{
int n;
char buf[128], *p, a,b;
scanf("begin %o ", &n);
gets(buf);
if (freopen(buf, "w", stdout) == NULL) {
perror(buf);
exit(1);
}
while (gets(p=buf) && (n=C)) {
while (n>0) {
a = C;
if (n-- > 0) putchar(a << 2 | (b=C) >> 4);
if (n-- > 0) putchar(b << 4 | (a=C) >> 2);
if (n-- > 0) putchar(a << 6 | C);
}
}
exit(0);
}
EOF
cc -o unpack$$ unpack$$.c
rm unpack$$.c
cd $pwd
unpacker=/tmp/unpack$$
fi
rm -f /tmp/uud$$
echo x - 01ukp7t '[non-ascii]'
$unpacker <<'@eof'
begin 660 01ukp7t
M4F5C96EV960Z(&9R;VT@8V]R<&UX,#$@*&-O<G!M># Q+G1D8RYA;6]C;RYCX
M;VTI(&)Y('1U;&5O<VTQ('=I=&@@4TU44 T*"2@Q+C,W+C$P.2XR,"\Q-BXRX
M*2!I9"!!03 Y,S,R.#@V,SL@5&AU+" R,"!&96(@,3DY-R P.#HR-SHT,R MX
M,#8P, T*4F5C96EV960Z(&9R;VT@:6YT97)L;V-K+F%M;V-O+F-O;2 H<&]RX
M=&%L*2!B>2!C;W)P;7@P,2 H-2XP+U--22TT+C I#0H):60@04$P-S4X-3L@X
M5&AU+" R,"!&96(@,3DY-R P.#HR,3HP-R K,#8P, T*4F5C96EV960Z(&9RX
M;VT@=FTN;6%R:7-T+F5D=2!B>2!P;W)T86PN86UO8V\N8V]M('=I=&@@4TU4X
M4"!I9"!!03$S-S@U#0H@("A);G1E<DQO8VL@4TU44"!'871E=V%Y(#,N,"D[X
M(%1H=2P@,C @1F5B(#$Y.3<@,#@Z,C8Z,S0@+3 V,# -"E)E8V5I=F5D.B!FX
M<F]M(%9-+DU!4DE35"Y%1%4@8GD@5DTN34%225-4+D5$52 H24)-(%9-(%--X
M5% @5C)2,RD-"B @('=I=&@@0E--5% @:60@-S T,CL@5&AU+" R,"!&96(@X
M.3<@,#DZ,3(Z,C<@15-4#0I296-E:79E9#H@9G)O;2!632Y-05))4U0N1415X
M("A.2D4@;W)I9VEN($Q)4U1315)60$U!4DE35"D@8GD@5DTN34%225-4+D5$X
M52 H3$UA:6P@5C$N,F(O,2XX8BD@=VET:"!"4TU44"!I9" P,#DR.R!4:'4LX
M(#(P($9E8B Q.3DW(# Y.C$R.C(U("TP-3 P#0I296-E:79E9#H@9G)O;2!6X
M32Y-05))4U0N1415(&)Y(%9-+DU!4DE35"Y%1%4@*$Q)4U1315)6(')E;&5AX
M<V4@,2XX8RD@=VET:"!.2D4-"B @(" @(" @("!I9" Y,#(S(&9O<B!!1%--X
M+4Q 5DTN34%225-4+D5$53L@5&AU+" R,"!&96(@,3DY-R P.3HQ,CHR,R MX
M,#4P, T*4F5C96EV960Z(&9R;VT@34%225-4("A.2D4@;W)I9VEN(%--5%! X
M34%225-4*2!B>2!632Y-05))4U0N1415("A,36%I; T*(" @(" @(" @(%8QX
M+C)B+S$N.&(I('=I=&@@0E--5% @:60@,# W.#L@5&AU+" R,"!&96(@,3DYX
M-R P.3HQ,CHR,B M,#4P, T*4F5C96EV960Z(&9R;VT@:6YT97)L;V-K+FETX
M=&AA<G1F;W)D+F-O;2!B>2!632Y-05))4U0N1415("A)0DT@5DT@4TU44"!6X
M,E(S*0T*(" @(" @(" @('=I=&@@5$-0.R!4:'4L(#(P($9E8B Y-R P.3HQX
M,CHR,2!%4U0-"E)E8V5I=F5D.B!B>2!I;G1E<FQO8VLN:71T:&%R=&9O<F0NX
M8V]M(&ED($%!,#,S,S$@*$EN=&5R3&]C:R!33510($=A=&5W87D@,RXP#0H@X
M(" @(" @(" @9F]R($%$4TTM3$!632Y-05))4U0N1415*3L@5&AU+" R,"!&X
M96(@,3DY-R P.3HQ-#HR-2 M,#4P, T*6#0P,"U/<FEG:6YA=&]R.B!J;&%WX
M<V]N0&AI9VUX+FET=&AA<G1F;W)D+F-O;0T*6#0P,"U296-I<&EE;G1S.B!!X
M1%--+4Q 5DTN34%225-4+D5$50T*6#0P,"U-=',M261E;G1I9FEE<CH@6R]!X
M1$U$/4E.5$523D54+T,]55,O.S P,3(Y,# P,#$S-#4S,C8P,# P,#1=#0I8X
M-# P+4-O;G1E;G0M5'EP93H@4#(M,3DX." H,C(I#0I0<FEO<FET>3H@57)GX
M96YT#0I-97-S86=E+4ED.B @/# P,3(Y,# P,#$S-#4S,C8P,# P,#0J0$U(X
M4SX-"D1A=&4Z(" @(" @(" @5&AU+" R,"!&96(@,3DY-R P.3HR-CHT." MX
M,#4P, T*4F5P;'DM5&\Z(")!1%--.B!$:7-T(%-T;W(@36%N86=E<B(@/$%$X
M4TTM3$!632Y-05))4U0N1415/@T*4V5N9&5R.B B041333H@1&ES="!3=&]RX
M($UA;F%G97(B(#Q!1%--+4Q 5DTN34%225-4+D5$53X-"D9R;VTZ($IE<G)YX
M($QA=W-O;B \:FQA=W-O;D!42$5(05)41D]21"Y#3TT^#0I3=6)J96-T.B @X
M(" @($YO9&4@86-C97-S#0I4;SH@041332U,0%9-+DU!4DE35"Y%1%4-"D-OX
4;G1E;G0M3&5N9W1H.B R-#,T#0H@ X
X
end
@eof
set `wc -lwc <01ukp7t`
if test $1$2$3 != 302071775
then
echo ERROR: wc results of 01ukp7t are $* should be 30 207 1775
fi
chmod 660 01ukp7t
rm -f /tmp/unpack$$
exit 0
|
