Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-lcc!ames!ucbcad!ucbvax!decvax!decwrl!sun!imagen!turner
From: turner@imagen.UUCP (D'arc Angel)
Newsgroups: comp.ai
Subject: AI Expert Magazine source code posting for April (Part 05/05)
Message-ID: <1005@imagen.UUCP>
Date: Tue, 17-Mar-87 20:02:47 EST
Article-I.D.: imagen.1005
Posted: Tue Mar 17 20:02:47 1987
Date-Received: Thu, 19-Mar-87 04:55:30 EST
Organization: The Houses of the Holy
Lines: 318
Keywords: source


M`+D``+H!`.@PU(A&#.D``(I&##+D"\"+Y5W""0!5B^Q5Z0``Q$8(C,)24#/`
M,]);6>AOVE#$1@2,PE)0,\`STEM9Z%[:62/!"\!U`^D2`+@``+D``+H!`.C?
MTXA&#.F:`+D+`.CATTS$1@B,PE)0Z(CV4.C]V+@"`.@)V;@!`.@#V>C3V5"Y
M"P#HO--,Q$8$C,)24.AC]E#HV-BX`@#HY-BX`0#HWMCHKME9(\$+P'4#Z3@`
MN;(`Z([3@^Q1Q$8(C,)24.BQ^+FR`.A[TX/L4<1&!(S"4E#HGOCH4-:Y``"Z
M`0#H5-.(1@SI#P"X``"Y``"Z`0#H0M.(1@SI``"*1@PRY`O`B^5=P@D`58OL
M5>D``,1&"(S"4E`SP#/26UGH@=E0Q$8$C,)24#/`,]);6>APV5DCP0O`=0/I
M$@"X``"Y``"Z`0#H\=*(1@SIF@"Y"P#H\]),Q$8(C,)24.B:]5#H#]BX`@#H
M&]BX`0#H%=CHY=A0N0L`Z,[23,1&!(S"4E#H=?50Z.K7N`(`Z/;7N`$`Z/#7
MZ,#862/!"\!U`^DX`+FR`.B@TH/L4<1&"(S"4E#HP_>YL@#HC=*#[%'$1@2,
MPE)0Z+#WZ%;5N0``N@$`Z&;2B$8,Z0\`N```N0``N@$`Z%32B$8,Z0``BD8,
M,N0+P(OE7<()`%6+[%7I``"#[`RY"P#H/]),Q$8(C,)24.CF]#T"`'0#Z1X`
MC7[X%E>Y$`#H(=*#[`;$1@B,PE)0Z/SXZ-/;Z2P`C7[X%E>Y%`'H`]*#[`:Y
ML@#H^M&#[%'$1@B,PE)0Z!WWL?_H5-3H`O+HI-NY"P#HW-%,Q$8$C,)24.B#
M]#T"`'0#Z1X`C7[R%E>Y$`#HOM&#[`;$1@2,PE)0Z)GXZ'#;Z2P`C7[R%E>Y
M%`'HH-&#[`:YL@#HE]&#[%'$1@2,PE)0Z+KVL?_H\=/HG_'H0=NY%`#H>=&#
M[`2-?O@6Z!';C7[R%N@*V^@ZV^@V^XE&#(E6#ND``,1&#(S"B^5=P@P`58OL
M5>D``(/L#+D+`.@^T4S$1@B,PE)0Z.7S/0(`=`/I'@"-?O@65[D0`.@@T8/L
M!L1&"(S"4E#H^_?HTMKI+`"-?O@65[D4`>@"T8/L!KFR`.CYT(/L4<1&"(S"
M4E#H'/:Q_^A3T^@!\>BCVKD+`.C;T$S$1@2,PE)0Z(+S/0(`=`/I'@"-?O(6
M5[D0`.B]T(/L!L1&!(S"4E#HF/?H;]KI+`"-?O(65[D4`>B?T(/L!KFR`.B6
MT(/L4<1&!(S"4E#HN?6Q_^CPTNB>\.A`VKD4`.AXT(/L!(U^^!;H$-J-?O(6
MZ`G:Z%3:Z#7ZB48,B58.Z0``Q$8,C,*+Y5W"#`!5B^Q5Z0``@^P,N0L`Z#W0
M3,1&"(S"4E#HY/(]`@!T`^D>`(U^^!97N1``Z!_0@^P&Q$8(C,)24.CZ]NC1
MV>DL`(U^^!97N10!Z`'0@^P&N;(`Z/C/@^Q1Q$8(C,)24.@;];'_Z%+2Z`#P
MZ*+9N0L`Z-K/3,1&!(S"4E#H@?(]`@!T`^D>`(U^\A97N1``Z+S/@^P&Q$8$
MC,)24.B7]NANV>DL`(U^\A97N10!Z)[/@^P&N;(`Z)7/@^Q1Q$8$C,)24.BX
M]+'_Z._1Z)WOZ#_9N10`Z'?/@^P$C7[X%N@/V8U^\A;H"-GH8MGH-/F)1@R)
M5@[I``#$1@R,PHOE7<(,`%6+[%7I``"#[`RY"P#H/,],Q$8(C,)24.CC\3T"
M`'0#Z1X`C7[X%E>Y$`#H'L^#[`;$1@B,PE)0Z/GUZ-#8Z2P`C7[X%E>Y%`'H
M`,^#[`:YL@#H]\Z#[%'$1@B,PE)0Z!KTL?_H4='H_^[HH=BY"P#HV<Y,Q$8$
MC,)24.B`\3T"`'0#Z1X`C7[R%E>Y$`#HN\Z#[`;$1@2,PE)0Z);UZ&W8Z2P`
MC7[R%E>Y%`'HG<Z#[`:YL@#HE,Z#[%'$1@2,PE)0Z+?SL?_H[M#HG.[H/MB-
M?O(6Z!?8Z*?8Z"#8/I)D".4\Z/'8=0/I'@"Y%`#H6\Z#[`3H!M@```````#H
M(/B)1@R)5@[I(P"Y%`#H/<Z#[`2-?O@6Z-77C7[R%NC.U^@WV.CZ]XE&#(E6
M#ND``,1&#(S"B^5=P@P`58OL5>D``(/L!+EA`.@"SDQ,N;(`Z/K-@^Q1Q$8(
MC,)24.@=\[%0Z%30Z-GNB4;\N6$`Z-S-3$RYL@#HU,V#[%'$1@2,PE)0Z/?R
ML5#H+M#HL^Z)1OJY%`#HMLV#[`2+1OR9]W[ZDN@&V>AY]XE&#(E6#ND``,1&
M#(S"B^5=P@P`58OL5>D``,1&!(S"4E`SP#/26UGHU=-U`^D2`+@``+D``+H!
M`.A;S8A&#.EO`+D/`.A=S4S$1@B,PE)0N0X`Z$_-@^P$Q$8$C,)24.A%\%)0
MZ"3X=0/I$@"X`0"Y``"Z`0#H'LV(1@SI,@"Y#P#H(,U,Q$8(C,)24+D.`.@2
MS8/L!,1&!(S"4E#H=/!24.AO_[D``+H!`.CIS(A&#.D``(I&##+D"\"+Y5W"
M"0!5B^Q5Z0``Q$8(C,)24#/`,]);6>@HTW4#Z0T`,\`STHE&$(E6$NF*`+D/
M`.BUS$S$1@R,PE)0N0X`Z*?,@^P$Q$8(C,)24.B=[U)0Z'SW=0/I'`"Y#@#H
MBLR#[`3$1@2,PE)0Z(#OB480B582Z4,`N18`Z&[,@^P$Q$8,C,)24+D.`.A>
MS(/L!,1&"(S"4E#HP.]24+D.`.A)S(/L!,1&!(S"4E#HJ^]24.A3_XE&$(E6
M$ND``,1&$(S"B^5=PA``58OL5>D``,1&"(S"4E`SP#/26UGH9])U`^D-`#/`
M,]*)1A")5A+IM`"Y#P#H],M,Q$8,C,)24+D.`.CFRX/L!,1&"(S"4E#HW.Y2
M4.A#_G4#Z48`N18`Z,G+@^P$Q$8,C,)24+D.`.BYRX/L!,1&"(S"4E#HK^Y2
M4+D.`.BDRX/L!,1&!(S"4E#HFNY24.BN_HE&$(E6$NE#`+D6`.B#RX/L!,1&
M#(S"4E"Y#@#H<\N#[`3$1@B,PE)0Z-7N4E"Y#@#H7LN#[`3$1@2,PE)0Z,#N
M4E#H*?^)1A")5A+I``#$1A",PHOE7<(0`%6+[%7I``"*1@0RY`O`=0/I(@"Y
M7P#H'\N#[`2X5`"*X+`!4+%0Z'O-Z%'TB48&B58(Z1\`N5\`Z/W*@^P$N$8`
MBN"P`5"Q4.A9S>@O](E&!HE6".D``,1&!HS"B^5=P@8`58OL5>D``,1^"";$
M!8S"4E`SP#/26UGH)M%U`^E)`+D+`.BQRDS$?@@FQ`6,PE)0Z%7M/0``=0/I
M%@#$?@@&5\1&!(S"7P<FB04FB54"Z1<`Q'X()L0]!E?$1@2,PE\')HE%`B:)
M503$?@@FQ`6,PHE&#(E6#ND``,1&#(S"B^5=P@P`58OL5>ED!U6+Q/]V_HOH
M5>D``+D2`.@YRH/L!,1&"(S"4E#H$N^)1@B)5@JY$@#H(,J#[`3$1@2,PE)0
MZ/GNB48$B58&N10`Z`?*@^P&Q'X(C,!0Z$WLN10`Z/7)@^P&Q'X$C,!0Z#OL
MZ*744,1^"(S`4,1^!(S`69$[P;@!`'0!2%"Y%`#HR<F#[`;$?@B74.@0[+D4
M`.BXR8/L!L1^!)=0Z/_KZ&G462/!60O!N0``N@$`Z(W)B$8,Z0``BD8,,N0+
MP(OE7<()`%6+Q/]V_HOH5>D``,1&!(S"4E`SP#/26UGHUL]U`^EN`,1^!":*
M!3+D-`%U`^E?`,1^!+@!`+D``+H!`.@[R2:(!<1^!":*10$RY#T``'0#Z3P`
MN0P`Z"_)N0X`Z"G)@^P$Q$8$C,)24.@?[%)0Z(__N0P`Z!')N0X`Z`O)@^P$
MQ$8$C,)24.AM[%)0Z''_Z0``B^5=P@0`58O$_W;^B^A5Z0``@^P*N`$`N`$`
M4+@!`+@!`%D#P8E&]KD2`.C(R(/L!,0&<@*,PE)0Z*#MB4;XB5;ZN0H`Z*[(
M3$RY"`#HILA,3.A'[5#H&NV)1O2Y"@#HE,A,3+@!`+@!`%"X`0"X`0!9`\%0
MN`8`N`8`60/!4.CQ[(E&\KD1`.AKR$S$1OB,PE)0Q`:*`8S"4E#H#?YU`^D#
M`<1^^+@``+D``+H!`.@VR":(!<1^^":*10$RY#T``'0#Z24`N1(`Z"K(@^P$
MQ'[XC,!0Q'[XEP-&]%I24.CZ[(E&^(E6^NFX`#T#`'0#Z34`N1(`Z/W'@^P$
MQ'[XC,!0Q'[XEU#$?O@FBT4&!0$`N0@`]^E9`\%:4E#HO>R)1OB)5OKI>P`]
M`@!T`^DE`+D2`.C`QX/L!,1^^(S`4,1^^)<#1O):4E#HD.R)1OB)5OKI3@`]
M`0!T`^E&`+D2`.B3QX/L!,1^^(S`4,1^^)=0N0H`Z'_'3$R+1O90Q'[X@\<"
M!NAJR>@9RUD#P04!`%#HW^M9`\%:4E#H/^R)1OB)5OKIW_[I``"+Y5W#58O$
M_W;^B^A5Z<4#58O$_W;^_W;\B^A5Z0``3$R+1@0M`0"Y"`"9]_D%`0"Y``"Z
M_W_H!L>)1OC$?@:X`P"Y``"Z`P#H],8FB$4!N1(`Z/C&@^P$Q'X&C,!0Q'X&
MEU"X"`#W;OA9`\%:4E#HP>M24,0&;@*,PEM9Z"G-=0/I1P#$?@8&5\0^;@(F
MQ$4"C,)?!R:)10(FB54$Q'X&!E?$/FX")HM%!@-&^%\'N0``NO]_Z(?&)HE%
M!L1&!HS"HVX"B19P`NFN`+D2`.A\QH/L!,0^;@*,P%#$/FX"EU"X"`!0Q#YN
M`B:+108%`0!9]^E9`\%:4E#H-^M24+D2`.A)QH/L!,1&!HS"4E#H(NM;6>B2
MS'4#Z2,`Q#YN`@97Q#YN`B:+108#1OA?![D``+K_?^@(QB:)10;I.P#$?@8&
M5\0&;@*,PE\')HE%`B:)503$?@8&5XM&^"T!`%\'N0``NO]_Z-;%)HE%!L1&
M!HS"HVX"B19P`K]@`AY7OV`"'NAJSXM&^%#H<L^$``````#H']'HM,_HA\_H
M<<_I``"+Y5W"!@!5B\3_=O[_=OR+Z%7I``"#[`2Y$@#HCL6#[`3$!G("C,)2
M4.AFZHE&]HE6^+D1`.ATQ4S$1O:,PE)0BU[\-L1'^(S"4E#H$_MU`^G:`<1^
M]B:*10$RY#T``'0#Z5T`Q'[V)HH%,N0T`74#Z24`N1(`Z#/%Q$;VC,)24+D(
M`.@FQ4Q,Z,?IN0``NO]_Z`K%4.C7_;D2`.@.Q8/L!,1^]HS`4,1^]I>+7OPV
M`T?T6E)0Z-KIB4;VB5;XZ6D!/0,`=`/I8`#$?O8FBT4&!0$`N0@`]^F+7OPV
MB4?PN1(`Z,?$Q$;VC,)24(M>_#:+1_"Y``"Z_W_HHL10Z&_]N1(`Z*;$@^P$
MQ'[VC,!0Q'[VEXM>_#8#1_!:4E#H<NF)1O:)5OCI`0$]`@!T`^E9`,1^]B:*
M!3+D-`%U`^DA`+D2`.AFQ,1&]HS"4E"+7OPVBT?NN0``NO]_Z$'$4.@._;D2
M`.A%Q(/L!,1^]HS`4,1^]I>+7OPV`T?N6E)0Z!'IB4;VB5;XZ:``/0$`=`/I
MF`"Y"@#H%,1,3(M>_#:+1_90Q'[V@\<"!NC[Q>BJQUD#P04!`%#H<.B+7OPV
MB4?RQ'[V)HH%,N0T`74#Z34`N1(`Z-?#Q$;VC,)24(M>_#:+1_90Q'[V@\<"
M!NBYQ>AHQUD#P04!`+D``+K_?^B>PU#H:_RY$@#HHL.#[`3$?O:,P%#$?O:7
MBU[\-@-'\EI24.ANZ(E&]HE6^.D%_ND``(OE7<.#[`XSP#/2HVX"B19P`K]@
M`AY7Z!/-````````Z!O-Q`:*`8S"B4;XB5;ZN`$`N`$`4+@!`+@!`%D#P8E&
M]KD*`.@TPTQ,N0@`Z"S#3$SHS>=0Z*#GB4;TN0H`Z!K#3$RX`0"X`0!0N`$`
MN`$`60/!4+@&`+@&`%D#P5#H=^>)1NZY#@#H\<+H2/WI``"+Y5W#Z&O8N"H`
M4+@``.BFV^@HP[D2`.C1PNC>^;D,`.C(PL0&=@*,PE)0Z#7YN18`Z+?"Z&O[
MZ#C8N`@`4+@``.ASV^CUPNAZM>D``(OE7<-5B^Q5Z0``Z)JZ4.@]S(4`````
M`.CJS>A_S+]@`A[H&\SH2\RX$"?HSLWH+,UU`^D)`+D&`.ABPN@-^.D``(OE
M7<-5B^Q5Z0``3.C4U^CNV^B8PNC+U^CEV^B/PNC"U^C$VQM0<F5S<R!A;GD@
M:V5Y('1O(&-O;G1I;G5E+B#H:L*_2@$>Z'S7C7[]%NB<V>A9PNB,U[@-`%"X
M``#HQ]KH2<+HSK3I``"+Y5W#58OL5>D``*'O!#T``'\#Z1T`Z&#7H>\$4+@`
M`.BWVK@^`%"X``#HD=KH$\+I#0#H0]?H1=L#+3X@Z`/"Q'X$Z&+7!K%0Z(C9
MZ/3!Z0``B^5=P@0`58OL5>ER`%6+Q/]V_HOH5>D``(M>_C;$?P0&Z.;6O\\"
M'K'_Z%79Z*;9Z+?!/0``=0/I%0"_SP(>5[@:`(K@L`%0L?_H?</I*`"+7OXV
MQ'\$!N@"VW4#Z1@`O\\"'E>_SP(>Z"_#N`$:4.A9Q+'_Z%+#Z0``B^5=P[_/
M`AY7Z"W#`+'_Z#W#N1``Z`W!3,1^!`97Z!W?=0/I$0"Y"@#H^<"_SP(>5^@#
M_^D)`+D(`.CHP.A2_[_/`QY7O\\"'NC4PK'_Z/["Z0``B^5=P@0`58OL5>F0
M!%6+Q/]V_HOH5>D``(/L!+@!`(E&^8M>_C;$?P@&Z)_"Z$[$N0``NO\`Z(K`
MB$;XN```N0``N@$`Z'O`B$;[BD;[,N0T`74#Z6P`BT;Y4(I&^#+D69$[P7\#
MZ1(`N`$`N0``N@$`Z$[`B$;[Z44`BU[^-L1_"(M&^;D``>@NP`/X)HH%,N10
MO\\$'KD@`.@OQ>A!QG4#Z1(`N`$`N0``N@$`Z!+`B$;[Z0D`BT;Y!0$`B4;Y
MZ8C_BU[^-L1_!`97BU[^-L1_"`;H]<&X`0!0BT;Y+0$`Z%O#L5#H$L*+7OXV
MQ'\(!E>X`0!0BT;Y+0$`Z"C$Z0``B^5=PU6+Q/]V_HOH5>D``(M>_C;$?P@&
M5^C'P0"Q_^C7P;D,`.BGOXM>_C;$?P@&5XM>_C;$?P0&5^C'_ND``(OE7<-5
MB\3_=OZ+Z%7IA`%5B\3_=O[_=OR+Z%7I``"Y#P'H:K],BU[^-L1_"`;H6<&X
M`0!0N`$`Z,+"L?_HN\'HX.!U`^E$`(M>_C;$?P0&5XM>_C;$?P0&Z"[!BU[^
M-L1_"":*10$RY(K@L`%0Z$K"L5#H0\&+7OXVQ'\(!E>X`0!0N`$`Z%S#Z9/_
MZ0``B^5=PU6+Q/]V_O]V_(OH5>D``(M>_C;$?P@&5[@!`%"X`0#H,,.+7OXV
MQ'\(!NC*P.AYPCT``'\#Z9X`BU[^-L1_"":*10$RY%#HWL.X*P#HZL.X+0#H
MY,/HM,1U`^E+`(M>_C;$?P0&5XM>_C;$?P0&Z(;`N`%%4.BPP8M>_C;$?P@F
MBD4!,N2*X+`!4.B;P;%0Z)3`BU[^-L1_"`97N`$`4+@!`.BMPNDB`(M>_C;$
M?P0&5XM>_C;$?P0&Z#O`Z%'``D4KZ&/!L5#H7,"Y"@#H++[HJO[I)`"+7OXV
MQ'\$!E>+7OXVQ'\$!N@-P.@CP`1%*S`PZ#/!L5#H+,#I``"+Y5W#N0H`Z/6]
MZ'/^BU[^-L1_"`;HXK_HD<$]``!_`^G#`(M>_C;$?P@FBD4!,N0]+@!T`^FN
M`+D/`>C!O4R+7OXVQ'\(!NBPO[@"`%"X`0#H&<&Q_^@2P.@WWW4#Z84`BU[^
M-L1_!`97BU[^-L1_!`;HA;^+7OXVQ'\()HI%`3+DBN"P`5#HH<"Q4.B:OXM>
M_C;$?P@&5[@!`%"X`0#HL\&Y"@#H5[WHU?VYJ0#H3KV#[%&+7OXVQ'\(!N@[
MO[@!`%"X`0#HI,"Q4.B=O^B^W+@!15#HT+]U`^D)`+D*`.@<O>@=_ND``(OE
M7<-5B\3_=OZ+Z%7I``!,BU[^-L1_"":*10$RY+D``+K_`.CAO(A&^XM>_C;$
M?P@&5[@!`%"X`0#H+\&+7OXVQ'\(!NC)ONAXP#T``'\#Z7``BU[^-L1_"":*
M10$RY%#HW<&X,`!0N#D`Z.S!Z+7"=0/I,@"Y"`#HFKSH#/V+7OXVQ'\$!E>*
M1OLRY(K@L`%0BU[^-L1_!`;H=+[HHK^Q4.B;OND8`(M>_C;$?P0&5XI&^S+D
MBN"P`5"Q4.B`OND8`(M>_C;$?P0&5XI&^S+DBN"P`5"Q4.AEOND``(OE7<.Y
M"@#H+KS$?@@&5^BIVL1^!`97Z#*^`+%0Z$*^Q'X(!N@,ONB[OST``'\#Z<0`
MQ'X()HI%`3+D/3L`=`/I#`"Y"`#H[[OH(?SIIP#$?@@FBD4!,N10O\\$'KD@
M`.C0P.CBP74#Z2H`Q'X$!E?$?@@FBD4!,N2*X+`!4+%0Z-^]Q'X(!E>X`0!0
MN`$`Z/R_Z6$`Q'X()HI%`3+D4.C!P+@K`.C-P+@M`.C'P.B7P74#Z0P`N0D`
MZ'R[Z&?^Z30`Q'X()HI%`3+D4.B4P+@P`%"X.0#HH\#H;,%U`^D,`+D(`.A1
MN^C#^^D)`+D,`.A%N^A^^ND``(OE7<((`%6+[%7I``"_SP(>Z":]Z-6^/0``
M?P/I/`"Y#@#H&KN_SP(>5\1^!`97Z$+ZQ'X$!N@!O>@7O0#HJ+UU`^D3`+D.
M`.CTNL1^"`97Q'X$!E?HKO_I(0"Y"@#HWKK$?@@&5^@\^;D.`.C0NL1^"`97
MQ'X$!E?HBO_I``"+Y5W""`!5B^Q5Z0``Z#?0Z%'4Z/NZZ"[0C7X$%NB;O+@`
M`.COT^@[U.CENKD'`.B.NN@S^.D``(OE7<)1`.GM`56+[%7I``"_?@(>Z&R\
MN`$H4.@3O74#Z6\`N0X`Z%^ZQ'X$!E>_?@(>5^@9_Z'O!`4!`+D``+K_?^@U
MNJ/O!+D,`.@ZNH/L!,1^!`97Z*W_B48(B58*OWX"'N@=O+@!*5#HT+QU`^D=
M`+E7`.@0NN@AO`M-:7-S:6YG("<I)[%0Z&B\Z#__Z58!OWX"'NCJN[@!)U#H
MD;QU`^EK`+D.`.C=N<1^!`97OWX"'E?HE_ZY%@#HRKF#[`2Y7P#HP;F#[`3H
MS[L%455/5$6Q4.@<O.CRXE)0N18`Z*6Y@^P$N0X`Z)RY@^P$Q'X$!E?H$O]2
M4#/`,])24.C@XU)0Z-OCB48(B58*Z=@`N:D`Z'*Y@^Q1OWX"'NACN[%0Z,^[
MZ/#8Z'&[`TY)3.C_NW4#Z0T`,\`STHE&"(E6"NFD`+D/`>@^N4R_?@(>Z#&[
ML?_HG;OHPMIU`^EK`+D6`.@CN8/L!+E?`.@:N8/L!.@HNP5154]41;%0Z'6[
MZ$OB4E"Y%@#H_KB#[`2Y%`#H];B#[`2Y%`'H[+B#[`:_?@(>Z-VZL?_H2;OH
M]]CHJ^)24#/`,])24.@FXU)0Z"'CB48(B58*Z1X`N5\`Z+BX@^P$OWX"'NBI
MNK%0Z!6[Z.OAB48(B58*Z0``Q$8(C,*+Y5W""`!5B^Q5Z0``@^P$N0X`Z(*X
M@^P$Q'X$!E?H^/V)1OJ)5ORY#@#H:[C$?@0&5[]^`AY7Z"7]OWX"'NA2NK@!
M+E#H^;IU`^E5`+D.`.A%N,1^!`97OWX"'E?H__RY%@#H,KB#[`3$1OJ,PE)0
MN0X`Z"*X@^P$Q'X$!E?HF/U24.ALXHE&"(E6"KD.`.@&N,1^!`97OWX"'E?H
MP/SI<P"_?@(>Z.JYN`$I4.B1NG4#Z30`H>\$+0$`N0``NO]_Z,:WH^\$N18`
MZ,NW@^P$Q$;ZC,)24#/`,])24.@2XHE&"(E6"NDL`+D6`.BIMX/L!,1&^HS"
M4E"Y$@#HF;>#[`3$?@0&5^@,_5)0Z./AB48(B58*Z0``Q$8(C,*+Y5W""`!5
MB^Q5Z2(!58O$_W;^B^A5Z0``@^P$Q$8$C,)24#/`,]);6>BYO74#Z?4`Q'X$
M)HI%`3+D/0(`=`@]`0!T`^DL`.BXS+FR`.@KMX/L4<1&!(S"4E#H3MRX``#H
M;="X(`!0N```Z-K/Z%RWZ;,`/0``=`/IJP#HA,RX*`!0N```Z+_/Z$&WQ$8$
MC,*)1OB)5OJY"P#HW[9,Q$;XC,)24.B&V3T``'0#Z3H`N1``Z,:VN0X`Z,"V
M@^P$Q$;XC,)24.BVV5)0Z$#_N0X`Z*BV@^P$Q$;XC,)24.@*VHE&^(E6^NFM
M_\1&^(S"4E`SP#/26UGH[+QU`^D<`.@!S.@#T`(N(.C"MKD0`.AKML1&^(S"
M4E#H\_[HY<OHY\\"*2#HIK;I``"+Y5W"!`#$1@2,PE)0,\`STEM9Z)>\=0/I
M$0#HN\OHO<\$;FEL(.AZMND0`+D0`.@@ML1&!(S"4E#HJ/[I``"+Y5W"!`!5
MB^Q5Z>L(58O$_W;^B^A5Z0``Q$8$C,)24#/`,]);6>A%O'4#Z0T`,\`STHE&
M"(E6"NE8`+D6`.C2M8/L!+D.`.C)M8/L!+D.`.C`M8/L!,1&!(S"4E#HMMA2
M4.BQV%)0N1``Z*:U@^P$N0X`Z)VU@^P$Q$8$C,)24.C_V%)0Z(7_4E#HX-^)
M1@B)5@KI``#$1@B,PHOE7<((`%6+Q/]V_HOH5>D``,1&!(S"4E`SP#/26UGH
ML;MU`^D-`#/`,]*)1@B)5@KI9@"Y%@#H/K6#[`2Y#@#H-;6#[`2Y#@#H++6#
M[`2Y#@#H([6#[`3$1@2,PE)0Z!G84E#H@-A24.@/V%)0N1``Z`2U@^P$N0X`
MZ/NT@^P$Q$8$C,)24.A=V%)0Z'?_4E#H/M^)1@B)5@KI``#$1@B,PHOE7<((
M`%6+Q/]V_HOH5>D``,1&#(S"4E`SP#/26UGH#[MU`^D-`#/`,]*)1A")5A+I
M=`"Y%@#HG+2#[`2Y%`#HD[2#[`2Y#@#HBK2#[`3$1@R,PE)0Z(#74E#$1@B,
MPE)0Q$8$C,)24.A=_E)0N1@`Z&*T@^P$N0X`Z%FT@^P$Q$8,C,)24.B[UU)0
MQ$8(C,)24,1&!(S"4E#H:?]24.B.WHE&$(E6$ND``,1&$(S"B^5=PA``58O$
M_W;^B^A5Z0``N;(`Z`ZT@^Q1N10`Z`6T@^P$N0X`Z/RS@^P$N0X`Z/.S@^P$
MBU[^-L1'#(S"4E#H4==24.C@UE)0BU[^-L1'"(S"4E"+7OXVQ$<$C,)24.BU
M_5)0Z.W8N`%44.A?MG4#Z6``N10`Z*NS@^P$N0X`Z**S@^P$N0X`Z)FS@^P$
MN0X`Z)"S@^P$BU[^-L1'#(S"4E#H[M924.CIUE)0Z'C64E"+7OXVQ$<(C,)2
M4(M>_C;$1P2,PE)0Z$W]B48$B58&Z6L`N10`Z$NS@^P$N0X`Z$*S@^P$N0X`
MZ#FS@^P$N0X`Z#"S@^P$N0X`Z">S@^P$BU[^-L1'#(S"4E#HA=924.B`UE)0
MZ'O64E#H"M924(M>_C;$1PB,PE)0BU[^-L1'!(S"4E#HW_R)1@2)5@;I``#$
M1@2,PHOE7<($`%6+Q/]V_HOH5>D``(/L"+D0`.C#LH/L!+D.`.BZLH/L!+D.
M`.BQLH/L!(M>_C;$1PR,PE)0Z`_64E#H"M924.B0_(E&^(E6^KD8`.B*LH/L
M!+D0`.B!LH/L!+D.`.AXLH/L!+D.`.AOLH/L!(M>_C;$1PR,PE)0Z,W54E#H
MR-524.CB_%)0BU[^-L1'"(S"4E"+7OXVQ$<$C,)24.AI_8E&](E6]KD4`.@M
MLH/L!+D.`.@DLH/L!+D.`.@;LH/L!(M>_C;$1PR,PE)0Z'G54E#H"-524+D6
M`.C]L8/L!,1&^(S"4E"+7OXVQ$<(C,)24.@_W%)0N18`Z-VQ@^P$Q$;TC,)2
M4(M>_C;$1P2,PE)0Z!_<4E#HL_N)1@2)5@;I``#$1@2,PHOE7<($`%6+Q/]V
M_HOH5>D``(/L#+D6`.B7L8/L!+D6`.B.L8/L!,0&>@*,PE)0,\`STE)0Z-3;
M4E"+7OXVQ$<$C,)24.C$VXE&^(E6^KD0`.A>L8/L!+D.`.A5L8/L!+D.`.A,
ML8/L!(M>_C;$1PR,PE)0Z*K44E#HI=124.@K^XE&](E6]KD8`.@EL8/L!+D0
M`.@<L8/L!+D.`.@3L8/L!+D.`.@*L8/L!(M>_C;$1PR,PE)0Z&C44E#H8]12
M4.A]^U)0N18`Z.>P@^P$Q$;TC,)24(M>_C;$1PB,PE)0Z"G;4E#$1OB,PE)0
MZ//[B4;PB5;RN10`Z+>P@^P$N0X`Z*ZP@^P$N0X`Z*6P@^P$BU[^-L1'#(S"
M4E#H`]124.B2TU)0N18`Z(>P@^P$Q$;TC,)24(M>_C;$1PB,PE)0Z,G:4E"Y
M$@#H9["#[`2-?O@65\1&\(S"4E#H?^524.A#^HE&!(E6!ND``,1&!(S"B^5=
MP@0`58O$_W;^B^A5Z0``@>P=`XV^W_X65[FR`.@@L(/L4;D4`.@7L(/L!+D.
M`.@.L(/L!+D.`.@%L(/L!(M>_C;$1PR,PE)0Z&/34E#H\M)24(M>_C;$1PB,
MPE)0BU[^-L1'!(S"4E#HQ_E24.C_U+%0Z/2QN`$N4(V^W_X6Z+FQZ'6S/0``
M=`/I'@"-OM_^%E>-OM_^%NB@L>BVL00N3%-0Z,:RL5#HO[&Y7`#HCZ],C;XP
M_Q97C;[?_A;H>[&Q4.CGL>A&S74#Z;0`C;[?_197O\\"'NAAL;'_Z(NQC;[?
M_!97O\\#'NA/L;'_Z'FQO\\"'E?H6[$`L?_H:[&Y#@#H.Z^-OC#_%E>_?@(>
M5^CT\[D4`.@GKX/L!+D.`.@>KX/L!(V^,/\65^B3]%)0BU[^-L1'"(S"4E"+
M7OXVQ$<$C,)24.CJ^(E&!(E6!HV^,/\6Z&O#Z#>OO\\"'E>-OM_]%NC4L+'_
MZ/ZPO\\#'E>-OM_\%NC"L+'_Z.RPZ38`N5<`Z+FNZ,JP#U5N86)L92!T;R!R
M96%D((V^W_X6Z)FPZ,>QL5#H`K'HV?,SP#/2B48$B58&Z0``Q$8$C,*+Y5W"
M!`!5B\3_=OZ+Z%7I``"#[`BY%`#H9JZ#[`2Y#@#H7:Z#[`2+7OXVQ$<,C,)2
M4.A/T5)0BU[^-L1'"(S"4E"+7OXVQ$<$C,)24.@D^(E&^(E6^KD8`.@EKH/L
M!+D.`.@<KH/L!(M>_C;$1PR,PE)0Z'K14E"+7OXVQ$<(C,)24(M>_C;$1P2,
MPE)0Z"#YB4;TB5;VN10`Z.2M@^P$N0X`Z-NM@^P$N0X`Z-*M@^P$Q$;XC,)2
M4.C(T%)0Z"_14E"Y%@#HN*V#[`2Y#@#HKZV#[`2Y#@#HIJV#[`3$1OB,PE)0
MZ)S04E#HE]!24+D.`.B,K8/L!+D.`.B#K8/L!,1&^(S"4E#HY=!24.ATT%)0
MZ,;74E"Y%@#H9*V#[`3$1O2,PE)0N0X`Z%2M@^P$N0X`Z$NM@^P$Q$;XC,)2
M4.BMT%)0Z*C04E#HCM=24.@B]XE&!(E6!ND``,1&!(S"B^5=P@0`@^Q1N18`
MZ!*M@^P$Q$8,C,)24+D6`.@"K8/L!,1&"(S"4E"Y%@#H\JR#[`3$1@2,PE)0
MQ`9V`HS"4E#H-]=24.@RUU)0Z"W7HW8"B19X`KD&`.C&K.@IZL1&#(S"4E`S
MP#/26UGH#K-U`^D-`#/`,]*)1A")5A+I9`NY"P#HFZQ,Q$8,C,)24.B%T'4#
MZ2H`N18`Z(6L@^P$Q$8,C,)24,1&"(S"4E#$1@2,PE)0Z$?@B480B582Z20+
MC7ZM%E>YJ0#H5JR#[%&YL@#H3:R#[%&Y#@#H1*R#[`3$1@R,PE)0Z#K/4E#H
M8M&Q4.B9KNBZR[%0Z$^NC7ZM%N@9KN@OK@5154]41>B[KG4#Z2H`N0X`Z`>L
M@^P$N0X`Z/ZK@^P$Q$8,C,)24.A@SU)0Z._.B480B582Z:8*C7ZM%NC7K>CM
MK0-#05+H>ZYU`^E4`+D.`.C'JX/L!+EG`.B^JX/L!+D.`.BUJX/L!+D.`.BL
MJX/L!,1&#(S"4E#H#L]24.B=SE)0Q$8(C,)24,1&!(S"4E#H>O524.B%SHE&
M$(E6$ND\"HU^K1;H;:WH@ZT#0T12Z!&N=0/I5`"Y#@#H7:N#[`2Y9P#H5*N#
M[`2Y#@#H2ZN#[`2Y#@#H0JN#[`3$1@R,PE)0Z*3.4E#H,\Y24,1&"(S"4E#$
M1@2,PE)0Z!#U4E#HA\Z)1A")5A+IT@F-?JT6Z`.MZ!FM!$%43TWHIJUU`^EH
M`+D,`.CRJH/L!+D+`.CIJDRY9P#HXJJ#[`2Y#@#HV:J#[`2Y#@#HT*J#[`3$
M1@R,PE)0Z#+.4E#HP<U24,1&"(S"4E#$1@2,PE)0Z)[T4E#HF\ZY``"Z`0#H
MCZI0Z&'?B480B582Z5,)C7ZM%NB$K.B:K`1#3TY3Z">M=0/IH0"Y%@#H<ZJ#
M[`2Y9P#H:JJ#[`2Y#@#H8:J#[`2Y#@#H6*J#[`3$1@R,PE)0Z+K-4E#H2<U2
M4,1&"(S"4E#$1@2,PE)0Z";T4E"Y9P#H*ZJ#[`2Y#@#H(JJ#[`2Y#@#H&:J#
M[`2Y#@#H$*J#[`3$1@R,PE)0Z'+-4E#H;<U24.C\S%)0Q$8(C,)24,1&!(S"
M4E#HV?-24.@[U(E&$(E6$NF;"(U^K1;HS*OHXJL"15'H<:QU`^FU`+D,`.B]
MJ8/L!+D/`.BTJ4RY9P#HK:F#[`2Y#@#HI*F#[`2Y#@#HFZF#[`3$1@R,PE)0
MZ/W,4E#HC,Q24,1&"(S"4E#$1@2,PE)0Z&GS4E"Y9P#H;JF#[`2Y#@#H9:F#
M[`2Y#@#H7*F#[`2Y#@#H4ZF#[`3$1@R,PE)0Z+7,4E#HL,Q24.@_S%)0Q$8(
MC,)24,1&!(S"4E#H'/-24.@+U+D``+H!`.@-J5#HW]V)1A")5A+IT0>-?JT6
MZ`*KZ!BK`DQ4Z*>K=0/IM0"Y#`#H\ZB#[`2Y#P#HZJA,N6<`Z..H@^P$N0X`
MZ-JH@^P$N0X`Z-&H@^P$Q$8,C,)24.@SS%)0Z,++4E#$1@B,PE)0Q$8$C,)2
M4.B?\E)0N6<`Z*2H@^P$N0X`Z)NH@^P$N0X`Z)*H@^P$N0X`Z(FH@^P$Q$8,
MC,)24.CKRU)0Z.;+4E#H=<M24,1&"(S"4E#$1@2,PE)0Z%+R4E#H+]2Y``"Z
M`0#H0ZA0Z!7=B480B582Z0<'C7ZM%N@XJNA.J@)'5.C=JG4#Z;4`N0P`Z"FH
M@^P$N0\`Z""H3+EG`.@9J(/L!+D.`.@0J(/L!+D.`.@'J(/L!,1&#(S"4E#H
M:<M24.CXRE)0Q$8(C,)24,1&!(S"4E#HU?%24+EG`.C:IX/L!+D.`.C1IX/L
M!+D.`.C(IX/L!+D.`.B_IX/L!,1&#(S"4E#H(<M24.@<RU)0Z*O*4E#$1@B,
MPE)0Q$8$C,)24.B(\5)0Z%/4N0``N@$`Z'FG4.A+W(E&$(E6$ND]!HU^K1;H
M;JGHA*D#3D51Z!*J=0/IMP"Y#`#H7J>#[`2Y#P#H5:=,N6<`Z$ZG@^P$N0X`
MZ$6G@^P$N0X`Z#RG@^P$Q$8,C,)24.B>RE)0Z"W*4E#$1@B,PE)0Q$8$C,)2
M4.@*\5)0N6<`Z`^G@^P$N0X`Z`:G@^P$N0X`Z/VF@^P$N0X`Z/2F@^P$Q$8,
MC,)24.A6RE)0Z%'*4E#HX,E24,1&"(S"4E#$1@2,PE)0Z+WP4E#HK-$T`;D`
M`+H!`.BLIE#H?MN)1A")5A+I<`6-?JT6Z*&HN`$K4.A(J5"-?JT6Z)*HZ*BH
M`T%$1.@VJ5D+P0O`=0/IH0"Y'@#H?::#[`2Y9P#H=*:#[`2Y#@#H:Z:#[`2Y
M#@#H8J:#[`3$1@R,PE)0Z,3)4E#H4\E24,1&"(S"4E#$1@2,PE)0Z##P4E"Y
M9P#H-::#[`2Y#@#H+*:#[`2Y#@#H(Z:#[`2Y#@#H&J:#[`3$1@R,PE)0Z'S)
M4E#H=\E24.@&R5)0Q$8(C,)24,1&!(S"4E#HX^]24.B<TXE&$(E6$NFE!(U^
MK1;HUJ>X`2U0Z'VH4(U^K1;HQZ?HW:<#4U5"Z&NH60O!"\!U`^FA`+D>`.BR
MI8/L!+EG`.BII8/L!+D.`.B@I8/L!+D.`.B7I8/L!,1&#(S"4E#H^<A24.B(
MR%)0Q$8(C,)24,1&!(S"4E#H9>]24+EG`.AJI8/L!+D.`.AAI8/L!+D.`.A8
MI8/L!+D.`.A/I8/L!,1&#(S"4E#HL<A24.BLR%)0Z#O(4E#$1@B,PE)0Q$8$
MC,)24.@8[U)0Z-+3B480B582Z=H#C7ZM%N@+I[@!*E#HLJ=0C7ZM%NC\IN@2
MIP--54SHH*=9"\$+P'4#Z:$`N1X`Z.>D@^P$N6<`Z-ZD@^P$N0X`Z-6D@^P$
MN0X`Z,RD@^P$Q$8,C,)24.@NR%)0Z+W'4E#$1@B,PE)0Q$8$C,)24.B:[E)0
MN6<`Z)^D@^P$N0X`Z):D@^P$N0X`Z(VD@^P$N0X`Z(2D@^P$Q$8,C,)24.CF
MQU)0Z.''4E#H<,=24,1&"(S"4E#$1@2,PE)0Z$WN4E#H"-2)1A")5A+I#P.-
M?JT6Z$"FN`$O4.CGIE"-?JT6Z#&FZ$>F`T1)5NC5IED+P0O`=0/IH0"Y'@#H
M'*2#[`2Y9P#H$Z2#[`2Y#@#H"J2#[`2Y#@#H`:2#[`3$1@R,PE)0Z&/'4E#H
M\L924,1&"(S"4E#$1@2,PE)0Z,_M4E"Y9P#HU*.#[`2Y#@#HRZ.#[`2Y#@#H
MPJ.#[`2Y#@#HN:.#[`3$1@R,PE)0Z!O'4E#H%L=24.BEQE)0Q$8(C,)24,1&
M!(S"4E#H@NU24.@^U(E&$(E6$NE$`HU^K1;H=:7HBZ4#34]$Z!FF=0/IH0"Y
M%@#H9:.#[`2Y9P#H7*.#[`2Y#@#H4Z.#[`2Y#@#H2J.#[`3$1@R,PE)0Z*S&
M4E#H.\924,1&"(S"4E#$1@2,PE)0Z!CM4E"Y9P#H':.#[`2Y#@#H%*.#[`2Y
M#@#H"Z.#[`2Y#@#H`J.#[`3$1@R,PE)0Z&3&4E#H7\924.CNQ5)0Q$8(C,)2
M4,1&!(S"4E#HR^Q24.C!U(E&$(E6$NF-`8U^K1;HOJ3HU*0"24;H8Z5U`^D5
M`+D,`.BOHH/L!.B)[HE&$(E6$NEC`8U^K1;HE*3HJJ0&3$%-0D1!Z#6E=0/I
MDP"Y%@#H@:*#[`2Y%@#H>**#[`2Y#@#H;Z*#[`2Y#@#H9J*#[`3$1@R,PE)0
MZ,C%4E#H5\524+D.`.A,HH/L!+D.`.A#HH/L!+D.`.@ZHH/L!,1&#(S"4E#H
MG,524.B7Q5)0Z";%4E#H>,Q24+D6`.@6HH/L!,1&"(S"4E#$1@2,PE)0Z%S,
M4E#H5\R)1A")5A+IMP"-?JT6Z.BCZ/ZC`TQ%5.B,I'4#Z14`N10`Z-BA@^P$
MZ/KNB480B582Z8P`C7ZM%NB]H^C3HP9,151214/H7J1U`^D5`+D8`.BJH8/L
M!.CX[XE&$(E6$NE>`(U^K1;HCZ/HI:,$15A)5.@RI'4#Z0D`N```Z3:>Z3X`
MC7ZM%NAOH^B%HP1214%$Z!*D=0/I%0"Y*0/H7J&#[`3H'/&)1A")5A+I$@"Y
M%`#H2:&#[`3HR/*)1A")5A*Y#@#H-Z&#[`2Y#@#H+J&#[`2Y#@#H):&#[`3$
M!G8"C,)24.B&Q%)0Z('$4E#H?,2C=@*)%G@"Z0``Q$80C,*+Y5W"$`!5B^Q5
MZ0``O\\"'E?H_:(`L?_H#:._SP,>5^COH@"Q_^C_HK_/!!Y7Z/BEN"X`Z`2F
MN"@`Z/ZEN"D`Z/BEN"``Z/*EN!H`Z.REN"<`Z.:EN#L`Z."EN2``Z`"FOV`"
M'E?H1JH```````#H3JJX``"Y``"Z_W_H<J"C[P0SP#/2HVX"B19P`K]R`A[H
MN)BY7P#H9:"#[`3H<Z(((U!%3D1)3D>Q4.B]HNB3R:-Z`HD6?`*Y%@#H0:"#
M[`3$!GH"C,)24#/`,])24.B'RJ-V`HD6>`+H>)+HI[7HJ;DS5E0M3$E34"`M
M("!#;W!Y<FEG:'0@,3DX-R!;8UT@2VYO=VQE9&=E($=A<F1E;B!);F,NZ(JY
MZ#2@Z0``B^5=P[D&`.C6G^C;_KD.`.C-G[]:`1Y7OWX"'E?HA^2Y#@#HNI^#
M[`2_6@$>5^@PY:-J`HD6;`*Y9P#HHI^#[`3$!FH"C,)24#/`,])24#/`,])2
M4.A[Z:-F`HD6:`*Y"@#H>Y_$!F8"C,)24.C[Y^CTM.@.N>BXG[@```O`=0/I
,BO_I```SP.@-G```
`
end
SHAR_EOF
if test 39353 -ne "`wc -c < 'vtlisp.uue'`"
then
	echo shar: "error transmitting 'vtlisp.uue'" '(should have been 39353 characters)'
fi
fi
exit 0
#	End of shell archive
-- 
---------------
C'est la vie, C'est la guerre, C'est la pomme de terre
Mail:	Imagen Corp. 2650 San Tomas Expressway Santa Clara, CA 95052-8101 
UUCP:	...{decvax,ucbvax}!decwrl!imagen!turner      AT&T: (408) 986-9400