Path: utzoo!mnetor!uunet!ccicpg!cci632!ritcv!iav1917 From: iav1917@ritcv.UUCP (alan i. vymetalik) Newsgroups: comp.sys.dec.micro Subject: RBDEMO3 V1.4C - A High-Speed Video/Keyboard Scanning Demo Program Message-ID: <63@ritcv.UUCP> Date: 2 Jan 88 22:40:53 GMT Reply-To: iav1917@ritcv.UUCP (alan i. vymetalik) Distribution: na Organization: Rochester Institute of Technology, Rochester, NY Lines: 496 Summary: Written in Turbo Pascal V4.0, this demo is the DEC Rainbow Hello Net-landers: A while back, I promised to post a demo program since several people asked for (or e-mailed me about) a set of routines to that could be used for figuring out the current screen width, accessing the high-speed video option, and getting key codes back from the keyboard. Well, here it is! The holidays really messed up my posting this earlier. A note to Rainbow programmers: The demo program which follows is intended for those programmers who have a background using Turbo Pascal or another high-level language as well as some basic understanding of the Rainbow's architecture. Advanced programmers may already be aware of these routines and programming tricks. However, I am posting them here as a way of getting more people interested in using their Rainbows to the fullest. The UUENCODEd file which follows contains an archive (RBDEMO3.ARC) which was compressed using PKARC. Extract the encoded file to a disk file and used UUDECODE to produce the .ARC file. Download the RBDEMO3.ARC file to your Rainbow (remember to put the communications program in 'binary' transfer mode) and unarchive the file using PKXARC V3.5. After you extract the files, scan the READ.ME file for some quick info and then run the demo program. Afterwards, scan through and tear the source to ribbons, if you like. Enjoy, Alan Alan I. Vymetalik @ {allegra,seismo}!rochester!ritcv!iav1917 Prism Software Designs 44 Arborwood Crescent Rochester, New York, 14615-3807 1-716-458-4932 DISCLAIMER: The above statements and opinions belong to the author. Any resemblence to statements found in actual reality is purely coin- cidental. And, as always, the above opinions have absolutely nothing to do with the little, fat man putting $100 bills in my pocket. =========================== CUT HERE CUT HERE ============================ begin 600 rbdemo3.arc M&@A20D1%34\S+D5810`E"1@``"(0`8@_($`>```,3;0``0`!0"0`)@`TJ]`L M5J,!W/X!`.`%P40.$P'\R`@EXY>,>3).RO@MX[F,[S+2RX@@P,0&+@%\B,DB M9HR82V)"B7DF)IN8C&*.BHDJ)K*8S6*^BTDO9@8!$SU`!:!E:INIG*:^FFI@ MP$0'7@%8"+LA+)&P4L)J"2LF[)FPD`"$W15V'%L"$^/@!=!GKZ"]D_9ZVCMJ M[ZV]R?9:VXMN;[V]^O9&*#`1$64`HBZKNBSK\JW+TBYKNRSN\KG+&@Q,%*$: M@(K6+UI+:0VF-:/6N5J'L0B`$.]$O./R%L6;%>]>O(OQ;L9;&F\$"29NB`Y@ M!/4'`%+H4```4L($"A"0\-1/E+%QGX M":B@L#!@**)1&F,`GP!8RB@`FNQ@0)1M=C&,G'069!$L&$#Q"UY^:E(!`-P` M$.JH5Y8*P'ZHJLKJ%:["*JN;M&+)3@"A0*6J"0\<8((B!2!BQ#^*/#LK!47( M(<<;X,YW)LC MSJGBC..MM^A>E;Z6,+??[BRTTKHI#%[LLA/"UEU_S3;K9?LK[S>#MVUXZ_ZB M(P"TT$2+0,V+X(-()8Q.K5KP(A#OM;S.:YY\E/*J;GSYAT'$R00"HL@W`&\MD!='.T> MXLA>((Y!B7_X*5K]J)FA,I`H`'3P@R$+:_I;!S46IA*"8"0QG2<$PU MLR$`<*C#8]!C`3\T0A#),<0B3@UX5\I2`"8V"HL,P@>\J<,/;*6:7*T*`*UZ M5:S>:)$`U&$$=+*(1`(!1P!()&FV@HH==]6K6*UC'.O012CP$@-IY`(``;A' M/"2QNTD"(!<6F08ZB&<"RT3K'V<$@`2,$`8ZA($-(*C6M>2@`Q`,X0ULZ`$( M$@`";(%`"F^X@RX[H*TY]+(.=)A#&LP%`CJ@H0S=^E:XN,6&-+0A#71P@=78 M40RM<6U\OMA#^8YFJ$,(8&;VBY>^O0G]CH;$T\HL(%&<0'Y/"(Z(,!!P\H+L>XD86/_Y405$HR% MD#6L9,'!#_X9H(,`)(`=*N&]JEWI:B`(0#XOFT3%;M:?3W3LXEZ@-G`4KH-9 MO&$.\;'#+SK*IIH8@*(8==S-X;2G?H/"$=5FR'H!EQQ:Y")Q>>C#FFXNN5%" M!R[Z85K4CND.`TC'&U#IN^^E<5ATV@L,[MBJB<3*DT05Y2*PX20ACFT`013>(,9Z'"',(!+R&50YAG<,(<6@``2+9`!%6IL M3#A5`(`.1MR#NNS;'!2*^`MW-(I7I3A`E$;!C@R`HN2' MK6V^]I7;?P6LY9^-X@'>Z/'%&8!.**?X'^Z!MNCF"AV>X,?),P!/:O#\;T-/ M>6+#BX=\^!,6%%!Z9CF[671T(1^_X,`!(O8+?7P<%S9]+FV73G58M(">_OK% M'S3@*!!LSFP/!\8HY)$!7+1@<[7P7%SI#@JZ*UWM;/^3VPWENI@CC03R`H5, MU]YVZ*'/#\!0.:<"05"'0'[Q@,PJ41.4CV(.Y`4(S#>>\,KS@^+) MWG>BPSP)G@/\Z34!=[=F#9[JJ$?/0U'RLP,@$Z/;8CX&8`"Z%^`!D)(4QNNU M"!_071&%\+JA$*%D@<]"]-;#W_P/@.^!SY4[I&/ M`A1D[AF@$STR$"(ZV2,#+J$3/O"_5@/`@_\``1,^\+]6`\"#_P"P`$`!)2_# M0'H&?^G+X.$*.D_Y<`D2B,Y)O8`#"QY,J.2``X>$\H6RER&`@8*A\)4T@!`4 M-@PPR"V"%HI=AA90`!1X`F"%L!TG,_0Q<,P`R7__!ODH*&!H49(!`"A%>,$/ M40,JD4[-T/2JRJC_#,#+$,C'6&0`Z`Q(%^K`]08+F86_=N7L%^`4,>\#3-GIEP"`-S+5^"! M0%@(H/S"X]%A,7Q^0O7KZ1+0\N9\\OK`B,:S_V0=J.;_)`)4-E^!UZV`GKJ>09:>P58<)H%JD6`P$?H1'// M+^(PY!`&]X@R3@:^03&@?I>]+4A`%^-Z/G/ M748:I`DB`_"EB3Z#`O#+$(`^&BF4'EK*UR]45`KIIF`VI.E@O-AC)IIJI1.. M/VR6E.HU_L!B(CHFS(.1;QA`@0X5^*"3C#R)L!,#,)K,$P!?`%212#FPA``% M,589<(4#Z!@`0+!=*$-`LAXLPHXB1C#@@BA``%",'0CPTPH4K2R"3;O(M`M- MN^BLVRX^]CH"S`=>8-$,`)Q(6X6WT$+`SRJ+#(-P,`@+LPH6"!OS\"J,8#,Q MQ!]D:RTD">CB2P".:,.(`:9PL`@Q!4P`0"P$3(,.(](,(,PHJG`PBBLCR"^8D@/X! M+J9H0".-N'`#@(#43N`1.G\<@/H&JS/I.NSHA$4M'`N`A@NO:"X_(Y]MHGCDOIY%/_."YUF!X* M,!PL8(`P'-"1PBZG!(`."0"$X@L'Z&`!`'9A"_UAH'_T0X<.^J(#=/#D?0!\ MP0!WH;^H+,,%BCB``H!!!P.@`P<`&,(ZYC&,6)`!'0=8F0+0$9IU$$`&Y+!' M/`@``UUY``!84`0QA@$%':(C*EB``LND@0YT.`D+)'@`#7F@`SD(@``'4`0T M:&&`M@U#"G5P`QW2T(8R@*`,.D#6@ZC#@LP`=5H"8!@NL!:_N,`+9C0-GXL M@AN,T(8-B/$'!-B@&'<@`"M4H0ADR*`=\R!%R+0%`'OB4Y\`5<`^_V``&RSB M"0+503#L(`!%!(.@!D6H0K6AC#;>\*4G_X$:$H5T8"#LL($.ID#`M19@']XU![0&$`^CE!0K9)T6P[U MP$S]R4\"*((!!U5I!61@CQ5$0PX8P$54>$J'"0C!"$>(@A6N,`]3?,$+6>@@ M$)10AWAD[0/*X.I+(4I3E)Y5$26@*S)TP`R.*H(9"DA&!P]:V3H(0`?$V&I7 MN3%1`[Q%%390Q!$(H(KB[?:K?Y`H0"NZB.%>-:LC58:U!L:.0+`#``(H%``. M=05H*4!:BA7((HQ@`"0\KQS^@)8#I$6M#OQ#NWSJKA^^>X5_V,$`N.#D\XSA M#VH-X!_>E99]+X0.0OAC$>7(%@.2Y2WK8G<05@&`'X:@7>X&^`KAA<)X$6!> M:BW"'_"]RX4W/`#R,DF_U(I#?]'ABO3.%[PH1H<+#IS@T!Y7G_Q4[AV8^P6_ M/N.@,@#&/`BZC(3&`@0J6(8*GC'DA5K+H2C-!02&)^15+..D_*RH):U$LVS1'BOBQ^T0JB**'%V3\K:O M<:YIG\$L9C*;&+V`;=""`).XQ#TD8%QTU`,`D<`$(`.2BC/8P!B#JH(!HC",:TO`' M,L0QCR`#PAQ_6`8Z#K@)%WS#`";9Q#8,0+9-9",<%N_')KJ1C4TL(QS_"`79 M%N$!LV'5!?2\`%$9A#0` M,`JR)<("9AM&`0A!"Q:T[9A&1SH'EG$%>V)C`=+H0P/N,8U[2&,0PPB`T/O2 M`E7X0A,&B$4"7+`#*@A`#@>X@[AVP($Y'&`0QB"`/Y)1!W;X(QBP>($_@.&" M%7#`!1MP^QSJX8(!''X";L<[!YD\XPLK>,8P`*`,3>P``.&H1P$`80E, M```(0C`-*`P1%0B<``"#<1(`R`![`+01]E&!?=9F((T9V&,<6>!E#U:`2N&W MX)>03<(XD"!\$M"!""KM`"#6H0-`#$,!PO0YTJ0P='P`!=["]#G2I#!T? M`,/R#3N29)P^$XHZ`-H71LX`0.M`0-0!:)@".0L@7JAH8`ZTB@IN$8@&+IHT M.=3\/:MC3\%`<='6Z:JRB-T@=B`6&7&PR`J$1G[`63B`3IL_#XON6?A`S`^" MG@9T,M@AS(^`1<)V*+.Z2-F.8'VN!N.G:D4P.@BB+$(&"\0\55GFD?JPJ%P7 M90P`T&375`'"!C+:'1F7P`2@'B#J##@B[AZZ`?_D"""\Z-D*)PIF`)LAK:D! M$XD:W$4`8!$W#S:(_4%@H]@=`OPTK\(%Z]IL0`!6R5ZUJE$1.JL8`9NM#T%P M9+J!Y7(`8-XJ5CR>V!$`ZXDB9('ER@"FZH,RTJ93_U%@8]$1`J"+$"A_Y'.B M(@S8(TCO0'/Z^>\5*%,`0%>L:^L@H(LL``Z@RRS7A*<:>HL4(4`/_]$A00\$ MTM%`#[59>(P!W7!@!@#KA"`%.FL`H(5]B50AP'WI*;`+!`"@PP4`='QVC(.U M*4-`:=R(1P`Z'P"@&#HQ`*`CCSZBPUP=":##`@`FW$C=-4>:$$A8$3I@95@5 M&K!AAV<`,,PN%$!YI0`5'C`,.O'\LPL'`!APA9PF_)/!`L#0,<`H'7ZAIFFH M%?,'`3,D$QHN`/1P9H0-P"+`/P6"6"VZPTO(#J',(H-D,V^R`#1T2W0N`!GH.L8X\BTRS`C2Y M_///M^&"ZFT'M``!ZC":'0FHCR844P4#KS;!(,;[A@I!B_;=2!H`VT)Y(W\@ MNO/Q@B&/7/)\^6H.%/4P<]BP"=_W1!`9YZ\LD!XZ_&_>K<)M3-@!G3:<=;#M]A69RXV>YWCKG8:8)B`2P!!^ MTQ%`X824[]DAYG#KWKG=H&X(_W MT<$!ZZ.#`H80!",@@@`[8&(=UK&">"!"C),`HC(,`("FS,<8!0#1/,*(CD.4 M\8Q/82(_6"$#@@P/^&$<&@"*`H:"#`/J00P(6D(PZ%*`+@R`&"):A-S4`X%_2 M6,<[6KD7G:"@)RK@IC>_D(^FL``=ZYAE"'1B`K/X80%J80L(<'G*+#1B.DLA M93WZ445TF`"(Z03!('G$"&VTY@[D48T!RO,$V.S@'G,XP`#B,8!\..$)_9"+ M([2Q'R2IAC6+>,)(%7$>?KSE.WJIB6:@L@!IZ`D=&2BD4SS@"`^8@@-DB81< M/G`7`;Q3&K@$P"26X0@#//47N/E+8(X`,,(8!C&_9,P]DF+6PX#`#HMIS"*. ML0)CT($`0U!"';PQ#`!`P@`:"5)"1$5-3S,N4$%3`"5',0``(A`!B**8KG4` M`'L:*`!!4$J9-F_LE`%!!\U",V_8L'ES)XV;,R#&.!RS9@Z(,&[(9'S3!DX: M-F7D@""31DZ9,732*/28Q@R(/&_JG'`ID"`(.77J"P31@Z;-"E=$&1"5B%#AW/*]"0XAJ1) ME"KKNJ$C)R)-FSCK?'0)HLX:89)9IYIEH@ADE052D00=*.H0FIYQ3!-$$%$P4`4*50X`@11!) M."'$$U>`$`.'(""1Q!%(M#`%%$440815253YQ`M+%)'%H$%(0427@1?CY1!16!%L&E`EU:D=*1;L0IJD^V&ID&DC&X0,,0:R9:%AEW ME+6007'4H209NO+I9Q@6-76'H1P&\8(0+ZSP0@PY:"5&5`1>EP=V![&`(0U+ MK."GG<5.$20=R1+&K+,N05L0M6Y8"T(3TA'QQ!16W?HK<#)D54-8*B4<0PQ; M7>7"H>K6!.JN&`>&8QANN>G"QRFHF]YB4$E%E54):]6"59'!4"R+"DT$1QDB M,:>KG%+PZ^^A,'@[0PQ-B&$NNFV\`'`+`A-LA<,QO#"R4R6W<#'&HCK&0B8W5EKM.UV:%#8/4<;I,U;[T(L'G:&&W,HOCA!--``0A!, MB77'&V^(-(1+4I5-A^:;2_$&:^C*H:X395R;A5AKJ!L##3;$4$,+(<)P`^N+ MW_!A"S34@`/R.J!$C)R9$'"#+HG@,..!`4PPTZX%"\ M4H<)E8L().%7L4(CA#J<80[JFH,%58.=@V$0!&DH25\4(J"]?!`D-6L(4M)P ME*AD!'!C`T$;J(42D=#A#6U3X4>:XI8PD($,J/.(@\K0@AF>I&LWE.']#%,V MZ_@0B`N:PV70YY,@U*$A8CF!1YSP!N+H8((^H8)^%@(VMXRM;"``D(#Z8ICV M-6M!=/`(1%32(`%=)PS"68CAT%`Z.8JE;=I1$(,0HT-IY:Q:%-$BCM)P!C2T M8`XSZYH=6%@&I[`$DG^[WQS.19PV3#%48GQ(1"92D>\\C3$FJPJ"7D>SI2QH M,&(K`V)<\KZXB,0B251AVZ#0P+,4"()&-)M3J"620_:+(H6)BY&R%LJX_"0G M,7'#*\L8R[*UC8FW!,X,W7"_("D1!*LD0QU@0A.S.02<43F-1<(B31#,$7(. M`DD7]?/).24!1V^8V4URXDZ+V-`AD&.B&6#$3+@L1%GNI)99-!E".%"(C=%< M$"!OE(03N(4O:+&A4V:XAH6H$'(N#$I=A$.@Z(G$A7!XPR`G5(:LW9.);5-C M2G+BD>/833D>9.=;%B0V,R).#L%V&A4Z$Z$Z1`AV M0-`B,Q`(+7MYYA4MLJ"LH>!V@ID*<-10!S*HQIU_3)^<`F,D]\W$,F`D2!)L M`A*Q9+\<6@8-+GCS*DU"-R3PVY\LC+E8%0,5WPE98\+A[+$9`PP M*@MWRJ(=XJ@DI8=9CANZ-`2PR2$&SF/R=6XHAS"L3]EPL+D5(4X>#C- M6:0IV8KDN0X[2B*:GZ=6MXUZ)&P($.;`DL087E+(>:`9A=5JA1P7V4M;$<(\ M68#D)S\AQ'E@09G+\NO4IB#&5"1(KY5L'8+T@#36>8)-4&"0(L6%!;IF`QE8 M8(2_S0$-+*C":'-M]O"\&:F/.Z$!:;H!O974KTJ=>= M:*+`>][XAI):Q<@^]NEP1B$Y%HE)UIB3N>0,_/$RI/4YY3$(\C#?.5K2Z@D" M<8^TA*<1*A/?PCZ;ID%"%(*S/K,;F)TLQ#"(Z8I59L`P[[6(:QPWB(#:,#:5 M)#$JE@..055N*$@L]A`=MW'\+=B7!W(4"! M!?)E`1&2(/@IL$!6W/[;!4$0IR2PW>T@,'>I-^<_QF_E84414&>!!" M`2)_,N`Y?7$'AT80>F,H:587J=8&F"-_&=AEMV(C_[0:8H$Z*142B.&!:0"" M8G-Z13AB9*$16Z:!$@=F;G(P60-6+P0<98`',V,W(`<"GH8&).<15$%*KJ56 M"$$8#0$XS+$057:!-N%CE90DF#1D>N6"72-4=?%7QP517.4U73('GB:&WW,' M%?A1*J@^"Z$]9_@=D,AI-D=*X/0W!M00[.-TV9$D[_,F9<`$D;A*"B).+J$N0N4$3T`%>B:'VX,8+-&*(G9# M75*"6]&'=*!(_G$:[T<2)704(H%Q!N0F:S@2SP@'375.JGA`%7R18XIY$L-.$1 M>J$00Z$ZB%N*Y%<>J5#;J`B*.K4080J5#"0F5 M)6A]\<*"94,%;4@'W1=?;ND&RV9YH.-N\/8Q04AO&&AFH^:`WA>7B8:1R[:% MA8E0$'D&$S$N$G$_272"-2E]>!.-Q^@0DXA1W]&!2;:%429$-O&'.AF)QQB7 M!54&]X-0@11%LO:5P\B-V_.-7*4NNW&88F".-[(;.>-[MND19$F."W)T5]0E M8O41;-`@-B=#I5,3&?41(<=-'-E2G-@^48$DE(6*'A$7=-`"H/9A73(V4S%R M.M2-Q`&.[?2;KF2.'N&)W%,VZN(2S:(D'G%PFKEX\JA6,;1.:/ET>W4&<7B9 M@-@79]!FGD00L7=R8@9B=0A"+;2&W[D09/"';)F2<)EIB3:75=298E"8<8*- M@6E^/G$"2X":.A8]MS>?Y^02#2E-(G%8:\:5-84<#]$7D&,0/C2BB/4&QU)0 M_-$ES8>5Q1E#$)E$1^%E=-9..A1U\N>B#G)8V/@&'?46RB&'4=$E$'D'#F%. MJV%F4TFE?F044*E#%@$'5^0]=6`&9I`6!'$"!D$'Z':B7:)#79:33[B!/L=4 M7FJ(=5$D7:.?YS2F90IE:*JF*BF')\$&#\I."P&@4FFG&K*:$N\>1.(B5FNH6:$]HE.%JB M(1@GID<#]M=7P;0GU`A.`DJ@ M!4@0>("-&$H0G*02<=)O%[$%,]`%.R`JH_&2!H,DV$@4'G%]/G$%ZZ,135`Z M95"O?O6PMIH&$(L'$!MLMNH&8V"Q&3L&]]-XCY<2_YIA&2D5:C$1^40DUH.N M&%D705%_/*)6Z82O!Y1N(TNRXM0&;0"9<;EF=O,="$L0#()A^6H=WE2M97"S MU+&@VOEAR81$3B&9?66&"1IWJN>$GPJS5-&39'`_"()+?:JE5JMZ^50V[FB1 MB!A=>+00U]A/&3D'-\66.Y0]8E24`P'$-# M-%@8XY84*Y8U2$`1QG&L('0:;1AQY708?Z5#0R`%ZA@4`HE"5HIQ&&&/IBN0 MRN=[*.I1L6H1)V.LCG-EH!FI.D,1''=/+$$&;G`"*TE]B6A:4\@0(=2)[;B9 MU%D5GGL_H2B=G\--)4D0HLE=QS5#&A&)C;@0Y2NE*XD['O$]$M>'P-$5BG04 MF?0#Q8('(+`R<@JY?2&YT9-&`=)S\D=G$L$?+\$<9-"\_HN(\(DOK7E]C<-* MP/E9H75Y`@RRPX<4D@=[96&KEB=\;2>R3R($;;=.HP%:`AFT(,1XSQ8#UUH0 MI446JS-Y:S<&*)`&J4<0XA8359$&N'8H*H`'`<=Z_QK#']RV`N<3CG>&5)$& M>B`7:G6X7-RWQ4)P'C&_$?I*=;00JB%-;585?,1$'55:67@CVLF=.R).,=%5 MG-@EKW:1F"8C]:FR-\523MNT/V>J$P(23SF'47EG9Y!GW@0#'.>]543B$"+-$&/CJ"(K")(,!%RGB'P=97 M3*028"L'+B)(AIIG!U>7#-&SG/ED49:9/VN?:/":XQF;YGE0N6D:NZD:O8F1 MM:FA7XBY=EQ9F%@DDHR:U['&-QA#31L&.5(S-A&=>G5<:^`?=S!FU[AC&*E" M@:9.'M&=2_=RRJ17'$5H7:E#U*4ZH!FG!F7)%V&'A''.%)$W-T<83/2L"K#! MX]B551P35YS%`>?"$`</!*@TR*V+D2U#@U2004P*$V*D$96>/*,_28V9R:A*$7"!=''$?#00!^ MZJ@#ST8"16`$'**T&#,:06(&3)-],@^[`*5BIQG-&P$AXIN M7$&8?.$A,S`#+.`\QS8GU7$:%4H'A=EJ?^,&3]G5!"'8$D'8MGFA:*;8,2`# MC;VT2];9?*%7ITPD(QBS8638*K&MSW8")P#54=T^3?O7:'"P76+:^!K;LUTL MNQFA=";13^+$^('1$;W1Z".X!#$$2]$@7\QTZ-02\E>^+?FT M&D556PG(#G))I9ND/8ME1B(6'/?1>U0Z>U($?:(1*B5*@;47$[EIOWM.Z`W= M3AN7+B$@(H:-R\=Q\J(N4^81VP29W>L1&K.B]9;6J_'<8J$N&M,&AM%42R&V M:K7?#H(DP)O@W"L@Z2J0-4T6D$L6*N'A%1F2K,R[*>G[C;?XDS%WF+K$7F`5H5\!"#4'C-M[H87)N2U'H MDEV7B4X&>68R37A<9\$]*-$"!)W.>A:"?KH0:ZV.'[F4D]AV<8BE*4%HG'00 M)D31UC`J_2U";P@4Z%/4:MIX?F,`SP MAD[IBDZ'-`SCDB[P;D#P=#CG37`06_!]L:%]5*`#3FX$,F`#75#<(?'$"C_I MB-[P83[%!+$;$J_O6OQ@CC[S:D*AV'T8CDO-HUR\TX)(=]"_:`N93O'K^@$" MPKXR:>43H]8"2JAJRKGOJ1JYW'0Z9(F]91Z7X64[60,.%*DQB+4VK.Z`P<#*+E^7,&]4KY2/B1($8JE7,>08-?2O>[@:RC)0JO2N M>'2D9V"K_4$V_@A"@,%/$3I4H@H":EB<["F_T,15\PF2L!861=(E6#JE[(/> MDBYBBM\UR7X=O/SN[HF#2!*[AZ]+:E7OMDV3?46!:)3)PQH7`4[WIY&/Z[.9 M)UX6M=\EW-6Z*G%&P&'361,$;(@'>`1<3DME^23'AAH2R)002*&58M'3\_B\ MUP(WTN\&K(P0?Z7'R"BJTBQ.1A(A>DA!V-6<4:/0QEP':WR`!N;5'0"X$`Q> M"-)R%,TB%(NYTLJZR)QQ6%!I"P@[Q"8#N@!8""7J;$Z0IS*``DY`$6@W#F*= M]+^G5P9.``%Z6\NA$'TX<0$')C_TOJRU M0HI7H,$<*4$;D;N#8L#RR4U1*FJ%:OV[4>><@%D(*EC?`3D!+U;WSIS6!7L6 MP*K*R(%+2"!TG?+Z9&'FWY6JJN!J@E[70&1H:4$\BV9H-]0=%V)E8$Q9Q<%_ M-T/N!\JJ$65L$?JLY6.FU,GU8A`R+>A(PH_0)5P$=E`71TK0L`&F!P+G5Q(1 M6+@N*LVR%E`V`D1*,"D31^K\G.]D")U,2@`.QN\71A_E=9K,$F&8)T@A69P+ MU(9#OA)_@(?P;I2(M.]P%/X,X6-6E&4B^)!`N">PP/QA0-N,(A2O+E%VD`)E M"4.=C!*&(#'@)KY(2I(3*Z`%2,6H.!6E8@N@BE?1*F+%K:@5%0S&NB0H^(!A#!6'T89L#@E2OTY!V'%)`5UR+8S$S MGD6:\Q75S5>$&%]1*WS%T"!Z?F+L>(R2,356QLEH&1$C00",?Y$@C,:S*!M] MPF%4/;-Q3LS&W6@;OX"?*`)B20IHG[B6&^4$;ZR-@),X%.XQL$X'6TCU5".KE#I#;`.>!I<$"_2OLM%%^"!Z9(RSCIVA``1( ME0Q%S1$7`JD>VIPNDX;MC#G4`J.<5#%H+G8(HRPC1@0MUA`\#A80!D5N\9%AGB M!$,.2M]3""+A*-JU/H@4E"&2&'Z*K\5)L_%85X(#4]Q*E`O"/:UM6!'7"$;< M@WA0IGU"L[,=0\,Z.0$>2#N=@%D#!V'"OYN#;D`-:JC+0\D\0IP(E-8!+,2) M#(3P@(.:HX.+\N%ARB<#ULJ,$$0!3X#\H``N0@=0P(),"3MI[;##+32`P,(4 M0`-5(522`5-)(:5)"@`+K1%";@59.2H]H"K\-G+"\:Q*,=`J20.L!`^B\E>B M@5L)%0\DJ!25I!(%A,=@"1*E&;-\E;%25+I"9MDL^R35>):S$CHZ$WM2+9], MJ[R!`L'/(4I%R2FE6$>+9D^&#;;!ZE8L'*`K\0CP\@-!,V:V?)[9'4(FU^F< MX#SV!VI4D;I#=G(R2Q*:/C:ETJ%-'!LY$I0Q*W28HHA(E_@NPA#K7016!@

<=(1I@2**%.RD22147G2 M$W(5/KDX_B2DO$?%PL7E&W[)FZ29O)R77:Q8C!&(!>P6`D%8&:1D9F(D4/.& M6D!3,`JUKZ^T&=^#M;@,J#*3F"/NA(%!M8'^'F2:9$J1T$A)HL!Q6&:3<9DC MY4UN*N#`J"9BG;R(PA!/2B,]N3/CCL],,H)RUMA+PI`OM]#EZ9ASP@(FK0?) M,A\EX(R4E1(_%$ZA8=0T5*+9`AV3WLRY=6F;4$"C1)=;KN3-M;NJ7 MTJSN+,T'*2>:ID]0G$M05_J$QLD.FY:6BSW$*5%:GFZ%/GB@Y"2:SFQ-TK`Q MH#LWYZ;\0)[36MXY/['#E$-,>8`&-2P%$Q%"=L MH;1:$-<3?1($++JM>M'IB3P!!W>NLX@HPE:8'*!M.!0NPL5@5&N/9K2`4.BS&%)7VJ:4:2+Q/&F2 M:483DI)!@I`@!+]:YV*80WH<7F?%380`UB:T^,)IL'@'X0YD/*3F\6!`4Z,! M*Z#*J0#W0Q%:0`RXE?Z*.)W23BE.45[XH'C+DP/"4V&Y!71-0Q`V9J;8Y`%Z M@P*G1L-2""C@XK6!A;KQMH\.P$9TH`L`GKH4V;;`$-*I8X`2:3DJ9A-&*G`H MJ;O&-JE4EIJE7"K]BZD8[ZC5U(Z'4W6JQ%LV/I4B`%6A2O+ZIVZPI;ATY76T M0LFL;!09P%&)A?PD4`7ZMX`;63BKJ"FMWA(*ZA*$C(*(0\9',4"-AG,%/8++ M\2$H8`V(@6VC$8[-H%0K`V4>,H=GIU4BBM.2H9<#:@4@BK0L])\B24;+2%G$ M*:>@&O@8C&I&[X24VE$=AF8PUG&8G!P" M&X`#GB\K\1%G`G-,"?H1*HTE)/BS*<6U`NM@'2W]P2E,!-]#1ZCF,)6MUTV4 MR#M.&G$"HC<=&SS/Y-`4$*`*,<(A15%3RJSB*'>HH^)/<4JMZL$I*@ZM,!ZC MYC:<"LY$>2D.B#$>$ZNA1!*'17&HF_'X;6K"=I*OKI'F\-?U80:VDWUE5OG5 M-7J.\1CM%B*`%14+@\%*I(C0`@[LOTNPHJ)*2EC[1F'[:X%E>CE4<=R`-]I@ M'PF!-;#^#K^B)L71/]JK4P*Q7M/+*(X<\$:WVAJHL"D6..7$HWJB'W4XV M%L:2H930-AZ&CSVQZ_3%6E@5FP>*['Y=&24VR#Y8'BM@H>R$78A!=LGJV!6+ M&'<'B;VR)M:_)EF.(&2G4I&-L%:6PR[$'SMF;ZR6;59-UN:QC_DEU(BIB$%9 M'3.#B)5RFM\60FDMKQ$S(LZ1CD42W-$*E2NTZC1WEBCSM1/([2D5[`W6EF(N=H MT+8Y2N'0L"[7'49,KG4?%A4$H%5NBR@;!(5P/&3J-+@YH@/G]`Y8@P&J-%2, MAJU'RD#`"?`/<':1W*-2^EDNY+)X3?8;90L>?60)P#:S8@X(X&P::,F)$**TCZ5G,('R&HYR#N&ABJY^%B ME%R)ZQ,K[1Q0KY.'0]"A[()PO^'HBA"`;&5@(LI49Q8"GLU#<@(&Q("A"^'V M@T>V9\K4> MANU2#85U1)@GOXVX<)?SR@:+ZRU#Q>+5E3N7R0+EF MW,J:C;0.H_=EV4\5D@=RG:C>4#$&IT899+QV4+7JL]S<]6OL0QV7=7DD5]N M.T#5RN!<""L0@6XQMEKCKALFVZ-6-RK555-T$&12P%1V@*8%L"?$D%(VZ9F, M@@-'KY8,QZ!(5F#-"<#`@9I)$3SW$7Y(*',#ZN((=)$W@`6R@/XA?<8).3W: M!LQVLLG2F;.S3YJP,L4U(],8LUU_%(*R]%:,$(`C$>[Q(_+NY\:5TUDTS24* MB`$L8`1N@::@;4S@\IR=W`0;@;43$`]O5:HL3?7TGJA(YB!BN$MD,EK?[K?Y ML"(<2$TJN('"4+BN8*,A%AK8,`M$-RK50W0(&=`AY#!?@+\)"YEQ%6FY:WR' MA\@?7!B[W:K-UP+$PCJ-(AE!==A:>UH#X>]'4Z9=`^ON3"4)E(;P@FIO<]4X M295CVB_D-+,M%]VKMX M(L)Q.O$'!&,D%7Q#6O`@;&BHXS2AX(]08)%"(SJ8W^'@K*W&&HD\L1U^3S0C MZ$6_:4R+=U(_VW`.*PWQ$]H:%_B@"F!]!((L`+)SS!+`;ME0$%UT8=&A\5BD MCI,F$+H?YQ!A, M.'B:RU5<%=3,%`W!#/@_R4EHB!%0`!XX$"*3.0S?1>I&WR@6M:LT^#0P*HZ\ M%?(`2`Z'(CEC:>'QJ(^C,3XU1+!&MG(BD[@0:N9V!<7?V&U$J,+R$M4'^VA# M0)C0\!$B%"1?*$8XM@!M]-5>6/19!'$[04[!)#O(0))`:$)(A-@>G):3(3ZW M(8RI6=:8`A;A%*6H'-R335_6+,=CF6JPY+3$#$UH5DE+V!3D9+,7M1T2TMFQ M<%,EAB`$,-F,H@]C>@..*2I/AC:4:"R#L@&),>(CA@%UMRN81"?*"=VL!C6M MR#;98M'"W,7J,%_$PMKKSB9K5?9&R2R7K;'34&6<J ME8XF5X0IKL->*:$OY(7NP#8_AKY://LT+%P1VC69['*J#0TS\&I:*K3@D@!' M>'(F5<`)0`$I("F20-X*`D*@OJ"B@*97P,:)$R87`RU9I&YRIUP=T=@*B&,A MY`%#QA-K&5`P2*#))EPGTG$QEBM&@*>T]3TK:`(R-#J)7I$FBZA]]`8Z$`)& M\N7E@-%2":G*O21Q.ZK$HW@F$%E.C6B)14EJO.E+)["I^K#;*RI6(!MP`RW0 M"#R=JO`"M3.WB@BQC04H(1T`A3V,@R#.25HP#B$FS0).E'B.(Y0D^O&RLT!G MJ@\6W(Y%H-E:WY+WQ5P;6$O.?&%Y)KH\4W+W1$N<$XM7<]C?.<+!V/ M;`'/H('"9J'^<'ZP)K77WVY.%^VJ\XR5151@.@>>'5W];&+U(IO5G/D/8]+1 ML)1E2)O,Q4&%,"Q=%\D2S&GM_;MS8IZIMA]C>%/"#[B\;T/./1L^''"-+\LE MM0OAY3[HF/L4V:*CAH)S``7PMDJ-P^;NILY":1,L(` M>G.J28.XAM>T6K+9ZO*IFRL[1\/J$Z@QR\_9 M8;%*0!4"JUYX@&:M$F`)8X##&%N^(R](GW74;5V(9J`=394CP%++8N5:(=5* MU!Y"":-8P%-Z#*N4$>U#?52%D]4_@=G'#,Y-5D3_F),%9)4PD,N4"^*)\,<* M23!\[0R?CT\80E"XC=Z!)ZN36-?:PJ2%2=3-)=<,HE=@`&Z:*1I:6&"6AYKF7U=-4F7A#0Q]5"`940R4S%+!- MK]SF!L2HVJB"`*1Z4I7J[+[5EG(TW.Z+$D[;C4S20BNC=R,:L"J\!W'Q)LX7 M=62-ADK&N^.*XP%BX!MT^H3Z617`-PC(GY\[_]92TVV]@78%ZK\&2#))/*$] MM"%,T:;&[03W;*6)<"/;B+;^W64`\5CRLVUC=37QL=BNT`K9K.=G%`'34K;BZ[V"F1. M1I#U615:$%>H6F,$'JJW.??=I@A\V[V^S;01N*UFWB7<.F1K"B)+G;A=^#.M MS;;K MP%%47?=1A=W..[70[A0H*G@;6+NJ22:KWH$8D%'7.&XNWE"XBTN\GHJWK;#Y MUE@4=8^K;R*V%^PGWG[?EIK4I$O1>6[A"->@XJ@;?S>W[I`T>@6NX-_]N[W( M68\`-D*"/;P;#^5H#P<&QT\^G1S"4];FWWD3N-&C-EQ'%3$VC<_J%+;2H0^" MK;M@<$22#*Q`XYN`SK0C"-IZ?@F5,M,:.ODPS[[J@8+VAO=1_A9$IHH31JD* M&,A+*R=S=RQ'$NS#!SR;9%X&,*8P]Q7,05V@"B:@?<("L%-W%2$NL+(XT`@) M&$(*S><<5U@^*E02E,5WDU-Q[V1\,,C(*!SA&&PK"&Y3RYH`U^EV/Y"RHX4 M*BGDD92]B'10\S'.S#F",T]O@2XEU=]W30)FP)-;@@#CQ:#?F0U_:_H:N.GZ M?,ZA@*&NY.PO^Y4![C<%J`">4:F9.IRSOZ\RV(&%_,G2B^0D]ZHFO9FC]&?> M?V^1E;!%`SB4+]!1+M,0PB#NB':U;J<&!+$1_0=I;/2!_AXXPMK= M@#:!5(9UFS[6.WJ5@P$U($?C:C@MY'P@,@/2)T"C$PS`S!MJ87UW*NH>"7-(MAZJ$%KD,$C:('^HFU?=O;N*F?V0=NE,> M52LT#+EUO<7)>%W[#L-"WV'XS3)%`@GO*]VD*T8/!C#$)40W5<+2N\A3XR@@ M!'-DJL(S1T9P%RXY3;5O5@RQ70C"(WDWCDR-&-JN<@D2/2ADX#@<=J[)J#Q? M5>A_MSTE-1\4`!4(5*)YPB&#]3(LAZ6D'18=YH"]LE3*>#3P^$CJ"!PU)A`L M.`@@"`)Y0/Z$`<*=H"?SXYIRP6YYK[L,IY)YSE.\04MBQX?F4JY]AF2/0?NW+K(X#F'*'&P1\@A[PHL,RH]3J3L M>RL(,&$YM,!"J-P*E_[9W'GDS<:O`T`T\LM[CFN.2[\^`>+*V`)XH(]/#1E6 M*M$,DD^DN!EVQ[6E7N<#8(`'"S<)?U1J`58^:X`7WQ6A[=N+BIF%[`.]6HGU MN3[8+\\QGQ0^?%]Q\'W,CDH(^H>1!C-V"3F91:4,11\V`]?)<3D!4(`YG($3 ML$[30)1""&(&&\^,!Y;?T51?H1F"B*:M.%A3U`)8`GK47Y[)@\"5(>RPO4S0 M]B"@?*;<+G$_/KVAX+T=*]4;BB68EC_6#6/Y2`S3XS`T?NK]>'2^\N`FKG&L MSFVOQ'VHF%F\GMD_89].ARFV8\L([X,JJ<37S$1[=[3?-3K?Y\\)C,7S#:[1 M5SU?NKL#,8N5EO%`T<>>*"#8M/RO?_7G6JJJ$35YX/NFD`P2A6O51Y^HPSJ( M*8WUW_C9X[IVQ]!BOGW9J:A9MTT08/F3VFO\H]`".OX*N`$YH`48ZX:0L!MS MDM<<71^L6=0KC*H%&`_`']`;\FLLE3_SUS@'O!_Y4P;0G):Z'5N^Y._\?O\F M@(#+KVY(_ZXP_7,.]?NP\QW$A-CRC/5I`(F-ZZ=F!JF#:]?&29PLJ)*E`&86 M55I+13,-OL<+/=^;GC`+J/8/"ZE683H/NY0C+@#\%EVFV12 M*N&P,$2>`S-EN33UON0'%VYYYC_GG__@C_ZN$,\C&N8_Y^'PB-@"RA+;`'KX M^_1/:MPQ_S/>VG?\]=_^\4?^B#LR('_$'8#/LG5($<`"24`=N:@D$I\.$O)' M"%G?ZZCN\=*FT`U8V[_'`@5$JQVCY=I&]9_S4=C/6V'C*\C^PS!9R"T[5'5. M-*/]J3`9L,)R[?-:A_U_%AK)X:,LVKOZITZ?OMCRQY^?_@U;&^8Z(JFO$Q3# M]=W,/W72@/Q!`Q3;GY_^E+_E\05PB7ZS55E(`3I`LR/,@.(!K4YA4:-H#P@NT6^V*@M@X88%=XR$`J(5 M.[MAS-+U[XJG?U+[H_F?\=:^XZ__]F\HXG]_-,3]\02@FRX5VT(^\\Q66L9= MY,)=E03NR4./;2&_/\ZKT^8NQEW<*_@;Z\$E^LU690$LW+#@?KY$ M`@J(5NSLAHTVZ:VZ39<12[C/A@>$:3>1/VD8ER\;$K#CAWI+[A*JO.2&W5F^ M,D#Y(G?FNJI:6.UNO0]H`!H(4D5!1"Y-10`E)24E)R+GSY@T9$$/DE)DSIHP;.B%12'DS!LU,.F7DL`#AI,P=$%E4KAD:@X:- M:S,`!XT;('"ANQ+"1H@6-&CB\YI@A(Z!9@0.5A'%3)XR7`$1`P8,$$@N(FDQ!4J1(D1`6$E"\%"&:4$08==@P4!IT7+A&&7FDY-9+-*WEQHMAB)$&@'2D,1-RFX&`1AIG MH-'"''"44<9+=BQ8QEYDI`'F?'FXX%A>)(Y!(!Q3CBE89$5,-D-\;]0!PAUJHH'@7C+)V0:=;'SH*G*) MFCBA&XGN**,<``8%@J<6IO&&&S>*""I*>Y%JZE!M%,9H3VN=,=.N4_K%J:>_ M(M=>B6$D^FN./.8J1TT@R"DO&748FQ^)E;999EMAAS#'=:(K[`) MWS2'FPH@EY2N8ZRUHAMVO'%DRGE2QAYU])+Q!.9 MT>RRB@`ZK!FS6A)99<8@\!`1%55(X80/'3\A%`BX\NQSO"_Y'&F5UX;A%QQN M!5J&T]/JW2]R.+KGZHY4@;AC#&3MNF5/Z/:5;Q@4&DMBLGL%[">@@B8H1QT' M%@:"X3[)@1Q5+2A.&UDMR'EH&P>:*"^K],I9HV(@BL@PYAU+K6?D?MGX]\M[ MH>YZ';"7Z-*',])KTTL6?\C[FTCE"GS#8M;-(QV;+?D7:P^^<51MMS6QO%]! MJ&Y^HGX)H=F%=Y0A>:G(-3%%"U=G)H.J-:C^IXR`\QSH1J0F$/"N5G385:D, M6`9/L2%2=LH24'X$/3=@Z7L.*@R$R+<"=.E',R"8P0R:X#Y.R>$E:9K#&D#P M.3<\B6SVPQ_6XN*"&,2@!3'`&7*$4(%;9T(=<5:PQX.Q".3E8L^"W0+3U)@Z=>0J$706%+?EG"C/3PM9=` M80D/BN:7`H8! M08!*EEM6B",AJ`1C9&`!