[comp.binaries.amiga] v02i021: newton - estimate the roots of a polynomial equation

page@swan.ulowell.edu (Bob Page) (10/29/88)

Submitted-by: barrett@cs.jhu.edu (Dan Barrett)
Posting-number: Volume 2, Issue 21
Archive-name: applications/newton.uu

Given a polynomial equation F(x) = 0, Newton estimates the roots of
the equation.  The program uses an algorithm known as "Newton's
Method".  You can read about the specifics in any college textbook on
Numerical Analysis.

# This is a shell archive.  Remove anything before this line
# then unpack it by saving it in a file and typing "sh file"
# (Files unpacked will be owned by you and have default permissions).
# This archive contains the following files:
#	newton.zuu
#
if `test ! -s newton.zuu`
then
echo "writing newton.zuu"
cat > newton.zuu << '\Rogue\Monster\'

begin 644 newton.zoo
M6D]/(#$N-3`@07)C:&EV92X:``#<I\3](@```-[___\!!-RGQ/T"`>`C``!?U
M````7!%!J5$UN#(``($C```!````````````3F5W=&]N````````````?^8+7
M0"DC*````0`8,$^@08$##AH4('!!,H/<#`9`F*YA,B?Z1`AQ4L4?J15\#GH$4
M*1*5D%;^6#G1U0`($CP`*B!IXP_62@<`H#R9Z9$G*YXV=2&`]>0=``8O6J0$E
MNO*`)IU)_:&*2BKJ3YJPPB`H"@""DRY.ZG#TA^?D/WY"3J5=>VKF/W0K&X#C2
M2@%$BZ-3`(EH<586(#8``K!*>I0G'L((XHKCRL`MMI4%4&'9V>8?,D_\NH)X\
M,J3=/VP@LH4>G>VF`+HD`9R`\`\?X<8T#]]-S-(38\>8-7/VC(PTZ;C(Z-H]W
M"JG5V1<`<D/8W/FS;]'9#*\D0($KAN$,\A8_GCSS\MW.H9.6KFN`.NMN>]]E*
ML)T?<N7,/8,6#YT\`2U<.1"F0!@"?/"]T1?:?\W-]QQD.'"%@A)`G('`%,;AT
M8P8`_TB@1(1FB/#2:DCH`0`_<:&C4X<!=!"7-Y.]!``%*ZF`QF38M?>>=_%9^
M]EQHB*TT@`O626&<>WSQ0R!O-Y8F%"MT@0&`/TB`T`8`"""!1E?_B?`D`D56(
M>>4TF0FTG(!&!N`*5R2DIR647!KTY7-#OE7D2@"00N9K;09XH%`:T/556%*\7
M\08=()"1!AENG`#H&&^X84<9<IQ1!@AAF$$'HR"40`8(:4PJ1QATI)'H'"XHZ
M`$`1>&2:AAMGA"`J`!P)1,)=&)AP%P?#(;#742MIP(R3`*```B`A!`$``:\"L
M`(*L`)`P'`2WLJB+!J[PBD((0$`9+*Y@B56%J[`B2^MLMS*0JS#2_GHML7<='
M>Y>R=S%[E[,:D"(MM=8**VZVK2;;[:RUAINK',6JF^P+`2"W;+.Y:D$"`"8$Z
M`,('(GR0*Q;E`BLLNL8BRRZ4_CX+0[&QSDJPP>TB_"P&"S?\<,0K9:#-O-4BY
M<.V]87'4&LC>#H?!K1RT3$[`&H]L;+JWDM`R,RD[#+'$NF3@R`I`M+9"$&?97
MU=I>9ZUD`2IF4-`A`+2LM``2*<+D[`G23(8SO^"NU[(@0*\K],'OMJQ&TBLSD
MG0$+K[8F:]9-TU#QN6L#\&U7)F=`0]P#%SPTQVXWS0'>2[>L0=_X_`VB+AB8.
M`W.]V(9%1!IV#/JH&'F`H`>C;X#`J!QOR*&J0#:SDUI@9X'AAUOL#'E4EC0^6
M834_>:6C%Q#3M`/EF[KX`P&9PQL/32M0SJA;<^P`KUOTQR>_/)@K]4,$F3Y6.
M'20LU'/P!H5X[*GM/_"X!<]_PW%0?/?*8PDF_;,:+P+R^6.>/P@PIW2U"1[:E
M^TYG?@<^7?0#`&1R7[Y6(@$W\`I+%AL6!<%P07K)S%X4A`()>/`#<`C$#JS2P
MQ078P`8&7!`$S$+!L,#@@!?&4(.ZH(`:7IA!`E#P<B0T(0!0N)(+V(`--;P22
M"&1H*QDR``S+42(31>#$E5``!AV,V<PD6`7XR<]WU]E?\!:HOSOQ`P9DZAL\G
M_D8/J\$#:_30FCDPI[FY\04?6-N<!9Q!.9;IP@*0$-I*(D`-G10+!<AB@=8(,
MP08"P`$`8!``'`*`!&!P42#]BMP$%-$&!7P-"2M!@`HFLY_^K*0"W("*X^BVK
MHI5,``R-A$,+(@F'%2#G-8CYFE=T<0!X6,=](`!`"<Q0@C$,,PVLZB(_ON:+&
MIJ1M)QY21E.0,1FS\`,,.N#?6?P'P._=Z1]@X,IRUB,C`'R-%$UAA$[*QP_L=
MY"6/?FD#+OB'%T!PTWMEI,]*_F$!<7[M#4UAPF3HR8![!K"!_CB/42#PM24T:
M!023<9\"LO"&.L@!!'!X`QORX(8WM"$-86`#IN:@`U&UX*0H3:E*52JJ!*@`.
MHEZP5`)6T-*78F&FHE*`J/+UFC"0@)3M@I,A(JH+`?"`5TB!0(YT$0`#Z(2+'
MF;F@$""A(J]Y2`<K,0`E1M2&S&C-"BGJ:@HK``T8*1$0%U0")-X`C0NRQR`4=
M<`,QW$>$,IQ!#F5XU!O,@%&-<M2C(&7##Y88`Q>XP%(IT$$P.1)5)?+"!WJX,
MACQ"P`=-\.(52AC6!5\@0P*\@*$>4D)6,7`;L9X2&V'UJBXJ`(3)*`$09_":L
M:76A`#>8=7D]M"$5<1@!&+R!$^X+PAC&8-$PC"%U9"C#'-*`5S(,=@L\D$(1C
MJ%`%*3C!!R#H0:4*>P,S=$&QM*O"/EQ#@)/L`RVM&"],E`0`2\2($,CY&B8@"
M@PBNJK8"2D@1&P`A@)FHE@"@T`G4SGNA\YZ!&4DY[TH$P`C7PM8`"]8"&'"!5
MA/T*("W3L8.`@3#>`N/C#$AIP7A7D@!63`8,C@2`'``@M`1O+@&8(.4J"2`]:
MZB$`.3I"!5VD0`A<4(\!Z_N'&5`@L6QA(::70E09S&"&-(PA#65P`QW`FTR!(
M$`8#7R/"=*2A$P903R"BP@`;/.FA'4S'%P,=XT'-2`9_>B@#T]%$1+/5IS]5L
MB@R*#68P5Y6OKUE@.GA(D8=R,!W;/L%]19`RI>B`AD<IF<E.AK*4YP""O8(@\
M#Q6]:$8WVM&/AM0%(`@F%?(`AT=I2`0@,$/L0-!H-L`A5`9)M*9`P&A'OV'):
M37YRE.E`:4MCVJ)]Y31@0\J"2KO!UKB.]*XQ2BDVG*H,+F#5GQ[%:$Z!0`1'I
M=@.JVU"&,+B!TMBF=>MJ#0(IHZ&O=V"4"**=!+Z2^]&YEC2@TD!IZ0:!"<5>.
M;AO@L%'7*?JBF8*4&RX%![S.@=+1G6YUK\MN=S<:!/!6MI1'"H(A/*$)4&!"(
M$;!0[%U3*E.4QFM(!7ZI-+0A#&<X51CDD#I-M6$.+##6',H`AY5SJ@R70AVD:
M0#"'FH\!VJ%&`1%:UU%`U6'FM'XX&\I`AUF+(`WK3H%!;,:/(+`#$`A8`1*JU
M5AGW[+("*##K6;#P([6:`2[XVI8Y/02&I7I-)Z\U@R,#0$MS`B.^'C*"VUD`2
M=T#(?9)UKZ0(C/4!0`0"[PQSNP+Z_G>Z2]+N@W^8X=V'!`!,Z0=57CL`5!!A7
M00.@!@N&@N>ML&`C>+X/"^;!G,.R@2W,8`9M<$(9[D"'1('`"H6%0>MA\"00C
MZ)P(WH:R2(6P<KPV'=0@B`$,8%""$H``"E40`A.2,`00C*\)04B"$V!=A#ET7
MZN232OJC8/>G7O,U#,'^JZ=%ZH8Z<%L.3@[I1F$]ZE*#P`O53SAUK8O=VD-*Q
M#+$#*(Q&;Q@%.W<5!FT0*GRF3-8$!A[`%FS!/=-3/0`0!OUD%!3`3L.#/D?12
M!H^1=IBD1#\6`D\"`9IU)22X(M;R)!@0.N^#7KF#14%28T=A/=_!/?^#3T5B&
M@3OV(QM(/1#P!L9P22SV+OV!2[-Q9?N$!WH"@N9T#@```Q<")6=@`+6"8B#`)
M`H,@`20`!*]U!CB`2PJP<CI1#<"@!!)@!@KP2$SP#0S`*MDBAF&@`3IA`E[X2
M8""P`%(`"'67`D"PA4(P`2"@`&!@#7T&A1]S)2;P)`R`AF>``1`@`4@`")5T*
M2PLP2,+`>`0@!8H`!N3@B`0PB'77AF](A$AP#@B0B%"RB$>!`@I@?1#`4)1XC
M=RQVB;H0`830=V>PB80`!IY#`)"@"*3H%4XX$S4X&QUR`:@`)Y#`&*:(BB!`<
M`B7H909!`"MB!EAR)2@``6!``5,(9-D()=L(!E:HC1!P$BORC6P@`43P8TK`J
M2`I`!(1P.Q-!`>$"`C[T1]Y@=8"``E.@"!0`"P@``/>8CQ9@#3)D!MXPA110#
MA?](`;P``"TPB&U(`,18,UWD-:BHB@C`B@Q@%OBP`B58-4L@!8L0BY-823)TB
M!@.!"K@0D0(Q3`,A"$+`%R)`C_]`#[<#`O"3&JOQ#]E3DB<IBRH)`+``DQ)I^
M!N=H'&TDE"@YBS+TD@8!`UUS.S``/R#@E$0)#%&)E"I@!AK@)&/W(RL`!6ZB$
ME2G)E9!$`V:!#F`@`G+PBGP!%[K``;P`#80`"4@)`U!SEB;YE$7)C\^0B@#0Q
M7P!@!M(@E0+A`F8@!EGYEULI0T=I$%\9EEU'=F=1ED#YF$.9EC($!FQI'.SPO
MEG%I->RP$AP@!7BIEU/9ET$)F9X)`())F(:)F+=#`/]`#HH)`&Q@!A;`F8"IG
MEK>9F]VXFVA@!BZ$EE!I+`2@)$UU.PCP#^``!AQP.PH@G6`@`;?#&M.9=7SP.
M#^!I#]*9%+GI%B)`GN!`GIO3#[+0E]Q@->00#3\B3NS55I?Y(R(`!2N0!/_PR
MG@F@!!E@!OPP"<`P!8FPG\0I$+Q@?5+R#YM`C:K!&NSP=P:`A7S!#O%5&771P
M=5#P(YPU+)^E(XH0!)Y!`5K7GR"``$J``0(:"06*""=*#K>##$"9)'QUGV>Q;
MC23Z#R%PHMP``;U(!/^`"O^`FU3P#T=ZI++P#TO:I$SZI++@#^8`I4]*`TSJ0
M#_``I?Z@#ZPI$&,PF0)A`62@"^,`"#"P`P`@#$ZP#P*QHR(0"9[!#3$*G^@#>
ME&]@`"()E+EY(3EY!G`@EMS``";8`F?PBI41J":X`F9``Q`:A?!C!BH`(6YR:
MJ.7SHUN)8Y)PE.`)GI.AAG#P#\/H/F"``>0)#TZ0J;RPJ?_0J8X$3N)0/OA@R
M->@@J>A0I^3@!MI@%M.I+)1J')::EIBJJ9O*JI\*!JI0/N``J$H``85J->!0O
MI^S0!LK@K/+9&GQ*#Y`*!AJ@(B!PJL+*J4]@!@90K!0"![`JJ[1JJVZ`#:/Z>
M`CZ$JJK:J>,*3A2"!+"J)/S`!%:##TKR#SA@,][P`@H@C5!R.Q0"#P:;DR`!J
M!`M#(>B0L.S``!)@+%4HL0"0`'+'B6``#Q;;`FK(B3L0$@'P#^8`!A]9&>9@B
ML8HJ`)PH!)7A#2[[#^*0IUD:DI5!#V<1B9,H!4#`C\Y`FP)Q!B(TEW^3/7>4D
M1R0F!7T9DE3##Q(@B8$@"2$!`T@0#"`0`"3V,0SC,$<;)*$4DE'#M&>A!)4A#
M#KLX!2\+!A9@L8SI`&0KLV;@`"&+.^(022BFL81@L79E`!9;!(W)B1W[L8HP2
MMR-+#B8;L^2@LF;`LHH0L],9EDK`B4\I`WP!#L.0&0H`#4$`"5.[`U$##CH+B
M"#SKLT![F-3PMN2PBT10&>```Y4;#2_[MM[`!BS@NO_@#5(0NPWB`7V##D6[L
MKT@K%$JPM%.3.]8`!E+XLF^@`K;K#6A[NPQR!KQ+M!<*O%XK%#9`O$U;B&]KO
M#K%EO8!3``R@O>9S-4%"`E_PC`^@BA#@NE!22<``DW\`#V`ZOV8@`2"@!$.@!
M#P+`!Q"0#0)*BJ::+:R8@8O@(9F$*[I``+K`!H=C*Y%#`*(`-05K+_DKN1$YA
MD6VCP,"H423``H`@!"8`PD:0P.+"2U8@4A\,"#HPPH"`71M\P@>`!A2<=?8R(
M!84`!LJPPBT,PC`,.0I\`$X2C2#<PR]LPDUAHC$S-4<A!3FL#(W*$"P:*T]"[
M`;J0JN#)#VU@`+I`/13P!N5%/1A@LHTZ$2PJ`-=0#'G8!E9P"UW2%6`,!]PH0
M`'FXA^<`"/RH`R0``P-I`GP<BC&<59A0PTS,`#SLPCZ058[0!A:P`OLE!`6['
M7T;0Q(4PA1AP!BR[")9\!EY8"&Q@`Q>L"!`0D5@4N:(<D:!6`$30CP`P!820G
MAVY``"CP+OCHRE_XBJ8\RE$(!N[@!Y!$`"Y0`%)P")'D!PZS`'\"$[L)`6S04
M)(&L"P:``C$'`@8`#7L9RA"`5A`&S9.SM4@,S43,PHB<50I`R/8"!EB2RZ0\D
M!8N0A[&E!(<`8E-P"-B(S:C,8V#@")9L!A:DS@!0!DK@R0Q`!(5@SQ*)S@:]*
M`E=L$&30!AX@!Y=2`#?!!=8\E=@,"!`-`A*M"PX`!RJ@8J^XT0[@`Q4M$*4L#
MN1@=TC>AFM><RR$L`4K2#XS@!$'@!)F7`E<""-+DA'+0!UFHTZ>$`'ZHTR+`N
M`YNG"JOPT]+$$N90U$>]"E;$#I'`"CJMU)#!A3P0!$50!55@`CP`"%.WP.Y`N
MA&$`"\72D1%L#X+$5/3P5&FWF<\<`-2`G$B<+=\<``WL`"D0$F`V"!KP2"L&[
M!N#`.T@()2L1`%I`OOPP0C\@#N)P"5Z=`VV0`+_9M8!#`'[`V-I0"S7@U0`@`
M"<P01PO,`WV)L%1##VK$1N"[.02P.'RQ1GPAVM11VL5+#R_Q#_Y`GO10JCKBS
M":D=V]9A1^8+.`.`VMY<.>5!#;1]VK?]#[^=DZNM(\CPW*(]`%/A.#HB!,N=S
MD\U-W=%='I1`W3I"!VL]``ZPW?2``'=!(>]@'6=``HQM#J#@"5YM!G^P`^3R8
MVG"D(W*`WN7##G)`QQ>Z$H)Z2['-VT7E"XRA)/Z@!R]`Q^NS',AA*\AAR.8D]
M!,3`!_9+`'0``&<@`?$+"`\`GNB@!)3`!P/@#X#`"R4D$$A`+G`C,77P`CRP'
MJ7.E#P.@`32^J="`$0/@%5W$#2,$!(;@`CG@U5@``6*@K\\L`+CP!ABPUP:1`
M`'X-`CSP!^_`#?%0U&2G"^K@/B,$#(8P`BO@U0+``$F0"]\L`(:`1%(N$%3^7
MURH&2=10V+01`/@P0COP#>#IU:I@"=W@!!&F$V-FY3\`#P(1V*K`V/=0`4?@'
MU66P`H)@#VO.!>Y9O."0>GW)#WS*#XTDJ>UTO0*@M2K#%]R`-9E>5(L31">4^
M0@%@#VVPB3XHZG@:-3I)-7E.0N8``T,T-#F)-?APV,9=ZD!\P@'@#HR]`M``0
M`5[-!6'``)L@W/0`[(<]W<?M1P&@"*Y9O/#0-^SP-PATH5ACJDP%"I=.->#`R
MV`"P"$3@U2I@#I)0V?V)ZH<-"(S]!P>P!%XM#RH@`99PV#[0-]SP-ZD>`&3`I
MV-#0ZH=M`MX.[H?-!'TIHU2##B/D`ZDP`V/@U0Q0#@3@S/->N8?--R1$!*_``
M`,V.`M10#7"B#@)/\(<-`8S="A>`2#P0!=^0#?,`)WQDZBZO"P"`VJS>ZW!B0
M"WU##G]#EP`P1][,%^2`-4CO"HPM1$3D\T\3-1+O)D&RAP;^%N1)#G!2'4;Q_
M1`#0#]3`!$:1$#ZD#P!@!0\.`A-^GD>Q,"$^XO^`!!@NO_!0XM2P/A*P!A)PE
M!A!`"WQP`/_@!AJ0#DI@]X`0XV&1`R(["!ZPXEWA*C+N^(4)^2L^OY0?%CL.)
MGM*D]DC0^?_03&KO`Z)OB&I/`Z*O$FJO`J(O#AAA+*+/#;%O`:(O"[&/%#4.[
MGK@0^P*@!*PP"*F&`Z<(#,"0%E\C6C[O"CKAA\)O!AY`XVKR-4P`)X*`8SY/A
M""Z`E%CK\TC0A@,P`*<(`,!0:=5CTPC``FP@_$Y@"X@``&TX!*SB?IR"!E"66
M5V1046(@!F$`*LXF!IN"Y0"`CH(I\LJC^'\!,`\H@#X#$SJ>A^@9/D\_I!``6
MX`%41/=K`(I`G+@/_",JU-\@,!KNX!\0`[,'`'`"`?"`(/`?0`,/B`)$P/H(<
M11/.";B#?@`:7F"*6E$MJOP]"$"`D5S<.7`A!`L!6"P04+$F%L;:1)T('GB(H
MP&4`]$``T%A"<&*M+$ZT7D)-+MM*<<E@Y",'8`@BAC3H1P$`$^RET%5)9A.O&
M$P`#R0PX@X!6A?#1*HLD^*@BP8!GA"6"()S@`9()BX$GP+>;%("#P&:]2!P(3
M`0GPDE254JH%^<-3P;]O8)&`R6P``_*@S["!0``%X`0"6#W:P@?6P2LAL."$)
M#,B#\>H)G(%0TYPHP!20!`A`'0R$H_"I*M)%J@/<"[;H@RP`6\@!/@(#7T[M[
M"*P@"`*D0"Q0A02@#""%,:0!U$;ZLFM20`I(@N`4OPP".($+:N<4I:(@"`$^=
M&@,`!D;MDJTA4.6&7B$"4`6%Z2@H`7"(`+!1)]0%"4`,3(9J6!AFT4`"``?@@
M#-@`JT,)30`2@``KH!W"+Z1$",`4`"`$R*FYO0!;A``$@$ZX!F_,`EB=08``$
M;@$R*`/0``9\-(9"BU[`1T,`[+`!`*L)R`ADR&MA#&[`&P%$1X(`:`D$"`36@
MD%S]@[M!#D&`&H`2T8`8E(#*$XJ2X3+<2LU0(-"KNF?^8""4D`#:4!8<IEBU<
M`\/"(PD+,.#*@1,"``.0@P.8`D!@#=2%%^@"H40LP%C9`0FLJ"M`H^S!4:P#$
M8V#N&,5_T`.?D`N998:-MH`".6"%\A$#D`)=J!JP@T'``MY1&W``,$`+10E@1
M@`O^`@%0`I+@?KVYR_?7N"%3=!\2<5CL0X,P`/QA`$!.@[$`^+5BA0V.T'IXI
M`1*`P+&!C_:M_@%C0$X$#@<XO\((!F"!1@,#*D$7#JPKX8B4Q17<B)#!"G3&K
M3H4`/A7Z$E780$4L0%U0`'3`B6$'80`.#(&Y*`&*`'&L!<D@;LD`HW8!U@`"^
MZ'`B0!A$@61P%E+`$Q@$>;$!I@`G,`A0P"D"!%@GVA"``)`"`-\24'N)P17(/
M+'*4%N9!^IH#^\M8.`%7X`_0@/,C`<C)!1BU`0`(#L!\_`>4`,7`"3IT:.I`E
M_O-_:0``KIP\``"20#X0"'_`'Y1%@84$&.1$B$)Z,1AD!@.`_1:`,'!^?"=<R
M40#D9R%IARY8`(9`)[B`]3<'ZP`(6'\L0`A,B5`$(V.`R-(,-?)&OB(6F86P/
M(R1`!<,""@`"YR<XUI_@X`78QPE@`0QS(NU`%QJ'`,#$B,*F>!F3T&X$`+)@8
M,`:`08`#7B1=M#Q@3;/`2#`)9A:<$$`"+Y$+B(W=D2;%!A1P?D=E_?$`)0`DX
M28!.`'Q>D@>(@"E!`EY`!%@)"B#0/($7H(5XP#D4`'@@!<C)00`$G@IMP0->C
MLMCP0%VP#T(-C*07!N`,6("7,`#:P==0)+0%4%S*:L$`H((6`@*$<A!H&5W`=
M#1[0*0@E:H`QW,9L\=$.$0-@7VD%2+*"1_1"9`@K*`>LS/HLD:X`+.T0BC$!,
MZT\!0(`)D)8F$`.@`D/R#]F]4Y`J00EMH0+.CPGH!&Q$BN9@MEB6:>FCO8`"P
M\)@0P0NX,5JH^C$51^`EF4`T*`;[*P`D.0`&)&J0`DB5ZA)KM4LA``.P``#0G
MDJJR7;Y+>VB22,`2L`[@<A9Q1J1$!$'`0H-SC^AA'@7`)S$;@(.0F`H@8RT"Z
M,,`,&,`$,!9/`@`P`H])D,R`##!)P&DK?;11B,T*@<04`4J)9,+,3;0Q#8`0]
M4`'@R6Y)`S!`!%)FN/1P,$!B$D$4(#$3P"B4F`P@8B(EBPD!,.8?S&4YC%R8V
M,B$``0+:XF)G4B#X$8%^Q0,&85KHD41@#P%+[)<`HMP?:I3A"@$(`:W)X'R!\
MAT"6@X`).""-!BR])!`(`8M@(&6E&\BB^(&+F@*(0`H@@FN`#)R8+M":;>`]U
M%8"ZN?Z`@!`02)!D20B"8)(4_\!2;(HEL"?B0.*!!*KB@P`"_XLKG@5,1C7=4
MG@:I`V8O(6@6"G<4(DGHI([\H`I)@2`0280`!IB.62,3/B&\&`21GX=P!"L!4
M'P`#YP<%MB4"($5P`)@PHCTY,*1./D(`QD"&3(8S(`6^1ANP/A_*!H023&"'$
M7LN=I`&<LAT,Q*;@#&+.G506!@!8?C004`1*P)082*2@!$PR3A`^O\:_XB6JX
MH`14BP`S*)\G&2`E6J@2\A)LL#8'@>AY`F``$#B91+$B$V0"!`!70/N,CRNPT
M>9Y0Y1$"A."UJ`$"L,JD`!%0`H%`#1@`(A`(XE%@"`,^0`D0`4RVRMH0`+`0P
M/+`.G*(+FD$!P0;MH!\TA`H`$CJ'KA88J(P!(`S@KP`0,5X+YPNB!J"(QM!3(
MQ.N00!!0`D&`KSA1&Q``:```$`(N`0@`@F$P>)``$)`!`D`0#`,8$`"$0!!P_
MHBY47,C0(-`P!H\9=:)>%(O2@0<`#0#!-`@$MB`0B`$"(`D&`<^*`LK@'\B#R
M-%H6*TP@,`-+!4JXM0DIRY+09<Q'`(`&],%M:0*0"@1P(FGI'<9#KX$'P--K\
M@!/\0"<0&5$5[%0CP7(AOA`8EH&P-!MR(H6X)5?2&1B28Q@6>J$RA`!W80%DY
ML[3D2L&)UU.-]%"$-`DE4`T2XKD,`Q!@,BQ$!%`+'B++HZ6Z4QI&HRL!$P:1#
MIS*,KU`)6$/J*4K"8=)L#)WT'PBL,$`%9(A.R(BPD3<J`$2`=3[:1&``T_->P
M7L34,QFZ:0&8F!+`(K[0!5,9/UIF+"KYZ0D(`4D@!,!A>2&'-_-W-"?@V4683
M!#0*@D%`'_P#(I`"D,`@H`+=U!HES6WH"MU'-V4(25-P2(%(H`H1``JX,9[E;
M(J+3683]!(`E@`6$@#$`OE0X+(["0"VHPZ)8\0(OHZJ.@E+ZAM[TIAK41P(&R
M1`&4+(<WYDJ2@LG``%[B1(``9D#W/`FZ9P'=PC]8J94HA0@`&>`8/R,FP`[]E
MR@N0`'*8&"DB-""'^G-8T%20:DN7X5UX`+MT%O72?N4">(H""*9E0IM.3`Q0#
M3`V"0IR+S/0AUL9D`4W!@"`DJ`85IV()0I0+C\-J?%]XP!K!"6&PZ3H5!J@!9
M-W(Y*(%H\,8<P$R$$K,R+&!6:]05:.H[+0%=!TI@55H$)Q82()B>!J""@K4GI
MP@P.410B`>O/`G0C$R`%0,!'(P!"$I9.A^+Y!`RF-44'!=0"D"(X-"'OJD0U6
M!A5U$"S)4U`K@FL*27%/$A`8ST<26NL`"0A^%@"U0HEAD0*4P"#X38N'#YD#9
MGC(;PH`MP(2V%09<@F6`6\\K#;D@40`1Q`)E\.%,@!(@`;TU8[J#5NB&F*N+N
M7`"[R`1(`A23`J3`>?6M01(0"-?R8`H>B4[XH7:5+=:*!4/T@(!<I(M3"`&TP
M`0F0%QFBX)D-?J&1`$:E-!@%P&1T;M!4P\Z&!>,'(N4+X&-:51F\ENDY=^I..
M(6*O:5$`4((=&ZX<P(+Q!*/Q4[D/HEI*?>!9G+$^SPYHV'PD`%!`7)R+=9$03
MW,42NQ?[HHH-C!*@Q;Y8.8@8?RLP"`D#`#+R-0`@&4FC.+",->B?R@-NL#!5W
MU6<\80+`;+Y8,*`+3J,MH#HOP00Q20$`"S;=.RR5HM!"!#\<4,^\%K[0!?(`"
M#!#5.*)V@-]%;8/KCPHX@4`"9:$$?%4F[DHD08FQ%?Q8P!E@`>OE7D)2?C`98
M>`R7K21]L0VP`RZK(0$`AV0Q6@A4GCFX$_RP`*:5KIO6TCJ`0I4JC2Q3L02N+
M)?AQ@3^X_K@`"`A^8,#2D@%BJX7(P&%;JD_`TJ(!:CL(T,!AHP3)5OAQVV[%N
M5`A!N&4#W)8-'#8Z,!E0K5H5C^0QMKR`!G`>`<`"5(_B0`5\`?9X"MRC$Y@#6
MEI8'0"I+RP3.P'G20J$O71ZV<Z.%PB8@&)NXEE$>-BM`GXQM`"`"J9(''#8P%
M`"."Q(K$CF%AE!:C<U!#T"("F+)P@@A<61"K9?&B7H2U?G'%AMDUZV(+8T5*C
MGMDB,1*`,PO6S.$_!0`NH)I(`J(ZV,[!(Z$!`8`8`(.&@02&@#$`!DU7"`P!X
M:C`(O"@P"`9Q%`A``T'@0HUL'8![)W#]I<!3AQS"[@>4@?]`$(!=%(AV<0';.
M#8'*X.W^`SZP=L4NVD4!)#"VFMT4*`Y(H`F4NZBO,-7=LQL"3<$I"@`$P.S]?
MBJ/``O\C)6A#OZ)FJ#T!4!7-+@J0@?Y@R9V]8=%X0Z`.J+R=UQ]H@\X[=RNOA
MZ4Q_Z^_RAD!0\P)#+R,`O:D7\QH"$HCV0J\SZ(FA%Q"D3H%@=BMA"`0%N'?]K
M^=Y_8`J"KP%%NT*1,;(#B<!\"1(N4`@#01X@!%4H$(@!"$@`"J`!'(0%X`D:0
MPB=H".1`(`@J\0L%Q.\D$+_(X"#`@!@@`V8`#:@!-N`&X(`<$`;$P!A(+A,"J
M`#`LZ'OH^*\0.0@_(!5D@@%,@'\`'=`#X>`(N`(*H`=^`!`0`TU`&L2#5+`/+
M?H`"L`'B8!UP@"&P`GP`-<`'M0`1C`,T\`Y\`"@P!O<`%"!"1N`#U(!DL2RO&
MP`CX@!J0!QR!.(`!C``'^(``X`(6@.^R!I.@!RP#/G#SKD$OP`4]H!+T@S\03
M#O(`&0C"8>`29()`T`+4P0/H`2R@!`@#-)`$[(`?X`'V@!!L`D,0"E8`)N`!L
MPF``O`)/<`ZLP,<,`&386(2:.3R'EX\=IL-X.`_/84@`!/JP'_[#@)@!".)!/
M3(@!<1].`(@X$0>`1<R(&[$C=L2&6*=(8@4@`"JQ);[$F!@3_^%@`GVA[X44.
M")^X$WOB3QR*1?%!"``,`12;XE7,BENQ*W[%L#@6R^)93(MKL2V^Q;@X%^OB!
M7<R+>[$II@"K>``L7X%P`#IQ;`4S!@$G"(2)%:8,@@8P"!X`^@X`Z3L0UD'S+
MG<8!`=RGQ/T"`8DM```=)```7!$EJ1GIOP\``&P)```!````````````4D5!\
M1$U%````````````?S6:0"DC*```1P@<2+"@P8,($RI<:%#!"!!.RMRA\\:-L
MC@1%YM!)TR8,G3(@Z*`!*>?-&SIS0+PQ`R(,"#AOV.1Q\Z9-FC!L0)2)4\=CH
MFHHN'"9($*2.R#=R=(``022,&Q!"PLB14X8.'18@Q$BE:A7(F#DNU*"IXZ(,;
MF3H@4`21`B6(FZHI@HX8&@,&C!(@H%01PB3)$*9/F@1)X@2KF)-H0,QY4T?.O
M&)!CWI`!:4(GGC)CC(81PZ:,7*$)KLA)8[7,4S-(0XX$,:1F&\E(00:Q>28,M
MUBEEX'QL(Z:,'!`Q<N#`(7>HE#IN4IHIV48UR"%]5;J169PHF\4@(K>!DZ9S^
MRLIRD*=$/OFW$-]KRG3.`Z**DR180-!P(4,NP_OX\^L?H4#!%30>@9!&2A%-@
M5-$/"K2@X((,-JA``D>D88=I+;T4TTPUW9333CUM5!$(1J"`1PH@]``"#%@5=
M2-%396C$D4<M.@>"`B6=E-)*,G+H$U!+4;$:'"6=(4<8S=4Q1XQ.M<3&&4B12
MAD9S:]!TQU-AS*&`""I6=$)*352%AF0BN+!4%HQEER1589#1TF%&R3@'')BE_
M848:7PE(I1OL1<9&9V>4H<!'>-!QV!MK2`=1'6WX1B=.(+B%4QYS#!A4?TB\H
M<8>`*9$&@I%F(=C@IPP^:`1S,D*7!%9TY`$G""*\9:`;(F"%VIZ6FI45>SQ(=
M400554CAA`^3)D`F6G=TEU-O+S&GFZVH_2822),)609(.#YKH4PTV<2HCAZZ<
M$92/T)8A+4@#RLB&5'UJ9!E,;[E!AYTY\K2CMSVNUA$>'"&J`$YL6+I99R!$<
M2Q6Y*<D`@Y@@#&OF4V,`Z$:?JI6;QE/6+M;88]E)YJ<8>3I\QL1GR&@'3G50?
MRY)@6'Q!1!%'Z%H$O).-P88+:`0;4:!8Y5&F5"`!6=.R:C8KHPB314J5FF&,5
MD=F08^01YE)33/R8`EFZL24(71ZE9KDNM8JHHF/@)`((B6J-ZFI.S7&';RGI_
MC%:?[_*L0$4RZ>1B1Q_=R)*U2=/14TXCLU%R4`F`VY+2C27-'M=DEU%E8R:#V
M\.6E,K]Q9$LLW@TCV4;2H0"RO35+[KOE1I9<&N79*D)D4V%&Q],@)/$4WB/AS
MO6A.YS[<4Y\L_+E:$77(C+KC3Y$Q(!U.88S"Q#)J!T=G>+R4>QDD]D;'VA1:#
MNS15[BK0XD9X@^24FM8"688=/QEI-_B;M]$Y"#2]6P8>C]EJK0A)+ZUXF/TE7
M(+N;C'$,9#1V-I",;#3_`HD(<A.I?L$*!%0QWY'<E9)G[0MQ3,L#PG`CONN\H
M049F0,X8N@6"(DP%*50PB1#2<`84I``K=T`#G1+3M[_5+6\H\9WX,*@XE>QM'
M->?"X?I>])%@I3`[7[(<2*PU&3.$H0YLB!L/FX:52&VG;A),2:YVU:M?(>P)_
MSY)#L8[4NU2MBGEN^TW1TG"TP^FO:0@SW!PZLB??B(QD92@@V6+CQL1]1`%I4
MA&"+H/@N%(S/7!7ID[-^%*0A-:=8>X(@<N+2/R-,C%]YR-G.J)*LGWTD:*D)3
M)$RPE2%&1:8,9IC3&-)@&I0$Q0BIF1^1GI='$,200FYK"2>KE!XRZ*!_"<""K
M%VJ0,52JDI7N^L$O`5FF.7P)BN13%;DHMII3II).R'P7C@*)A190Q)LC:4$-U
M1-("F*S-6;YI0[!:8TQLMC(E'6$/LM"4D]0X#WKP0U1OY`"6I23AAP-LYRI;E
MJ8!RT;.*''D>>\PX.G@=,HL@V"*O?`4L?P*TF-<<J+LPI8![S@]5TH07:5)"L
M3\QMK2,?<X-4V`,'J:"DBKF1"HS4Q#'%M/0Q5AK?"U*#/#',`2L/I<H<M*BK6
MB7JQ/R*0@N/8,#997K$,RQR*,(EIS6.V4ID@L($+9C"#B!:UBSY`:FN>BH>F;
MXF&6G9$53ZOY,WP&KF0@$"<(5G`B%]!@!FD`052#.4R,6C692I%K7>_J52Y2U
MM#]..,D2`?2N7+I/70R%5Q&L4`0I9,&O[G075LY'(3D)B'0I<8D>?/.&8/VGL
M.R#))<]TXBY%/0RS&GTI"'(9-HJ%5`1(B!6KT*#;U(C@!R)0@-!<(H;1H'*W+
MZH'#V!(UU##T:5)4LQ0(_A,@)(0!#G!*CJ=`Q=T65)*-&L$*EB2RHK%!,B?&I
M>].YV"/*"V5+0T!M6YD82H:"DLY;_0.7&\1;-?,:RTQLR$P0%TL2DZ#$A[,-\
MX+4PI"TV>$]>W3*B#%,2M@!#<5YD8R$:WH6\]"BF)DOD"$@,"0(S2"3#;C!*$
MBUX8L-R8QG@/FQLUPS4N!%N+6S^Y$_E6L\8VYB]Q<%P*$C1LQQ]G\$]A2`\\?
M^0B^6E8IP6BAS89!<(:2#76#(&[R3YN'$P%CN,,MDG'=7&+B2QW)=&0`2_^B(
MY@:,C?=58^-4:/.9J-%46$E,&HU(VE!`3I:K?):+E!BZ0YH\^"Y`FCHO_$Y2B
MXHDA[<."B[!%6=7?A<6OT6[8L0'QZ,-]0=#`+3'#1WY3%Q;8!0:?]<V\MISH7
M_T80*>]R8G<@AS`4^*A<*>:-;^;&$M*HNEN92LF1[MMBF=&L)5P*0LJ20(7*M
M!H$*27B"$Z;@@FJ7>%HY6<ZT0O+!ACFE3_9U00K6_`:L>/;-Y57,M-I0P0\B)
M*U)6`9ES.'EI,KQ!WD[)@TA`UCM[6^U=+74#G1`6!%$7^=J7LDF*\V;N=RFZ^
M#$ZRXYPR7:'%1#K'<_L-3S3U1(K8KL+4Z8\"QLH=-LA;=LVR7442U-V6>_=!%
MAC--Y8ZD)A$T(<FH1.W8RB4T3MG228W2PT?&@#6G1&\(6+'"#%Q@@S`$!=T5/
M&9O/M,*9//T,M=^19'(VE6D[,L$C&\$8TE7#F#,D)@D+.X'GA$B:8-U<)&DQ^
M0[]\\EJ83(P.)*JPEX&]L*R`Q&%DZ,S6J#DP!1@OE;YII2W#`"F$%<%X'%[-Z
MS=,S)X`=4H2N43P36\1&LXS<"$P(PA&F8%(0]$4(I&^I(ZO"MCB.A#VKG=_SV
MPC`Q6S'/6I//.<!&JAXS!(6#2L+._0H$@B?H)L<I@>5OAC`$J3MWQ$ISP75=*
M$(.D+YT&82#1[25O])&3S2E_DS!(9-XOFK,J]Y7W#'+24%9,E=B>5S?Y:Z'^]
M0/+LVCWP2<MYY)">];3G/?$Q'S*@$K]1!5$T&B.",$GP+O86(Y?F<QHA!Q2Q,
M!BXP!CL0.RW1!OLR5(@B;R(1((&$?_$!(!6T&A$X@2Y48B)$0CZ#/I-!!D$1;
M$`#<I\3]`@``````````````````````````````````````````````````6
?```````````2```PK0@(````````````````````````_
``
end
size 11731
\Rogue\Monster\
else
  echo "will not over write newton.zuu"
fi
if [ `wc -c newton.zuu | awk '{printf $1}'` -ne 16467 ]
then
echo `wc -c newton.zuu | awk '{print "Got " $1 ", Expected " 16467}'`
fi
echo "Finished archive 1 of 1"
# if you want to concatenate archives, remove anything after this line
exit
-- 
Bob Page, U of Lowell CS Dept.  page@swan.ulowell.edu  ulowell!page
Have five nice days.