Path: utzoo!utgpu!watmath!iuvax!bsu-cs!ibmbin From: c31293%tansei.cc.u-tokyo.ac.jp@RELAY.CS.NET (Kenji Rikitake) Newsgroups: comp.binaries.ibm.pc Subject: v04i030: kfortune, a "fortune" clone (part 01/02) (REPOST) Summary: kfortune.zoo, a "fortune" clone Message-ID: <8257@bsu-cs.bsu.edu> Date: 17 Jul 89 22:45:49 GMT Sender: ibmbin@bsu-cs.bsu.edu Followup-To: comp.binaries.ibm.pc.d Lines: 448 Approved: dhesi@bsu-cs.bsu.edu X-Submissions-to: ibmpc-binaries@bsu-cs.bsu.edu X-Questions-to: ibmpc-binaries-request@bsu-cs.bsu.edu X-Repost-requests-to: ibmpc-repost@bsu-cs.bsu.edu Checksum: 2012202942 (Verify with "brik -cv") Posting-number: Volume 04, Issue 030 Submitted-by: Kenji Rikitake Archive-name: kfortune/part01 This is a very simple "fortune" program. I just write it for myself. -- Kenji [ Works. But has hard-coded pathname on drive A:. You may be able to patch the executable, or recompile it (source included for MSC), or use one of the fancy MS-DOS commands like JOIN and SUBST. The ideal solution would be to get the pathname of the fortune database from an environment variable. Oh, yes, no fortune posting would be complete without a fortune: The primary purpose of the DATA statement is to give names to constants; instead of referring to pi as 3.141592653589793 at every appearance, the variable PI can be given that value with a DATA statement and used instead of the longer form of the constant. This also simplifies modifying the program, should the value of pi change. -- FORTRAN manual for Xerox Computers Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command. checksum size (bytes) file (between BEGIN--cut and END--cut lines) 45363 25195 part01 26736 24852 part02 checksum size (bytes) file 23179 36301 kfortune.zoo -- R.D. ] kfortune part01/02 BEGIN--cut here--cut here begin 644 kfortune.zoo M6D]/(#(N,#`@07)C:&EV92X:``#,'!`M7^X\@S/D&3EAVJPT$Q0F1X\)S80?KD M>S*C"S)O9":,VYCN5C=UPK`!(28/W#)NU*1A/-<%'3B`^]Z<*0``O0$``+02MV(3L(\Q``#A)P```0`` M`````````&9ONCHC:A\&=VFS<0$=(77 MPV$=#+CB*68[S#$!7`C9UJ(<>@4PMIKOLOUQXNX*>^L(H#MRP@@N,@`R28%B MFZTUT`*6H[.!8D6R'='D&+@#;H>Q.]P2V9&'#L2)%=+NV8&7R(J_1<+0QQ(0 M#5PT:?Z2U<%7P.0@:0!TA4][^C0GA67X6(;9.QYHA0!8=*`&00!3J<76#:[A M4H!5*=`F@(+HF"/"75W)`Z(V(X:V"#2V#6"$//\%:,2`5A1XVX%V)&@'/^AX MTB`Q#P(3(2XM4(B+A2$:`!@N!EB%30!W+>('/XO88<\_30B`AP*+=/!/`8H< MH`(YZQQP!3K^**DB/$#04<`@_C!01P'B`2?"/PYXH*4#BQBSB`<9SC"P$%_`(].J)(#KWT!:"C"`##(,6.+P@8\$OXZ/1A??0&9$\'`.L, MX+TOZ?^2/CIF2![__&P`@,YA$"XPB!\(F=,QC$"`F^7B`0#8Q8;L<8C5!8`. M!*"%#T8U!'&0YP``6`0!:0&M$%@-:^,XP"Y,PC:W>:`8%CC:TT;U`4#XP!T7 MH4,#/`"*=P0`A?`(`"U*P,)A[.`>E1!ANAPQ3]P<1&VL``O%_'",!YA`'P$0!(P@$"_5<$3ZGCR)<`@@D>$\_HE&.`:#P`U?X10+T5P@`<.H9BZ#9 M@%Q@L=(YPAN)3,(X)A`('NQ@"&Y*A!\`4(0B++6I^A!'.Q+A!(9]H`N=^I3W MK'"%TBW""@3PA0,*T(H="$.W0+`$'1AP"641TW.H6\90 M@@(@$`K1P$8L!C`-=#`B&W_*UPJ6,8!@.&(8/YW7J+`@!PB0`!Y(*%<`*K$( M%V!+7]B"\C'2$8E]R&$"RLKO,.:`#[H```MJGL,!T.&`D3DD$VINI$6X)PID M!$`!Y*C#"%SXLP'(H0'QG`.B02"'`L"B`&6"!`\F8`%C M$=X(Q#HH((`A3V,?BQA&-,8Q`&PL>Q&'D$M7^,$H$=@E-(H@P@$PP98S/.`N M8.'#%/X'1CI,Q0%K:<2+V#(&"P!&W?3HRGNP`8@_^,.>$,`%!-*];G04D M`F`+>^]$1K:RF>WL(QYB\`&H0P(8=8U,"6`=!5@$$;@21<__XPX?@F"VM\T6 M#D#@X8D@@@`@5(#2_`-T@Y!:XQR-^0%``A800,"KCZ%\C*3##_^`Q+-:Q8%_ M$"!,8[JZT)7"#@0XI4H&NJ*/O*-^&GW_.T+_-7@!'=X`B8!QJ9Z']AZ(B@` M#P0%B\`#*\`'4;1[0)`(O?=K28@$$[@`_^`'$[!A$&09+C@,WP87T[8.&@`) M1:@/#+0ZU/0`<,0" MZ&`(>6@`TY8#4W)/Z;`._J`(!)1^03<,69<4J=8LA]&`!G`/$L@5NS>!7O`IKL>!^+<(?@<.@,=_A%=P`+`89*"+K>(% M7'$$!``A#P`(3V``"%"$_H"$2CB)?HB-WF@`451X::B-XDB.%U&$430/NL<5 M!T".&*%^W3-T[*``[V<'X>@%\;=M/1`&C8,"/2`'C;,`/7`'C4,!MI$.S0!Y M)V<,@C%,%Z$(5L`/Z_`!RS0`%AEUZ_`.E9@`3D@/D'`/QV`2=?`#@?`,_G$. M_B`+@/`/1K!V`@D(/]`X-K``R4`',A`FF-`#*]`XVM`#94$'$]`#ZU,'%?!S MJ0``8>$`+PD`0+`.TN"'QQ"50E(`UK$.Q@`)50D(Z_`+B+"1]%5PE`,%&]8L MZ+`*_J.'1J`/8-$'7N4&_X"*_(`(KU:#-VA_RIA_SKA_@D=X^*`"P%"$^%`H M\Z=\2(@0`/"+0XB*^L"7!]`G=+=^2^%VJN:7..@/@5('"#!`_M"#Z\``8ND/ M*D@"I`D!P_-J,^A=X_2<8&N0/0ZB& M1<@/02,:23B!3!@`#,A)`*"/=F<%_X,0=+`%@>`'@V)%!["=!J""=E"$\7<$ MQ(<.M"`!%D<'9*!!!I",O]F,SUB8\M9TZ+`$5*@BGL>$`("/&220BS`/DJF- MZZ`"YV@`@?`'!-"#=/"="NJ:IZ$(YLEMZ)`%ZAD:$)(`]HD`^2D`U,F/(_>* M!'!RV1:>`U`J)&B%6*B!M.F!MNEZL$<')[`((QJ,@@$6?K`!9B=\VD:A<\"( M<+$#@M&@`YAQ]:B&W*<2<[>*7D0&'7,%]O"/$&<(GN`/H^`/N6<$"#`*[I"E M!-!3!;`R_($1*V,/&Q)'40<(/%`"I&@*`K`R^E``%V$;HZ`.!3`*YG"G]'"G MZ'"G\G"GO#8*Y'"G_S(*[!"FZGAY```(?!``,%`'/&`$*T,`!@`#[#,#:KH" M==``-6BG*\-K&+$.(@`):@H"FSH(/F"G`."4--5FM`M'B`.!6`/1W!YL=8( M0.,0Z:`(3EN#>[HR_X(1!F<5F'(7ZR`,N*"Q\B!^!C"H->BR/O"G*[LR_)"N MD8:X9[JMB!JG"(&J?7J%7O5X=-JGH=@D!B"CT@J*@H&JA]HX";`RSQZ1`#_V`I%I,.+!!^ MTKD.\R!^M@"RZ#!"Z;`!FW2T;-$&7A4!_]`#R!%K_!"R90``?-!\9P``?J`- MDKLA]]0G3K`(_K`.,-`#;H"TH!"R;X"TYA"R<("TT](#<]`XG]`#=8"TNQ"R M>-`XC`"61K`.&P`)1[`XT[SK`WCG`$%`'%O`G47N9 M5T!X_-`>_B"[TUN@J+JGC1,!6IQ[!S!MI!FJ#O"T6YP)TP;&8MP?J%JW,J1! M@U%X;J)!!+`.KPL,HR``:V<#6%K&&U('*O`_M-(')/#$=7`!QD``+6`$>OQ? M_D"M,7(/VC#'[C%`IL0^83HC&*%NZ,!V'-:6"K`@J&JX=!`"9W(% M0-HJ5^.5R$!?](![D##),&#)P9`$8/$']<#+5I.GBE``B+"-/WD`/!`&?#`` M@,`"(&`$*=P'-U,'Z8#(JTH!H6"G"V``O(8Y_X,/`EN^@]/`;.?>G=,`! M'P1I;TP,7F`B+Z(X.SF\1K`#SN`'$)!YD&`$,DW3\F#3JTJ/OV4`*Q#&P9O( M9H(.'F![3->""((.;Y`I2K+4C=/4`V![2AQR!'#/=%)XUWD&>W6=1U`'!``+ M3B@`B(D(GUNXB6P`Z-HD@#`EC?/*Y!K7Z'H1%).G%!.G'$8Q6&H9"F/E"W=0"'AEP`.0,1=W''!,S8Y?K8@BW9%@`&O3N[HVD`A(P1X3Q% MY%P`2DG8.2,&8L=\ZFPI"-`M;K1?J+JU+Q#$DOT$>X**470#_W``S3PFZ[`` MD#`%3[<#]0`80%`'!U"#_.'+-6BFP[C$_"@`3NP#6UM;S8);?I!/%8`QDFT# ME(H.`Y#<6['7Z/`%`#W:>V63/*(& M`!VZ=6`"9_()8$X9\TP''.T'^O"SZ%`#<]XD@M[1#\,X"$+#Z#`-8'[5PML` MDZJH9Q(&?Z[$J*JJ;H(+1=D^N*`0;'$`?\Z*N&"I;+$/_5#9/D#(5^QPP43` M<:&RP0&$(B\$>:%Z&F*E`'#T#0/]#/)8P$I,H#MBK7A><0 M1G!R:@H#?%`#:IH#?P`#.0#7CUWM1:[C`-"NB_`,T1`.YSX`YAX.`X`,@Y`. M,#!;",L#UCZP/""*X5"<]_`.;">/B?`#F+F*\,P.1><+/#``BN`$?RP`/ZW# M"J`#7H!B,!+!QS=TGI^F'QF!S"+`# MP5`'VU#QLYT4\KA'RN!'<0$`"9`/PRU!P5,`QM!`%Y$.U/`.7CWS'E#SC18T M"5"@]Z"EBTH'2/`_!T<'&L!/R<1)0A`\2]#T"L"2#N`B!C`!5H``>8`"06,! M.E\M[C%M5R\`61\"8"_V9-\`BT!P_Z6<`/#VZX`-_[5V3H``J*@`M/#VC;8[ MJ],/Z=`&1`^B,O`/B.`'[W&3S!B2`!"5@%`'$!"5RWT`]F``0T#-:!V2@/!? M!$`"`W"NM-`#HS('$M`#+)D`]Q`,'$&*TIH/Z5`"[S`)!W6TS7Y0NX@TG``9_/`?B`+`D&`#]49*(4 M0.$A?:DO>&@#%D@!8P\%:'JQ[:X!@F30+=!?`%!_(4`._(+I%_WJ0`\@?>EO M5!P4&9`,2D`,*380X`-RJ'LR!$$`S?,C@L_\!0T,D`Z*@3]0`-!O"`8`1)`\ MN@64<2-4DC/`.0#I;<.N$":^7OC MH`H$H@"@@P[8W^M[_V_U19"E][6`GO&X`88O`.P#_D(EY,&(84;CH`30@@:@ MIA3`G$`>JX,`L`(=0`S6'`\P@`<`%3)"W)/?CH`X6`R`,%(+LZ7__(!(F06H`"Q3`.F`!%NEF0$-I M*`>&`81@'NY8-B!'RAV`&`!W;,"4\<2]+UU0`D(H"G< M!NL@5X2<@$0`OJ`<6#PXS_95`W:P"*G)`I`+0L`!!H]UL`B-AQOH>Z5#6)P`S\&D1(!:JAYZ@#2@`=4`,`T`-0`0"P`U&/X-D173"->@`* M,!4#0!<`@LBD4ZC!B-D7=0\!D!,HQ@!VP#Y8<[4#,XP`]A$&W*%/["KH``,` M`%50#>V[ M"E]\!GX1,":#+$"U`L`.(`:%9040`VHE2)3%.M`'WD,>+8!M`$&\D3^0;>N' MO^P"(F`7=E(=2`&E0T/HCSD0>PJ`+5D')`"Y6"G>.`J,P`"P!,>``%P$FT,` MN(\_4#CJ0@D,@+IG-K"!(P`&Z&"Z5!@UDPZ<`0`(`GE%!(:Q?.`.YH`G!#[\ MH!4@,)1`!X0`$F!Y<^`IS1AXT`KH(PT8`,*@/V20=$$$$IC/\0<+9@#D@T3` M!'!*,'!#D*8`*$A_T"#[Q-E@!-$`.[@)$W`OI$!(^P,"8!B8`&-@`+#``!`` M/4#AT($2@,`&`'^DCY[0']S'8#`'>L&*<)']\8&(`P`I(%%'\C&0B^`(!`D( M8C*&C0GP!P[`1-*!",`(L`$CN`8[X!AL2&CB!+;C#5@'O&`1W`$#H"S0`9[S M#C*$!`0`(``$,`$Z\`)WS1\T`7^`#CC`]+$$3L`)K(-,T"0Q),N#("9@%'C( M@I8(DI`M&09=T9#0QP&P`I!!$@@"04`7;`X3L`,L`!48`,TB&J@#%W900)(< MJ```\M#<`VDP`N*#,4`'D4,T;4I)60?*@;+(`L-`"D0!=-`!&D<30V#*:@#( M`^N(';?D(K`&*^`:*(%$4`7\`1;(`EI@&$P!*#`#I($'D`++03I!`0-@+!`( M+-,'_^`#:($M0`>6CS3@(OOE"BB)<+BJ<,`OP!9]SX\A`>:&#J8``)`#)V`= M(`%7(0IFQY+\(7E,^70%!L`H=)<7F`,P@#K.BG89%Q>`--A!C"<3K`,.)\#P M4#38!L9F'=`")!`\TH$D4$.)@`J(!AO0+I7%`1B/;J3N,0#4D0.8@!5A1)-L M7\8>>:#S`)XV&``<0`[D@$4P#0S'#]E!.<`#[!@3,`@,YC9((CAS';S,!#`` MLD$H4#+>$1A(F;+X,KF"!3`7DN`01)%HX`<7P34`-DWR.TH)`E!BBHDK:`1U MX!]("0/P8%S!,5D!^>`01#X"<`^,P14D!4E@L)2""9`,Y@$I"%`CYE-T$9GW M-+T!_$%@41,85,T3,S5_#GT4`&A3;;)-MPDW]<'Z<9IY_04X=`ZO MF0T&P#*`E7;``%B.;/,/^(D.*`*_AP!`D"20!([)05%BZ6`D:!@194O2QE6I M)NCD'D`!9P=!R)#!(B$!ML,FVP*7+C%5@:.=&/%[?U4C`"@=(Q`FZ,#0.#IH(DHP1=_D,VA##R@<:B`?T`#(MV?BY)^@!TL M`@X`"'(`!RL';8D`)**+\7`(@S78H(T@"#@AB@<,1*<&Q49?L`]$@$&P#_@7 M`\B,!4"=I1DW,C=?J/,[`P;@&6@FD4-R2L7)23D(J.4L`$;A!<[!79@Y->?F MY)R=TW.6%,CA1Q;@'U7'PH,1#@\C\@-=[P]LRX/3!T+;I[$`[&,.R)^NX`Y\ M$Y$13/-I.+$#7O0.:HT@H`-20.K%'@G`*)3/73A8!B`"C+T!+^(%E4`"6`0&<'3O@#M`!);`'#L+YD*(3.0B@)2G:!VVK\2`+!$1Z M9I,RJDT@"$:!(=G#*"J`.M!;8M$+$,0#H#M'4^$9=J%'63:'351):0`F!1)= MP1ZT!WS@?.9$)[5%H$"/U@$6>9,JVA4:=+0BUA"";J%\\(P3L`>*J5!N`&T0 M40*I%\@*8-2*:(`B-$NOD`30(-C4"N"#'##V^,`8^`,%(`?<)#O`!0K1+K4, ME109F#>O8P38@Q60!\T!05B&*T%)T0$LV*=23P=MS'[Z7^0!(!6DX8BA_E-V MB@#^``3H7_)T.R0`<@IZ$F/SXJ@/(!PU)R/P2KFE74H';\#P'``$0(I4@>%Y M-;K3JX0"?Z`<-I$DC9W3X3+A`VN*DQ"`-NUD3L"D>8$>)GWH0!5@9*N*B)#4 MFEI3T>E_P0=%@@II`P`@'5I`C6$+0D#]#`)'(`?P@#MPS*ZI<:UH_`"+H=-UP`@0T.5C!ROC MC,:1/!!^:DWL\2K6:K0>+B-@#[Q/)8`\SU6DR,L7482NJR6D`W7`GAZB1%0( MYH&#$%+ZX#=RU?1*`C2(/!@`-NK7:%=H4/?D`7=='-_U".R`:T!>Z8N'Q0%P MU9%*MTKFCUGM@D3_@B,D$*F$L98".ATTS@ M(O2!V.,'+G0I;!T1-4#T@4E0-U2"+Q(W1@$&R,%=J(7&=>#0)2'A`,8/'C@' M&]3\A(EU8`X0$#6)"P[AUNFQ=[9?5`VC&`?HX"[TT7U0A5X-(WU`_&"70@'Y MPQ8,`8P`$M-MO]`"%2`%M<$BB`>T@`6,"EHP[F28(@@&>[880`$H,&A'Q0[0 M!EB`#B``'G`!T!K+7`3.@-$J`F&P9V58($@'O.``K,I/D"F^*';BAXF@BUFM MZ0;0#$"3()=-H@;96E^WF9P"+J!O;"$&\+,U@5MBS2-85!$TUAR"D1$9F(X- MD`7"(0;D@X>C;QQ`3;4Y`X!1_,*[(!T6P0`8!:S`:+J"$:4UO\$`\`8ZJ7&< M#G/K#8323V$@:V``$`#9LPC8K4YZ=C7G'PP`/L#W[.U-JP`H0PP=`Y!D=FP` M+1`.SV#,P84R\2<.+G]JN,[O!P2`#0`,@,`H@`4$(,FR@R6K:J(/`A@`)]45 M4"$^@``2P-`J!2/WX_H!CD9R$\!)G8F+@`\H@$!P#-C`=_H'PN``^($81'(' M@+%S1`C@V1P"0P`],,@Z4`!^B`L$W7$`;9H9_5%)$:&KV*3Z(W.?B'%H`P%@ MWS&C1E`$ND4VR`0S(#X(@UQ@$O!/V%T!PJ#(#H!A4``0PBW!(/<@'QA7M"MO M/*[/G0`Y@`@X@#]PA3A`]"$``H`/6(#R-0'\4.')NPZ`#\B#'?1W`P`?4`>> M]8JR'Q"@17$!((@"NN`B+(=&P!O!KM@ENP#`[(K=FHH.7`#A40?MX84:@&?S M"PA!%#$&MP0AQ%U_R=S^AVCS`S0'%T30IFH$&`#I/7X!PP&L@&TP!;HB,M`@ M7$(;U%3Z0@X2@17;[B:`-@@$LL\4!()IX`PD0$11 M!Q%`EFJ0CZM9!0,Z4*RA(-PN`@LP;@\6`+8"[(#S0@$!X9[<$']%OB4"56'< MQG$!U(T[8`L\X,]EJ$#@!M0!!'`BLA3[758(K,3J'I?(K$_4(0F*)800`/<@'DR"))PTIP$!@`'WKM(0 M@!.@"N##`A@&=4`X3A*3W"FU0LD_!/\6.N>!JL`QSPBA]A#"8@.#,;2,H@,QOK`#UPQ?#@ M'I@!!>`XM=0],`<$10[T1'AX!PZ`=A!2!,`.1)1B:0F>@`?4!IILJFZ!S"0, M]J?,DWQ>0`$L`+[W31\;+&:Z,(9#W0.F&W_)YC!N=^>8H%P8;\P.IL`5F,3- M%!C(T%!,-K&!)L8(7:$3KR-QK(_%HBCVQZ08(!N!4QPD3D/\9,7I(1[`8HDL M#(KE$\@#0T!=UN)P=(L)0"[>Q=B@%_]BB8P,A#$Q%L8?-SLLX^W@C!<`-(Z= MA!$!;``KH``((P&8R0;@(K]`;*P^I^H7V`+S&"8T@2D``J1`'7`#+8`*I($V M4`9``!-(`V)`#H0!.9`'0$`+``%#X`W`@3P@!]+`&4`#=``$H(`QD`)`0`S( M`3@`!UBS)I`&QH`<>`-SX`V8@;"4`'(@`Y[(LA`$=P`7JP!R0`US@#(0! MICP'N``;@,I<8`V8@3<@!Q"L&R@#+H`.5+"]W)?_S&6@,!]F,9"8%W-C M/LJ063(#@,@,!T"`&4@#;*`I:^4RX`9`0!F0`V]9#N@`$%`"@DA>!@"4V2\# M9L%,F`TS8E;,C-DQAV8\L#YRLV7FS9G9-W-FX/R9'W-D)LZCF0X09].,FE4S M'&#-KADV,^;97)L/CAPH`V&`#&3GV#R;W4`=:`-BX#6#`+D,`N8`'>C*;N`, MV&8S,`?*0!E8`RB@+'MF$$":J7-J-LUAH#J3@8-#G^TS?M;/C)D_2^>P?)K_ MLQD(T*EY0+>$KH(16(51N-`T`5NT2'()&6!A:``"$L%E3"P#`2)P'`"`".*J( M$@"PKJD&`+HK"P``AV0)5DSH!0#RH%8$@*!%-]A``*`"J1H`*($I0`58`AP( M!`X!(Y`"`H`*1.A1;@)OP`U0@3I0!JY`&2`#5``-D*"N/`7"P/I0`F'`#1B! M,B`&FL!4#@)P0`ZXZSR@!(YRO68#0:`.G($I4`;@P!,8`W3`";P!.T`$RH#/ MX@@X`0%L6A[@!(;R$?`!OX6JV@`80+$;@`*XRNXY#(R!-;">[&4`<@H`?X+I M`````````````$`I(R@``%^H:*``A`H0:\R\D4.GCILR.D"$`6&GC)P\(.:D M:0.'31D0(A0R=%A&!(@Q;-X\)&@0!,N#0][`R2,GS1DT=$"@&),"1(P<.'*` M$(-Q21DW:M*`D))F31HZ8=:4'(>7-&3I@V(.B\ M&?JQ#E@R($1*=(,13ATY<-Z`G4/6X`N"`JLF1!-F#IJ(K%VG<7,&A&+&CB%K M3KBPX4,7=."\/*V`X(C9*.N0^<@#+9DT;UR@\6$<.1OES)VS22-&.G4%Q]TD M7PZ"!YV-4Z<3)&CG31K,EL.<*8.B_?L4!/<03&!&\6PZ9J#@G$5RT"5"%7/( M!Q%"9CCF!AEO0,8#<'!DEH9'/G#AA@@I[+!?&7@\A4(,'1+4QWH*_`="&V', MAH**81BD0QJ= M\1!F*J*U%EUNU-%&#%AJ*0-=:="E!I8QL$$F&EC*8"8(;LB`AI,)0&G3E""D M1)MMHG&)YQPR.+E?&F;HM.,8((30`P@R]!3??"B4&.2?@:*`0G`@'*H0'$>A ML*,=6\30A8%RB+$"ASWU<*@353#!1$]`)L"??VX`*"`=R\E1($@46N@1"#(= M!0*!"T54PAP:BD#7IIUVX:BK((J8*)P)G%A%@MN>U M01^JJIX+IV8OA@O##B`HQ8-.*:^*O'M-^`![MW307?G M?7:=C:<0]L'\RC#VXIVPTZ9I(_'OB+:8-0^->')U[YG)>W MGL;?KTO>TNUFLYYYYXY"ZJU2/L<`-+H@!`U"J^_^)R^M%=-A((@VKGW&P"", M4`(9'F^&V?<@4[V"3UUNF?ZS[CJ,HJO=HF`&6&6LH2U=<^LY11%%+/'%_E3H MB:&:YS5712]>LZK5K4)"/_OU1#.Y,L.%/F*&%GD$?/GK7@R*=3"$A4AA->B@ MP\!6IG"-JUS!X5P,T&#",I#+7-"*W_S*4+_[[>E+(-A?__Y7A``62FH%=%7$ MI)=``AEHAC5\8&`B.,',6/!L.IB;YT:P08-!RX,B"N$51]BFK!SJA#!T5YM8 M^$47HG!;,8P4$NV'I!O218?^`Z``@?@\PPT1@?-:X!K;!D%*27!7%9P@!E'7 M/1EP\(H)0X$6#3?"^'GFA6XH$UU26*ETK2N(!YP8K8P(DCO4A`X?R1>;RG1( MPR6285MTER/]4JY(HBDRVZHD"-3%KCK2[HZ:5*"!//F44-HJ,*XL)>U.*4)W MF<$,UW%-&+\FPP;:,']OY%\<>SA'`MK2@+B4TAPBJ7G!0!+T'YJU_BJ(OF9-8'%U9,9K*3 ME2@8(SR91TM,9K.(].KD)WVYF'^Z*:!85!@J&6E,9%H&#2C&+@20V M:.">!-V`F+U\S(H00XEH[(65IGUHH$%SDK0"`MRGQ/T"`<18``!_+P``M!+. M8BF`A3,``$4I```!````````````:V9H87-H+F5X90``<@H`?X19```````` M`````$`I(R@``)MH*11``P`"`$``&`?@W[\]`P`@<-6)1$0`'@!H#`!`3P!< M`EY@BBB"0:(<^#]"QRS(*Y3'=//`M(4UIE^E3&3R-%!*!4*[@I1@)OQ"B` M767X5&:/%>CH\H%4"/Q%AVG(I*:8`%1254!2Z-`C@%97Q(0)S)BXM&.F4\(<()6:;-+RYF1D`EA1F3GH`)(G`4"4ALL-JJJ& M3A>NNL;F$[3::H<[Z&RQ:Z^F(1&L8C@4B\MKZ*B0+#HG,(`<<%AJR64O'H`I MIFE93.M4`=;&BLX]`R@XXT(CT*+ MRR/Z[M+OJ]BV(G"MZ*BR@%9'[.`'.'/LYX`_B12("RBJYN84)`\3@(X_'6"7 MZ\1>?+%(.5UP10L,S83`@P!S"-`,"+](NH@-(*YP3R#^``"!'`/XHK0^CEP3 M"#%N,+#/'!!8\,&[`.!%`7,H@-;2T80` MV(!^9KB?-G:AN_[]3VOM>]_YY#<.&S@B&#/XAPD`T0,`T($%N6```'RA``', MPQ1T6$`N_O$'K\G#%77(P#K*80`/'.`#B[C'+V0@`%9@(A*L\,>A`H`$58CC M'EK;!4(`<0H>_@)\1,B9'!1@#V$`@@X%`,0C>`B$)>3A'+Y00P%^(49TB&*$ M8B1C`="A"``,PROL\(4;#/"+.:*C#V@<(QO62`<`K&,`*(8%L`>^$N3L`X#P`15`1(<&>``451"` M+JT@`%KX,@0?&,8.[C$'!3SA"8MHP#CL\8]HK$,>TJ2F`P;Q#@(LH@`+*$): MY/&/#JS#'<,``!QQP0\V[>%-/M`",2]I`7TBCTUI\`_-AH&2=&S!'UE8!#=6 M@(TI[L`#7!"`',PYCG^$PVOI*((_K#`#>^0"*3(@!S]8(0-PB&,?@*!'%8J) M#E>XQ2KH8,%)..*%83S"`%X0@"Y`A`,+1(\.*8B@`$S0/OEISPFD`T8F'`F( M#+X0AOLXPA$2X0,F"&"%_WCA/:*QB&C\@B.^"`0`',&X'O(`!'38!P\20(=[ M\*`!='B#`@ZUAB,X@15GI0,ZUDH'`:QPA&N;64C/&$%9^/"Z`C$2Y(G0T= MX8V.)F$<$P@$#W8P!"R&#`!%*`)XQ:L/<;0C$4[XW`>Z,+.:P=$*5[#A(JQ` M`%]@L14[$$:3@6`).C#@$E[#Z@MSN(YU6.(+7FBT,$`$QRM41F7+^(>8*"") M1>@CU`[1:C224$L`T`((.9,9S5;-2F@,P#$!D$,-!'`H`BP*LXP"0X,$$["``6$Q@%V`0P#4P,8H1;$41 MQ%C'/>`8%@B0Y4`$^(5#[$&$?LGW$@`@N@&`H)9T.`(`7()'`;2R"'PLPAN! M6(<>!&#M:>QC$<.(QC@&@`VQ+^(0'A@`7_C!)1'(9C**(,(!,.&4,SQ`*W_A MPQ3,4D\Z*&564&B$CIPR!@L\2O#TX$N7L0&(/_A#L1#`!/:#]0VU,,$0Y8A%^8 M#`%ET25LZ.#'I`SP1TC\)M4#[`6M_-3JD\7;_P./]4*C,]U6& M!.,;H.JOQB4X(!GF-'O"5C/J!Q;L4"M`%SX`^`<`+[H'0, M4`9(1U8`1(DQL0AC1,40<99`?Z@`Z]4`&K5P.`0?D1P"0@`MPH`!<^(11B`_'<`0@(@#&<``!L`X(``EQ$-H]0"/@1U0,`7H@`K>4BB+P`5Z M:`0$@`@'L`X7``E?)7N4%SP/:0@229%&P`\YX(I-MP[^H`@JV8?4AX"/!G0< MV`'O2`<7\`^BA`Z-H(6388H&<`^J^(1.N(I>0)2!R(`JR8@1N`@3"`X5*(D8 MJ'C@HQAD`)7^X05/>`0$("8/``A/8``((!?^$([CZ)(8R99R:0#FI($"Z99V MB9<<(1?F-`]-^(0'@)<:\8=O%(@*0(AU.1=[B`D]$`8>A`(](`<>M``]<`<> M1`&_D0[-4(*\9PPY&0"YP!&*`"'K\`%?-0"H*7[K\`XPF0#G2`^0<`_'`")U M\`.!\`PW<@[^(`N`\`^3,QB`\`,>9`,+D`QT(`.5V0,KX$':T`.'00<3T`-] M5`<5X".I``"`X0#!"0!`L`[2@)''$)Z'4@#AL0[&``GE"0CK\`N(`"&(QGFD MX"2N!GZK<#$3F8A_T0?[X0;_`)3\@`A%YXS0Z(`^.`V/*):1.(E\@0\J``P$ MR9*(V(7AB!``4)7=")3ZH*`'$#=#^9@*2`!6`'0,&HW^D!MU@`#PX0_6N`X, M()\_.8TD,*/;"(L9((\/6H]"J(M%F(^B]!OK4`,.6HL1.I84FI/T`3)7&87\ M<):)((ZK6(X!0(I5`0".:7UE(4ETL`6!X`<&`(P'4*:&.(UV,!B*<`17B`ZT M(`&K1P=D0!\&X)6."):0:(%EJ8'ZAPY+T(YKZ0_E"`",R4ISL0CS`*)NN0XJ ML)<&$`A_0`#62`=I6JG;6!IO&J=90*>3(28)$*@(0*A?&HBXMZ)APWMQ9P`6 ML3.]^([Q.(M!>HM#2H1&2`"!CH8`6X8`8&X!2:4"S:)[-0"P!]P`!#:P"A`+7W@`VC`+7T MZ@(8YXP):P1.NZ].`0=4"P\RNZ]8JP#ZRJ__X``):[26:00>)`,]D&AT4`,] M@`8>!`(]L$C4R#L'>R,^<+"3E$4\P`1U$`!&0*^3M`'I@`#Y:@`'RQ'K,`Z( M:P`0X$?;\+FEN@[3@+>)8`BI``]<`0>!(98,$FC:@`K.`BJZP\@ ML`B[VP-IX$%:X`?[$0M!^:`#<>@`27>`0L*%^-\!$.D0Z* M\(G.6+"\,SD:T7EL\@=+*`RX4+KR4(<&T+#.F+L^D+"VRSMBP*\G!PD0'*\- M80`).[<((;,'"X_[08*_,0H'NW;,!K6ZVK4XR0\R&[$>E`"\<[5^)`&0,`@N M`+4%@,(#*@`A#+6#(+X&A#`^P,)T\)TYV0)K M$K8&D,,[3'XH]\(63,/G2A5!C`[`0*CIT`^<%[KI$`/_X#+D8+TL0(==N@[S M4(>VL+KH4$OIL`%N(;U.T0;[$0'_T`/3(5_\P+IE``!\`(9G``!^H`T<'*]J M$3=.L`C^L`XPT`-N,+V@P+IO,+WFP+IP,+UGTP-SX$&?T`-U,+V[P+IXX$&, M`)]&L`X;``E'P$&SRT$E4`?UX",K8`Q0X`%<$@IO]W_W0+E-QP\JG+[Q6K+< M!K_V(+]HM1]SX`_>BU,'R!6VAP%D818$H``.:0`%V\AIX2B+"[IU8`':^W\E M>@68DI,/X@\]W,60*K,%ZT$1<,Z+<`!K-Z,KZP`8Z0';>P"9L';M_,X_++/^ M6TSTP0\+H(%8U$KKH,/^B@;_9P.G*,_)K`)FD31]\!EGH0!U<`'&0``M8`0) M/6G^\+4X<@_:(-!6<)=&@`^<6TDOK1&"APX`&#;]&7JP@PY7T`!@(K,.3`[4'@72\P4\VV1P"&C9/N?!9G M`&':?`18`0OG*``7B@@Y"=3)++'[&J^``-O%]+8#/K<<<3HK>#K[^FJG[L@=#K<@/N$C;@Q)[,,R:@`2 MK1%P7<5S;0#:6>'+@PSU]X5Y[3((`#?5]Q5EX0/E^P++3!?(@@<.`)3F=`/_ M<`!, M9;.K0Q:JRAMH/DE0L`YX&.?%30`F4)E.40KTP.5Y/A?(:4Y\ M+B8=D.3_L.34\.FA7J*`?NB)ONCD@)Z._MWD*NF47GN0^7,BKHKL;`2+[0,? M6QK,]ML2P&P-"V',%L&'.[$5NPC:/=?H$`%Z4=DK@`\K1!?&C@Y?\-@S#F'(R0_H MH`:/S<)U8`)$_0GM_B9B^MKZH+SH4`,`[\BO74_Z@0X=A"6^C`[3T.[J[<0- MX+$52]1AT/`G*K,TBT6X4)U_A`L*X10'T/!<@0L@"QO]H!4R*]&137I5Y+\`S1$`YS/P!R'PX#@`R#D`XP M<&23RP-A[[@[&0Y1>@_O4'6&F0@_8*+5_-<+:`6^(`H#H`A.D-D"(-W$K``Z MD(/V\,9I>'[^YOBUHGM''3K!5\ZJV(4*2I%3"GM>'C\/LC!SX)`*GW M8`2E>D5(8!:>1P<:,&314!5"($5+(P`]TF>2$#&83``A/@*`.0(#PU"L.@#TP`*E@K&&%V00( M)@T!L`ARBQ;T@)PQ!R1`#_!-">`>!`,`$$KV0R@``/D@'92`=S`)-(OT`D,` MH`#4@01@_$(`^(@`ZP`=H*9^\!$`0!0)`57DBA``0.`$^`$0L`GLAVK` M2B9'>$H+'2`%MK#'\FMR1CKX!;ZFE,`22@,^AD#.6`=G`/CDI!"X'T[!!_1- M^^$3``"LB;8$`3!$JN:@`H``WD`F6@%-$&N!`4AA8*8!'RR+\D`"P`AU`#.A`!N`!D_`` M:!$>(@"6@Z([`N)@'>@R88!JTD$5:`>#(!^$$J%H$^E`J3$'')'IF`8KF#/N M@3!0"$M0$?X#D7@-J0$L4`#K@`6@IN0A%LFB'!@&8B+?^8$@1P<^`"$,?P$@ M_ZTFBS6'N-D!@`6E#6=9@@.X#BA!)/1HVV`=.`W;,YDB8O23*"!(^`7!:L`. M."):60#X#_Q)D75P$NF`&SB`-L1K*)ZUPP]^SHO8$6;`ZF1$*G`67T@=4`+H END--cut here--cut here