🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: comp.sys.dec.micro
2 messages
2 total messages Started by alan i. vymetalik Sat, 02 Jan 1988 22:40
RBDEMO3 V1.4C - A High-Speed Video/Keyboard Scanning Demo Program
#1279
Author: alan i. vymetalik
Date: Sat, 02 Jan 1988 22:40
496 lines
30701 bytes
   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<U(=0=T*="W4UU`M15T3]$_54U%U1'T:]&75IU,]1CT=='_5_U!LHF"AD
M/P`L_HGAWQG^V;#`1#X<"$`4"F:A8!@*3J+@)@JZHJ`M"OJB(#P*XJ.@"@Q,
M)$.(`!1!8A,D5D%B)"2&0F(J)/)"(C$D7D/B-R3V0R(&#4S$1(\`;`$D&$"J
M`20=0/H!)")`]@*D2^,`@$\`45:12#F#L"/`,4;XX](_72YB!`&Y['=/.CMT
M60<\B;#3A3!065G.,:T!\`Z=4[GS"S88>'`%+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(<<;<H"0AAL@S#&&'&64P6T;;Y!1Q@!;_#"#G%F"$"T!4#3B!S@6\)H(`5'"
M`H6AF.`+`"R$\.NO)@T4$&4=&?QBR@9^_D(+``Y<$0,PABK!0)2:H+)`E.MT
MH3##5\"R`103&\K.Q@#\D@S$$E.LB<48:QSENS"0TT-'=5SPL9^PL$&RRR?'
MC/(Z&O1`"`!U5+!SR&C\;#+*&:,<*IP`R!D(.X(`0(P?!!APA;S^U(N+2X:V
MXR\L@C;BBQ__U`NVV&1K\L7`!1],`-KK"`!+`)@,&D"\?GCBMA]A_QGWW!C7
M#0`==P.0]]Z81`/.H`(`[LO@A8\MJ-QT&[QXXX_SG0M4TTP.RP"`>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</C#_.^J.(%?(;
MH0#VVG.?@3_V1ZN`#D9`@!W.,36+!&\$Q1(4S<B!!,D5@!X.R)ZR%E&`1'0)
M':+HA[/Z$2T#`*X;]=+$O?*UN7[EJW*:,.'K/$>'$R00"HL@W`&\MD!='.T>
MXLA>((Y!B7_X*5K]J)FA,I`H`'3P@R$<X;]*>+:_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<OMN`\$381"N@``3\,E0LH+BX$UE/G#MJI
MQ+T-*E6:J&?B/%<'+"SM%PX@0,1*]K*+&=%^-:ND%*!@/DU4PZ&_"(%"6U8Q
MAUHOHM*8:$4OJJ@5;)2A,./4(U"6CD4`0&WBK->>^O0G<FK"G.AD`"8*\]#K
MD6,1U8,H.4`)@-(-0!BC4`TH^"1$=(!A'S73P@J$`53_U6P'PO##!*Q*1G0<
M`:KDD"I2+;(.!"P5`S5K(P!L10$`X()10!C%?G#!I[@Z``",P,8H0K1(//)*
MC[]ZTWZ"YZX``HY>]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*PX<E*7C*3F\P%
M&;88C@$,HY*+0,8BM"$F`F1B!]/@@P+^0(`=!$,.H)O=[DXY-:AXH`E3:`$1
MGC`%$+2A#G.@`PC$`$TKR,`%,*A!+[.%AC2<X9ER$'$1AO#+,&Q+#,$$`1'*
M0"X0C&`&*\Y#H>20ACFT`013>(,9Z'"',(!+R&50YAG<,(<6@``2+9`!%6IL
M3#A<ZPQR",.3S44N+M,AS73(<C.?"8(:W[@%<X!#N,@``CLLLPQO`$$8W$"&
M&:RA#'D`LI7)@.<Q#-H-VSJ#H,60AFK2(0UREO*<H4F$'??XQT&.`0Q@X((8
M0`%<<S#FH)5\:"7[LM4M&,,;VD!I-[0R#6_@5JXW#8)6*UH.9'`!"4Z=96,Z
M$YI%P$(2J-!K1#<ST'&H`S;GW&00L/D-#!@"&JP<AC'$.5NZA``(0!"$*0PA
M"4GH\ROK`$U=\A($1F!#&"2M2TU,!%3EN!H`!("+9@@*'37P!P*`40</'+0?
M!EBHRU*JB95&:6*:F`>5`(`.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@<?%X#GW>,PJ41.4CV(.Y`4(S#>>\,KS@^+)
MWG>BPSP)G@/\Z34!=[=F#9[JJ$?/0U'RLP,@$Z/;8CX&8`"Z%^`!D)(4QNNU
M"!_071&%\+JA$*%<B@M`'_**_!5D+WC'OW1>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``#;4)IY`><A2N:$A$8!^`M
M%$V8]@)`)^0>K`]08+F86_=N7L%^`4,>\#<P7W0?#`NL>3-GIEP"`-S+5^"!
M0%@(H/S"X]%A,7Q^0<FE:Q>O7KZ1+0\N9\\OK`B,:S_&#5<R;LK&!POKO=DF
M3@"?0X\N?3J!ZE6MT:&!#5>V0=J.;_<MKAL=(N90.#^/+IJTZ<0*5'_+[H)[
MW.^-;4,F+[AB[P6).1!<>)`)4-E^!UZV`GKJ>09:>P58<)H%JD6`P$?H1'//
M+^(PY!`&]X@R3@:^03&@?I>]<U$#)PXW7H*#57*1!XF!T*)XN?7'RT4J)+;"
MC0@FATXH]8`R8DPQ2",%%+@,(-`OY'C8I$"::'$`7Z!TB*223(:F&CI2.OF7
ME7P!XL.(#]1Q@)D=!D!'&1@U"-V#TTEPV@-S^0*`/W?]8L.%>+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`PBBL<F!!*
M:"T``,$HLG!0E"T<=`,`(P[@(K0!NG`@SM$.\,*!,09PPX$`,P`S"BHVLV(S
M+#;38C,Q-AMC<S<<X`)`#<V$D(@'R'`PLC)I"\"VVQXP([<!SJ0]PMUO0[.W
M-&F3`+@'U.QM3=IU'([-WMIPX($#'^B23@!JE]"V+O!@/H+F(>CR"^8D@/X!
M+J9H0".-N'`#@(#43N`1.G\<@/H&JS/I.NSHA$4M'`<L`T#6RH2&NNI04.N+
M[:;@GCPZM1S@03$6Q)UYVQ],;X'>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@*`,<I##&^0``@"`(`QT**,+&J```.QC$,0P`!8"
M<8X/`"`0Q[`$``#!CQS,80"_0,H5:$&%MGD+$$ZP0`"PL(4L:,$+7^C"!P[P
M#%R@)0M;6(?M_C&\9,Q@&QX#F386$8T%3(,.!UB!!THVB'5`P!$DRYF9"@"`
M8="A`2:`I81,,,M:UJ$`)OB'!ZPUBO\EP@'P>QO]B.&!IC$"&`NPY02R-HJF
MC4)JHT`;+F0@``$98`K+@&7)>.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#;><Z($,($B"@!#ACHTGQ-EP#_O@`!%O)`<
M%GV"`1:0C#\,(!=1&4`\5A`,.4P`"#DE`$_[@+5D[&"C!EA$,-:!-6"H8A'(
M2.A"$=#0>\*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</V*#1G\
M(Q8#F,8Z"@J(<!S@+=(`APD0$`#C8KF?P3V"EJ]``!5`0PX?\(<P%-'E+X=Y
MS,@H\YD#D.8U!P`:P!C$-/:DC#K0PZ5>):U$LVS1'BOBQ^T0JB**'%V3\K:O
M<:YIG\$L9C*;&<UJ)D2;GQSIB88UH%(&0"L64(!5B$,?"\5KJ\$Z4P+$NA7W
M@,8(:BT.?.3ZQJ[N]:^';6M<WQ79O!9KK.=Q"MV.-MG2GO*L"_`*VQ9;M^A8
M`I5/NH@>+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!?<P00X,$(UPM+SE`DC'`*(19G_[.\P"F$<L"C"-<>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-`#$,!<T#!/80!`'C4(093B`8X`+XD\0/<
M_-+8P@"&L84)3&,+7E[_V/$@@2.(HQE.X'>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<B2`=`M#"`R!]P$!C`HU4`4,S(<BQ1"(%
MX')-`KM(D\"BU]!APB(=($H$J+C`H,`BV-@C#"!U0"#I-4.6```N![BHJI0$
MOD<!(TU8D$@7&#"KP8T<4*$`LQYHYMV.G!4**RX""`%J"[@-H@T`<Q"ZF31=
M+0+-MP"(&T(CE>"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<Z@%FZ8E+&3(7\7+,-P^:,\F+-,$SQCY+UK+1`,#L<8\X
MPSK(/@3800`M/E@,3)6LUI'!(#YT*"0&7GA`YR)=\%R%7\3TP<`_YGS)`1IB
M[J`-'04@%``^PT3A@16.>.%/4P<]BP"=_W1!`9YZ\LD!XZ_&_>K<)M3-@!<?
M9.%W'<O`HH%`7OCY`6AQX[TEFL">G3:<=;#M]A69RXV>YWCKG8:8)B`2P!!^
MTQ%`X8<GOK@?C<<-N>24[]DAYG#KWKG=H&<Q3.H'K.XXWGMYA@X(_]1Q`3I#
M_,,#P@T,P4,#=="#S@WJ*U#'\.BP$;F"2I=-`=IJJX,"GH<!/-7!`$?"!=\L
MMXYZA,\/!D"'$,K7J`:@8PS_@(4"T.&%?Z`C$OO#6O^X!*S_S4Y(`\1=Y`H(
MC`,F\'<,=&!-Q`<)`/BC#@M`QRS\(0?\J<,?72B=!M:ACP=NL!PWM,`BG&"`
M)/CA`&U!!P#^(8Y\*,(("$`'/OR!CA5$[D@/9``ZHG##$A3##@@H%#K>X(_W
MT<$!ZZ.#`H80!",@@@`[8&(=UK&">"!"C),`HC(,`("FS,<8!0#1/,*(CD.4
M\8Q/82(_6"$#<JP`&7Y(`!2BF`E_5!$+:QG'`2:)CD9X,A_H\(4@"7D3$#S0
M!.@(1S_J,(09V`,=`F@CPC3``Q#<80`*DP<ZZ-&/7MJ!`4,8A#]`0(=Y($((
M`C#".MJQ"&>@@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"`(.77<N+&(,2B9E""HU)$CY@T(
M*&'FC`G#!H25&2Y@@$!!!<J,%"#>J"P31@Z;-"E=$&1"5B%#AW/*]"0XAJ1)
ME"KKNJ$C)R)-FSCK?'0)HLX<HDF7-GT:=6I5*S2R;NU*(X4+@7T$"MQ#0DJ+
M/CY![`$QI0R=GR#/+-3X<@WB)T:,@,BL@+.0SZ%'ES[=-")9-R-+HJ2SL(P=
MJG7"Q'P#'+9LVIRGX/:IVS2(.73"<,RXT?5%$,YG;R:19#K!T4KE`$_RX@GW
MUJ]CBZ]-PHEYT4D=$D[CT8U3-W6TD5(:8XS4`AQ]C5'&''.(]=%Q)X4A!DKS
M<=8$"#;44`,,,+`0@PTSX$`#"QG6,(,-,(`V&A%EF!%&'6R<AIUV:WP4$@@.
MA0''?)O-5<2-;]A$&0@*R7$8<RNU]%),,V&F66U/^B2%$$04T<036$$1Q!1S
M@=##EV"&*>:89)9IYIEH@ADE052D00=*.H0FIYQ3!-$$%$P4`4*50X`@11!)
M."'$$U>`$`.'(""1Q!%(M#`%%$440815253YQ`M+%)'%H$%(0427<X8::J!4
M%"&%$4$,$>@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&<E9J
M^1F@6#0SY!0:'"\D1AEE`$<<NB(9A=314U,]9](@8'5HL5?(X29QP(F1Q\US
M!L$&2"`DH985>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.<P@P\O*E<$WU5:4]:MAZMYA-QUX@S`VO60#!RX.OX\_/*T#
ML8D&?S^5@5)4TH>J!$C)R9$'"#+HG@,..!`4PPTZX%"\<B('!9$F.W0PS/2>
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<A7HHZ]$81HI,L:5..6>,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*<M#-9)O3:=<BVTY$<!:UY80Y?1DG(<W8T#TTYEA;;!I&E@"!/1/`("N:8
MJ(B(9`IC<`D:&\+&1H+@"M2B`UC\68:9A41U;.BF3=;'/:(LU:/G'$(0H$`P
M)CQA"$L`P6'599HQJ,NA9'$F$8U8%3N&P8UU@.,4=UG+AY"M*F;0K%[UDAV8
MR'`A-=FG8*AIH_N]L8/,D6)<0[,ROX&D6&E*KWK7NUXGH2\@:IU"$NZ4)Q`<
MP;9""`(30#"$)SAA"E0(@A.H0#`!3XH(00AP4K(`J5GYA+T0CG"$W2N0*L3%
M([L:S0DLO*`3@%"(;D@M8!,3.E1:#3*2X0H4*C,?@D!P#CMX$A7R,+,GP9=7
M+)P"`E^YLDD>Q9+\<6@8-+GCS*DU"-R3PVY\LC+E8%0,5WPE98\+A[+$9`PP
M*@MWRJ(=XJ@DI8=9CANZ-`2PR2$&SF/R=6XHAS"<E0XT7@@*VF"1-J+D(@WQ
M7AZ(`Q;*2D6SP`FAFQ<RA[`9V2<Z/G.:U8P=L0R:(7$>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":<W"U6,7:]B*EL&#/R>'-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@..0<X`%8ZH:VRD5%<NU^<1,BCGN"K'+N:(X\-Z=\GE$(_='$ZP7+4:
M9`Q%KQ&NORX6,A!O3D.`7^#V4@;5J$3:9Q>55N*$@L]A`=MW'\+=B7!W(4"!
M!?)E`1&2(/@IL$!6W/[;!4$0IR2PW>T@,'>I-^<_QF_E<TS@-1*PG7DA;'X(
MF2="Z)%@>2'L>2&2ISQ!?D0&9--&(-63@XVO?H6R>YA]QQU2U+,V[(MXU"DG
M<#QQW.YARG:%Y@[22&H6<IQ42U2M/Q_)U$%"ARF^_LC.F4(1J,""+E$A^]NW
M?.WET/K9#WS%EL=ZQ&_E812XI"[DKW?[LNYE/ZJ$5%)``5A,\*\I)$W_+R01
M<Y`"LR8E;1=VH1$G0[=^1A)P-Z9LUT$4%/)GX8-.9^5-RM=F,($40N5D=@-E
MQ&$5E.04?W(AC=9FJM%UB)99%5AH,[$Q%^44,81ROX=/VE88H>84414&>!!"
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[_<F]X-+.GA.5E`I1?`$
M73)XC\($09`%("`$51`;IO(6G46'.C1RWJ1#5B4';3`Y(,1V[09J<?0137<0
MS"$U:H4=;48<V=17=>,F9<`$D;A*"B).+J$N0N4$3T`%>B:'VX,8+-&*(G9#
M75*"6]&'=*!(_G$:[T<2)704(H%Q!N0F:S@2SP@'375.JGA<V#A."<03:H5-
MTR58?7%I"!EDF22%,L0?+1`3=J1#A`ADAW@_U#61UN@3>`%7R18XIY$L-.$1
M>J$00Z$ZB<AFL"5U+.%CE@8"F_9*+E%UT442.U4KM'@I"48%4I`$OE@J[W(A
M$_(Z'=&,'S&&4*@29>%N*Y%<>J5#;J`<KF1UT'=.5V(%>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<D2C?65,UO)(V9%P
M\=<$,!)-.,4<5$%F7&JGT%9]!*&&%2$1,%B#K+$=(DJB.^9A1&H:*7&DV&43
M;M(EN#=_6:826Z(J]U2G7F:.US$S8W!R5>&K*:$N\>1.(B5FNH6:$]HE.%JB
M(1@GID<<R&:`;FIF!!$G]P:B!-$$_*$@$@$2E=1&)D>#]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]<C:E4$3C`IL&%?^*5?!*-]0P`K_M4E$M:W?FLFL^:V"1M:?/NW
MAFNXQ1($1)(2#)5''P$'J]2#,\2LC,HB%XF>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#'.<W#:)TYZ2%
M7.BSB,$^",)3*^DF='B'X*129QA>>]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%`>?"$`<<H_'0Q(K%;%LL#Q@:H816$D$1A#0Z?GQR+"70"Q&?
MVV%5>/!*@TR*V+D2U#@U2004P*$V*D$96>/*,_28V9R:A*$7"!=''$?#00!^
MZJ@#ST8"16`$'**T&#,:06(&3<NHMAEE2^D]$[$=M!%&2&W#(,#41?#4FR/5
M:%K5XWQ.I8(%ZDB/3<G58WNUYP$"1:`==/C6->)-],@^[`*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]$@<O!KA=O%U*U>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<Z1W=:#K=U5WC@(L^
M&IP@9;D0,`[=TF8&$_W"%LU?$B[C-D'#0Q=V+C!X8$T"'`(#.!!P5&S?*!"$
M+)#D-%+""F#<H]'C8O'C,2L0#+WC1![COQ;D%8T?7A[=P('D!T@C2WY/2AW6
M3QX$4BY75&[E6,X16L[E9>[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)<VR""699'":Z"0'5Y:K*NM\WJE6LJ1"*H$#6N$@IW84VHL8*DYHO*R=T70&
M/-K=(SE*K>D31UC`J_2U";P@4Z%/<?%&&AM4TVA5+!JFYR2IR&1F9)"^5$H8
MVY239WE.$!'2I801Y4N;IG'HX=.P1Z'01K"L!T/HJH/O95/I>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"2JAJRKGO<J6/U/B"GDS)6,WL!HN1%F'%9Y'%7WAPDH-0*57+
MZ>J1JYW'0Z9(F]91Z7X64[60,.%*DQB+4VK.Z`P<IYY4V&6'[]NZ(C$V<Z1'
M()$&9/HWS1Z4:H7V><#*+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\<IYLF)#*C.-,<*1`$:00Y4N1L0,D[`%O@!,\`&YK!0D7:<
M"04$#V;@["C`./$#3P`;4(+$X]10P=C4`M&`#=0<K">NA$'TX<0$'<OC+\S!
M#M@F1D?S;%RQZ'<:BUD-@31HF]K'BK)#-"$:_:B#TJ@D#G7A%X5%![JKLC7^
M!%*5:4_J0?[L/N)0)&19/;-^2V(1V2$-=?5,@[IK=H\**!4C9=("CH*XZQIN
MCP[$B0TS;G;2"5`7)Z#;1`4OB`JS#1DXA5+HZE2;6[$0:LV/<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%0<?``$^\2N&
M1;`(`L1B622+9C$MHD4Y001(S\-A0(J#*U;%N9@5Z:)<O(J:XPOHQ;W(%_NB
M7_R+>S&NB0H^(!A#!6'T89L#@E2OTY!V'%)<U(J0T2Y&QKI(&5>`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-<T)E=,!75A4@QLJ8A6V%
M..Z*XU@6^V(O>@),X%.XQL$X'6TCU5".KE#I#;`.>!I<X=E1C-:+OR`4[R@;
M86,O8@*!8@D41NZX.<#CVJL\*X.+]**U-Q\-(VSDBQTG;ID*^.@$BD!_E&NA
M03F*FZ-`;J3)@420^'&H=)Q2R%7HQOI(.><$"_2OLM%%^"!Z9(RSCIVA``1(
ME0Q%S1$7`JD>VIPND<GBPEX(&:_+:9VQB_B80,`9(!TB894,J-!'2)Q"%NL+
M4\O*=,._(7OPD\>X;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!@<P
M#'DADU]&8OZ[$J<@9,)D4IBCK-EUB4;))KF)FT1><=(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<FY\G2>;NJ7
MTJSN+,T'*2>:ID]0G$M05_J$QLD.FY:6BSW$*5%:GFZ%/GB@Y"2:SFQ-TK`Q
MH#LWYZ;\0)[36MXY/['#E$-<X6U;8(QHSF=#/.U`[,1S0&R,C#:2-23FU\K@
M,#BBU8&UHN(N($;2DYUSHJC,.0UB<5"`]H1*F:P%#`D:5L1.0O@D##Y@ISC&
MT-EZ?B<=:&9EX)FYRWP3-B*;;4IF1Q-I'JYZJ>,>8`&-2P<T'&42.^1.:L=U
MV4.0R6YPA*P92)9"]$@M74)%V8W6U5=\GTR:@8JOZ3R=K&%ZT,D@^0[,L"8^
MBTG$,1##$P2"O-!(U!R%"6)$C(-H"@T!1O8_=4%.^$*<"@,=14'1IV&VZ[`2
M"I!G3N'4-#TF-(#D#_`:0O+G(^&QH,?*L!2!H$,K0X2B!;=`(H?E9R*B.?2#
M_-!Y$D*1R=,,B.LP598XC$)"-5=?.76*3W`VT*XT!1YHIHF@TJ3N>%$Q%"=L
MH;1:$-<3?1($++JM>M'IB3P!!W>NLX@HPE:8'*!M<VU&X#K$D"K5"`/;.6+!
M'KZ.N=EBZ`(E:J1("Y/FAHP0Z4XH+ZL(EL[AM3`A)SG]*!T`I,JM2Z`'[.88
ML(SA6X8TH22(A4K5^I+`:6`B%!22O`1BU407)M?@F7Y22R6%GF4+"Q$]B@O^
M228-4CI4$S/+%G)I^JV59A4>.!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$=<ECD:CMS"BHJP_65.=6I-EP.!6]>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.&#8.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-$*E2NTZC1<DCT5A1120Z$03FJP1"F!
MA%[#IEH)(0*")7S0^T$QMU2,)50<$!FUA,Q*&.KJ,`6O/6QV/I;6M1#5#0IP
M$&_VL(`%E@1;6]VVZ2ML(6:T`'4CJ-)4D?0)8"-KQI"#8)":DS?Q9&D)\'$-
MJM*##E^G!9DK\T:XJ*1B&+K.]2&K_TZ\QE5`>WEBCSM1/([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+)X<QS!!?C;9Z,5(,C4X(&LDVJ,AF0AD"B+
MBS)V0>3?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<X`V5A7`14:?IN6ZV9&E2_-C3$!F*DWUYKP1$Z-I?G=@D:9D]LPLZ=N"82
M!0K<ST&'P,9`-0(YX48HKW+25T:N(M6X<%:N*I*NNVN_KJ]5"WY75&#<E#0:
M5JVN53?S5N'46]^P=O(M05T<;]<GSCD2$!MNUFAH6I3E!.Q=J$1X>>V9\K4>
MANU2#85U1)@GOXVX<)?SR@:+ZRU#Q>+5E3N7R<TY&9!(*<_,K7(CHN3>0+EF
MW,J:C;0.H_=EV4\5D@=<CG&J"C>RG:C>4#$&IT899+QV4+7JL]<J5/ZLPJ&V
M<@3<7EYT:UHW9S&C-FDW"/A$?8<_:H`-P+G?ULTXRF>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_<QQBE0<S$?A"GY02^!B:%P+/R!V(DD2!$B9L7X#AZ>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<HRBYE=(E>,F$+H<RA2)A#9\=!S"%HXJZ,P_68`P'.B:1-R6)'2>?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<<O3K8\GN[,R(B*M'.5A7
MLL."5!Y;'D-:9'KOYIB#;`!BR377<2U0Z<$[D!9!"W<HOG!J,"`MC6%6.9>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?.<<KM^GV=!NC
M03D"4320<1&D<S2C9P,\`)L^+=?4#91-HX):Q$Q?GR`$-.^S00'`V5A6!1R`
M*Y_)'5"EGQ?Z:=+#=Y$QTA`BU%=KJY%2BQ!:F=6B1K1HL"KD3X@7\!A>+!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,<GF#AC*T7QQQP#3L">L(`
M>G.J28.XAM>T6K+9ZO*I<E_4)OT.WQ!L\NM^+9<!]C2MU7)@"PQL<+T#H0!8
M(P*E`2/HRDR];(D`?PK9<2@(_)`@PK'I&IE.2;^WYK[>FRL[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-<VG)HG;ANJ9W&F-?FA-QE"_!AI9[`G\7])
M0]CXV1ZU;.3F+[J;;4WT@#&@NB!0A+Q]K54/<=ZOBA.2SM(T]U5]-J\&-..W
M>?: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`<DL\EQ)RDG!4BI^IC*8$N+#QCWA9JPE0
M/*4&ZQ0!'9*<4R*+'CZG>\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<CXX4HF!<[+)C<A%4%DX+OZYK^+MR=VO\;:QOD"FEOF.<5/]_UVJS/#>;;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\<SHN*BIMUZAV?\H9K6L`;KX^VA[L;P7P
MTKSI77$"^'`-N#TV0>,,C(*!SA&&PK"&Y3RYH`U^EV/Y"R<?&)[\W]4=>HX4
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#<D9#CVPC%![=:FR1#7T]B^;B8'-.@6N)4STJA
M60,<<3H(]3HLXEX8U4U'-/DI3&9EK"AFND8$Q(#$KZM$:)R"QJ"M9M@I)(O:
M5<QR@F<12&S%^ID!5O8CU,`;6'RSQG>NB':U;J<&!+$1_0=I;/2!_AXXPMK=
M@#:!5(9UFS[6.WJ5@P$U($?C:C@MY'P@,@/2)T"C$PS`S!MJ8<I8&`YB?322
ME/"E=P42H`IT()%>7UW*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"<L>?SXYIRP6YYK[L<M3P2.R<,'(3ZI4#@(P5\(F.\<
M%@K8\3`/_E)G%Z.-`4<M@R/(SK2<K0[^@-OZ1+^\$3F`IDXH#.9I_!8PY/$%
M>,IY)YSE.\04MBQX?F4JY]AF2/0?NW+K(X#F'*'&P1\@A[PHL,RH<C`2S*&&
M?<+0@FW+.]XDCS[N$P38ZZ2XR],@I/'5[<-$/0_3'"&,_J(0DH`"D@>]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<YYO_SV`!O(,%2/]M<RH;9!DP]X$8
M-0]B:7^M!?\7?7P<'\DG"3L`\KN]U"<(..#]&]QXJ",)E)N?.C:3YTEW1X*)
M1<*I0R%9/\__3]3)YY__X(_^KA#/(QKF/^<]Q`W0_JXPW-3*[P]_G_Y)C3OF
M?\9;^XZ__MN_H?#V<2<'R/\3X'W)SR/9LUF(*6XZ]NS8*0=\ZWG'Y%KP#%RX
MY9G_G'_^@S_ZNT(\'_[+T_B'^N4_XY__C7_MUW_[-Q3>/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`L<TK96U\B8`_UM(@8=QI
M[Q<?K7:,#L@?]^I.&U^C>R/,@.(!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^8N<F%WQ34>QEW<*_@;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)<H$```B$`&(S,CG!P``
M#`T4@!@(14J2*4U`3'EBA,J5(%**@"!29$J2(TZF!!P(H@<D(ALAR:!!`T00
M.6+>R+GSY@T9$$/DE)DSIHP;.B%12'DS!LU,.F7DL`#AI,P=$%E4KAD:@X:-
M&#5:S,`!XT;('"ANQ+"1H@6-&CB\YI@A(Z!9@0.5A'%3)XR</"!D,,V!`\?9
MC0.IO#')ALW$(D-`2`F3QDW*HU7F!)VCXRQ'*4(H-GDRPP64(%-`K'T)63)E
M%T6P2$0Q)4@3*$PD4@PL)4@2)T*>7`$1`P8,$$@N(FDQ!4J1(D1`6$E"\<D+
MO""6%,D2&V+PUU2*2#$29,CK(X*?5*'RNN)0*](M/G%"VP6-(2DTRP0AIDSA
M,R#@L`E3\V5A.GOI^$0.I8X8-FF,,=$;;1#F!@CX:9;&2ZL)9N!AM-D&0AV*
MR3&'9F/4-,>%<Q!8!@AOF(&@3R"T\<8<.*$%PGU!_?0>"&:4$08==<AT88@C
MNB<'"'/D@6(9;>@P4!IT7+A&&7FDY-9+-*WEQHMAB)$&@'2D,1-RFX&`1AIG
MH-'"''"44<9+=BQ8QEYDI`'F?'FXX%A>)(Y!(!Q3CBE89$5,-D-\<KQQAAQA
MM+'BA86-P48=9-AIADHCGOAAF&_(]^$=:*"YEQMOI,@1&F'8\2$5-:8$`A1A
M-.F7%32X<-NB.^JG(X\^`M6&"P,E(6(>;]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^)</3Y9Z`3SO%BAVU\B*.K(+AA5%#(
MQ3ACC><N3.)\;IS1EKFTCEILJ1_*%&.K_WYH1IUW>E;999EMAAS#'=:(K[`)
MWS2'FPH@EY2N8ZRUHAMVO'%DRGE2QAY<!@_+!EPV`27'BPQW5O2>U])+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(<SS&$H<^BAN5!D+6P-)0W#ZI.G:E:D
MH60I4Z5;4:(6V+,#O:M`=7I)@HZEHBB]@5UTL]&-G-4"+!9+BWMI`UPJY[`$
MAG$F-Z,>%;9T(=<5:PQX.Q".3E8L^"W0+3U)@Z=>0J$706%+?EG"C/3PM9=`
M80D/B<A0DN"&,;C@!'/@SQ(@$A@^?DA8`8-C$2=4)2JU*2^AZE:I>N:7`H8!
M08!*EEM6B",AJ`1C9&`!<BCI-#?,J(AZTZ&*BN`&-;PA#[K,F8J"@#$0)(%6
-5LA#PK@'H#6<10,:`&`!
`
end
=========================== CUT HERE CUT HERE ============================
Re: RBDEMO3 - Bug Note!
#1288
Author: alan i. vymetalik
Date: Wed, 06 Jan 1988 03:50
31 lines
2103 bytes
   Ok, folks...
 
   I am sorry.  I goofed.  For all the Rainbow V2.05 users out there,
   I apologize!  Before shipping the code for the demo I wrote, I
   made some last minute changes.  One of them, however, won't let
   you run the demo on V2.05 systems!  The reason:  look at the return
   value for the CheckDOSVersion function.  You'll notice (expression)
   > qver.  The > should have been >=.  Obviously!  Thanks to Chris
   Harting for e-mailing me with the bug.  For those of you who don't
   have Turbo Pascal V4.0 or the desire to convert it to V3.0, you
   can patch the RBDEMO3.EXE program and change one byte to make it
   work.  At offset 0949hex, change the value 72hex to 76hex.  This
   will correct this minor, offensive bug.

   I will now go prostrate myself in a pool of honey.  Release the
   African army ants!

   Alan


   Alan I. Vymetalik  @  {allegra,seismo}!rochester!ritcv!iav1917
   --------------------------------------------------------------------
   Prism Software Designs, 44 Arborwood Crescent, Rochester, New York,
   14615-3807, 1-716-458-4932 (leave message).
   ---------------------------------------------------------------------
   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.
   ---------------------------------------------------------------------
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads