[comp.binaries.ibm.pc] REPLY: DOS 'pause' with many useful, additional features

dan@leadsv.UUCP (Dan Gold) (01/09/88)

Below you will find a copy of 'REPLY', a program that we have found
quite useful here.  The program reads the keyboard input until either a
legal input (user defined) has been read or the default timeout is
reached.  This kind of program is useful in batch files, such as
autoexec.bat, where you want to give the user the opportunity to make
decisions at various points with a period to decide in.

This is the first revision to this program and hence the author is
looking for bugs and suggested improvements.  As of yet, we have found
no obvious bugs.

The program is written using the IBM Macro Assembler Version 2.0
and hence some of the assembler directives may not work with all other
assemblers.  The code itself, of course, is pure 8088.

To unpack, cut and save all text up to and including the 'snip snip snip' 
cut line, run text through 'uudecode', download to a PC and extract with
ARC5.12 or higher (PKARC/PKXARC is fine too).

The contents of the archive are as follows:

Name          Length    Date     
============  ========  =========
REPLY.COM          781  15 Dec 87
REPLY.DOC        14841  15 Dec 87
        ====  ========
Total      2     15622  

Please send any comments to me at the below address as the author is
not on the Net.  

*******************************************************************************
The views represented herein are mine alone, and do not reflect those of my
employer.
*******************************************************************************

Dan Gold

UUCP: ...!{atlas1, cae780, cfcl, endotsew, esl,
          excelan, hhb, hoptoad, krent, lll-lcc,
          mycroft, rtgvax, scampi, sunncal, tdms2}!leadsv!dan

INTERNET: ucdavis!lll-lcc!leadsv!dan@ucbvax.BERKELEY.EDU
   or     dan%leadsv.UUCP@lll-lcc.ARPA

*******************    snip      snip        snip       ************************
begin 600 reply.arc
M&@A215!,62Y#3TT```!`C@$``(\/2HNZ7`T#```,Z#H(X&&(S@!T?`308M(L
M!`!(,6+(F$&CAHT;.'(\/!!$R!`B18P<09)$R1(F39P\@1)%RA0J5:Q<P9)%
MRT,#'3^&'%GR9,J5+5_&G%GSX;^'*IJDF3,GC9LS(*24@<,F#P@H8>2$:5.&
M3ADY+AHH()'$C9TP;-*0B3JUZM6L6[M^#3N62!VJ:<:$\<J6JE6L6KEZ!2N6
MA)0B4Z`\<3*EB`X2(%Q`!FDD2!4F5`H7YC<CV2]``!0U&'<CR:)T,X#Y$@2@
MD0]'`AIY<!"`U34>`.BX4"7NWJ)FJ1O9@"W;@0!6B_#=!D&'A+$`(,3-2[VN
M!"0`M!(TLB!+0$-8AM9AN)Y]>S/O(<"O6T!>NP5TZ,$/2UW>0H$!#6LIB"5@
M%[=_2PRR#P!UZ$/+`@WQ\`\=&/B3#"#Y$(A.?0_@%X(_S0#23VY&K%/-%%%<
M(<4,TM""0$/%!7!;;A9T)AML_@2CR`6`Z)/;`3I`0T<"0ZP#CQ9?9+'%.KG0
M@EY]'5CHG2+!`"GD,/5)8"$N```P#!H(4D503%DN1$]#````0*T5``"/#UV+
M7ECY.0``#`H@#0`!"824(E"89'$QY$F3@`0(6A@BITP8.F7(@!"21P<($$/0
MA)'#ILP<$%30U)$SA\X;-P$'0MKPQ(Q'$%/JN'&3QTZ8DBQ`!HE)T,.3,2[%
ME)$#(D8.'#>(0BJ0,LU),VE*@ACSDDZ8-&Y.TD%3!H29-VS8O+D#]HP.!0H(
M*HB1@N"`("#FH'DCAPX(,B;'R$D#ATZ:ER#>F`$QMNS!A%E`P)'SYHR<,&U<
MQ(6D0$9=@4'<@"B#!S,<K8I!I*%SLLZ<LF!!A`'A0D@0*F:SEM$L=\;GNUO?
MP,F3>'%CV7->MQ'#AOCDRI?;@$#Q6*&+(%.:I-"L0`4D)YNIHK$JF;)ES*I/
M&CE8).C>.V7L+`V:9G&>-W5RN]&X&H3K,F;4P490IUGT&@AMA+%&66$HP)4;
M=`PF1AV&(>:2;#QM)=)@=!!W7WYLZ174'&"-4=98%YUPTAUD503"&6^\H5$;
M+Y5!G%[XL:$1C)IY!YX"U45&1&"#%7:8&V^%EP0((LF75QEEB/::?)>Q41YT
MF)V$GU^-N<AB&F.@`4))7)+EWVM,);C@7V6,8=61<R@`%HF`R4:;;;@]9V)R
M086QGVQIK<68F?\Q=6&8?IY1%E<K'1@;BG[I:5*<8H3QFD86FKDE5VWL]E$0
M:14WJ$EE/7=>&R<U>2)9:3`%HXP8:E2I1G"\`19K+H"@0%4GF1I=4$$RY%!0
MG(H!EDD@L'@1"$L^2.=2C+T!@E*`6IE:8ZV^&",9"M1ZZTFW2ELC")11>"QW
M!!40)).6CFH66FJQY<899EE$QTHF)2E7&+\%J2*Y)M4:5JDC858&1BP%-=8;
M!Z;V99CN%KJ5GQK&^-IF#YA!61M!)4@<M5$BG)%JHOE)'%^`R8$N9V+\EL1B
M;DCK$QMI:%31'`([>E)%)J8AGT9AF(%P4S`\^2`9<P"+D$+)9L4&QG`L=98<
MTLU&1!%&!%$%$[C=G',903TLYA@4_S2'M-3^!_1)#1+T`!P%=SKTU.[6=EMN
M6EU841A(^2?PR@[^=L5X6CUJ9@Q%OW:T9$L=1D:?`./\DLZC0;C4R&*GAW',
M?LU<L]*0-1UJ&F?$[&)_?FKTH&%NU'&BM'=\Y1?=;4/R`%=R\.R7UY.7=:V9
M46)JW.&)M_D2K8W+"/@8OX%J):>=0IATM-.6I3;US[516,1HBCK>'"^T6#'#
M)K&`\4BE2LU7IQJYUA8((K2YEPAY>851]*R5=YBATD8MQ]1M>%^PX.*VE%QN
M:F!S%V#<1"+$9&][Y.'<F-(00(QHY$+CHID;=D-`SI"A7TN+#-],5)B=!:QW
MDHG;P9:BI<7$H`4YB)5L6J"'E3V`+G9QWEK>1[MH><5:BYE!#23#,!(Q9U%[
M(=\<;.B9'(:*3`B;7AAHV"<7/8A*%J1>'>#@OXF]9D32$D$8Z)>ZS5!`!$$@
MHQ4G5[/+7=!,<S!8Y+Z6*Y1\KUIK$0NAT&3&XV@,2F1X@W12TZ3W'2>.G9HC
M"BMRAI&0H23)$55CS"B"*8Q':/3C"_R&$`8XG(0);QC#&NAWM-4<29*L2A/?
MQK-!V92I#'VDH.^&5X9L\6Y@FA$(05`0@PXJH`P@#%V8VK0&/9;%<V18S<D6
M\Y/G"3)Z&M$@P:*S0I;4\648ZQ*#7&0RDB&S8U8AT;R"HDDR;)%F9,.((@<&
M-15&$71,8TNHM@0'"F%H-+G39*>2$P9%K4Q=(4PA-:,X,=&D[5(D>Q*5?I*L
M,.1AB78LRUD")2]ZM>0B9<`?VRKRR])H#Y*B6A?T4C<'?7%F73&0P0QH4`,;
MW``'.0B#&,8`&#.<83QJ6`,;VA`S.,2!)?>RPQWPD`<]*(`OFP%20%.ZTI:^
M-*9"&,.0C'`&)*1!"6M@0AN<\`8HQ$$*<Z!"':QP!RSD00M'94I2UY6'M(Y&
M/E(2Y,%822_XM"J::5C36*RRUJ6&809%H,$99'"%&^@A!UCH8`&24+)I701B
M6-%*T(8F!YVX08`A5)B91%`??%*&)/$I`QM(^<S4I>=,&5'`H<@BRF2-!V*W
M/!#<!@JMV)TD3.1S0QT-"+_.+N6S)9'/:$'0NN5`ZT)*4:U)LD@WB\#VA`,3
MJ,&&1AY+D:AT(SN;@)HS+>(<!V70BDWF)CG;Z;)0-ERT"%,,YYB`CO1/TJRC
M$31)&M.4Q*090*E*6>I2F,J4I@"Z:1IRNM.>_K0E=1`J48U*D`_P@2`.>#`D
M),"'S3@8PA*F<'@XNYC?\B6XHB4M8#P""0*((`;T@\0"3FR#%#]`!$(4@6)Y
MRV'/?CBTP^5*G>AV',09[7B,D>663BL"&(B`.US%"(D+,+@HG<F0F_5M/D$K
M7/I5B@X0>^_CW%5<I1AJN2=I@VOHD-2?Q.ZAU=,0,4<6&\#,P43[>1]XY3"B
M$JVJ+#7V,)5#K#FYB(`*E2T#_3I['(RTA,A'V-O04"0:^L:A#C\Y<G>^`Y<B
M>+1`(*@)"*H@3GJMB[$@P(O=<&,$W2@V-*.Y-&H6X[YY&22@L9G-J/$F47CE
M,4E:H\(3BH"%(@QAU'"1G[C,8(9?XA8$WN&!L?>"[%`+X0E2P(VN04"$)TSA
M!P1A`"^+=S2Q2&N!;?Q,=Y8M+1401`<J('>S0V*Q?'TD"RC(@TGJ\@(0.`$%
M,:M+8IA"A20TH0A/J`)N@`""(OQ)TSZ>@O'V<Y)T"QO9D%!V14[C(9A(&;@X
M!H$,M'6AACBAWTZH0A'DU.$I@]A*,>"XM'B=!"HHH"+2@7A$5@<6US5M+&PR
M0Q@$Y!?A5$@TWB&``EQ08EYN!Q('&#HD&*!TN!`=`0J`T858[G(=>!SD(E<Z
M`5#@&:(GG>A,)[K3(0%U'5`](`;8I0S@TF31[/4D5X:L;D[K/P!F1+.UINC[
MY&FE3D9M)(EQ.QP%`R4DP279W7$VM*7]!&I;&]M+W_:/&4X]<`-&W.DV-R30
MG7AV*_$F\);W'.AM;WR_0=^:[/>_`S[P@A_<A453>+>1/6EE'V0*4'B"$Z90
M!(_DZO>TH0U<EC5>6=HIMF7Q6)I#YL8ZAN8-78*?"^C'=_3^G2G.%9/BCJ<`
MG1BF[\')79MV!]V&=7@UXA-!'C*Y&!&X8=`G87Y%MJS)'G/[>'$2;2=?`U%F
MM?_]IR5_=W=/(N`$U.<TUJ=>@><N(G![N;=[14`_TH1W"A!W8A)995%]=;<^
M5[(G)\%U=6%:I+$:U]1^ZQ>`EC-_D","67"`::$`?J>`IG4<%DAKHF,E(T@'
M)>@N/K9]?V(8G3)DH30&C6(^(G`U6;,U5.""?9=>(T$@E.&!TX%#U4<M&T@U
M(R.">$""DP8>`A$LV-$$(,`$5L$Z9Z!8\V4H>V%^(/`AKB4MRA<B8G(A-)),
M9I`'Y,04_T%$?0$GJ$0>Y<(ZL$0WT"<^]20'M<)_0<%;$Q4O[T,>QV%=&<4<
MSF$>T6$6&^-:8"(FZV);W4(9YF0B6V9:'W("7B):G/(ZJJ&#<`$%07`$10`"
M+!`#,[!QD"`".\![I`9M('`%27`U8Y@$4P!R1Z``._!JD'$=V6&,+0`)1*``
M#7$U7\![1T`0!D"-__9QF^$`V#$%5?!O(#$%5O<$TDB-+$`$XAB-13"-17`$
M+#`%Z4B.ZVB.11"/Y=B.QD@0#0!MU8@X,(`$!%$!.T`%2"",(.$031`$3D`$
MO8@=]O8$N.$$15`$5_.,.]`#SIB/0M".2>`$3M"1U?@$1@`"4"`%3W`$4A`$
M#[$#VS@$0<`$3$`0!-"14"!P!`$!.W`$C3=M-&F30X`$OK8$(-F230`%Z?*2
M+(`#-@"0MK,#5^"0!%D$!Q%J3E!P4F"24H`"2HD$*;"-2J`%UDAU!!$!.Y`$
M(YD%]1@49P=A+@F3,OF4+3>6.;F3C0>7Q&@0K->1(T=U))8`3?`$5G"42,`"
M-/"3;L.2$-:1N#$5,A`#3"D!.R"6ODB0!PF,'1EJ3&",&&F1U'8;>!$$!X$7
MS9AV]4@%02`$3"",`&F:J%F/5,F04Y`%3?!L3#`%QK@KI\D$L4AM0O`1,^"8
MU%8%4(`",)`"+'`"3,5?3W4"+'`#`$D$PDF<QGD"ISD$2'@$!:D$2\`$3>`$
M3P`%42`%PU@%5G`%6)`%6G`"N-F:&T<$O0D"2QF<PUF<QUF=UYF=V]F=WQF>
MXUF>YYF>25D#SQF=Q:D`T)D0PKB8!.">Z8(#_RB?TJE4N*=[O#<%'\&@C$D#
M`SJ?7>F=$DD0!X"A!'`"31!.`E0&%$>2[K04+L"<,$`$@PD#03"8,J"A"G`%
M)ND$U0@)!B"B)\!8R&00*,I=4+"B*N.B,,H",DJC-EIM5=":Z>*C1'!.8()1
M0IJB14I;1ZJD2;JD+%"C2*``V+$$!&F0)>:C#DBAO4<"ZJEZ1=!O0[`$=N&C
MM,&FN^)O`&>39]J;)78"U(8U6L,U2!JC,_JE-FH$$\F02(>A!?"BA,JD87J1
M&7F,/PF:03`$5""5S.($-8D;"LF0/QF4((D33VJ2`J>7M]F35$!B"#`$3*"H
M&K`#KEH$H$EM1K"-6,"+4S$$6,`"O'J3QP@_=L&K`7$`NS0#'>0`?QF84T$$
M2:"D,."@3-D`N?BFU+8D/,FI-CF,4C"4$+:LZ>*J++`%SMH%$+8#G7J05?!Q
MFSIMQ`IA2L"K8%EB32",4S"JD.``93F2O-H#15.2B@D"]0J/HVH"!;>0VW@U
M0Q"N6$`0$Y"+0FF4NAD$SJJC..&*0S!RWPJ8Z2($4."K#0L).)FNOWJ9'@L"
M1L"+3'`;4HFKNEH`0="K,0NLLUJK,;N-X#H5]PJM."`#TYJ+2Y)[BFFAV9JN
MW.JM^3JQ4?JL:0J!4[`",."/3#D`.^"L=I%B)O8135NAVZBT4R$$O<J:N@FU
M4@NB.P"V5RN3](,2N3ER5)"2N[>RF4IB!,`$Y#@%?(H!Z&J36W"OYJJ8C8>4
MF[JP]XJK<DL0&;`#6P"V*_"27=`#/O"21&F44X&4,/"@31FJ<<HL(VD%+_F+
M(($$EHJI+0NO\VH`'>FYJ:FH^@JP[)JZG\N0GWJPSPAAPVAM>9N+NC:5+PFY
MY)H$71`4';FPSMJU3_"=,OFV"CD%<AN+2[<#=HN\Z]IO,=FO,("S'+NKO7JR
M(KNWN-$0T]NNC?>N^9JK4G"4,ANR.%FSYWNS$.:U!;"S6UN/9'NY4PNT)/D$
M0XL2C3>_MOF^M-JQO7J@J3F,]8NY!7"V(3L`6+NV!)R@2@6="ZF0JRJ3=HN.
MN9NN?0N\D"NXPXL328"]S%H`SLH",]N]#0$%D5&I*4FZYPNXUVJX=P,)B;NX
M6-"X3/"XD9N9;%F41\D$7XJY#U"UNV:A<?F2H4D$D<%RP^B5I_O`+IFIV;8#
M:#D%0>&ZN`'%+`L"!EL$"+NQ(RP$62#%4/"V-KP"Y1K$``D"WJMQ#PK##]S$
M[WN\E$L`!R'!1$#!4QR]1CF]21"3U2:1+GN^E9N^-#NQ[9M8\.K#4S&Q5N"\
M.*F3_#N&M/K(K_EJ5%`%4@`>DLJ94HF5`EN/4_"*L<AZG6J;+#FP]ZJC)&8`
M.0NS,9H#3#G$71O`S=JK6^"A17#`2&"N/(J8^1JPC`F<$X:NW<JN(J#*HTIT
M#"S"/YR4\=F4NHB9D_S)T*:52]F5BTRY!>#(D+P#!Y')FYRJ3J"ZO]C*KURH
M,"#+AUG+>''+XXJCNG<$O.S+";R-PEP`C?F8QARP(@"[JTL;`B%C8/S,6WF8
MT_R2U7R5U[R5VIRO2L#(W5S)WQS.FLS)!BJ<J1G%O2>3Z1S+LPS,#@"_1(#+
M3MJ:]2R3(IW/^TP0D(G%\*/%4LS,!)VOZ0S$!RW-UJK0TV;-6>G0M^G-K!K.
M!!&K%CW.G9R/PPB:N"&2*.%O(!D42U`$6?!LH,F0\QL4L\O"EYJIYZNY0FFQ
MI@IR(\>2=MF7YHN^)JR^LHK(H:;(-IV]L*RD[-R4[ARE,CL%9%J03QNU]ILN
M*\VNP\S/,-V`]?B`O*<#-:VL<OV32CJC"&VM;GJ^TX8X*]!+9+=+-``7O.=Q
MZ(C.C0W$,."SD2UMOD@$1*";D[QVHLL$1M#9H!W&O6H#-5`#EZN/U6K:OYC:
ML0B^VD@%I\W;K:RP`NRP"MP",0"Y8#NY`JRD)7:N!HFV6B"53^"53C"O5!'<
MJIVO.^"=07%U'2ER**'=&AO7(ZS.0A#2^"S8^DS,D`G6*,N+JOIJ%)L%S%VY
M0(S<P(K</9#$61`4E]L#WNERIFN-)?D$&0N/YUK%5VR2"6[$VNIR1^T$)!:B
MOA:N,0D)#^NJ_.T#KGK?!2"NM]V]!NFJ(##=)FG=V-W:KWWAW.W=!_EQX1V+
MD^W,E0O2[0S`[TS"88NG<+H$O*S2Z[V8[4W8QXP;]#-]">OB(<Z4&XX$'?Z3
M(.[8(XZ3)0Z0*%[=!<ZC2!BHBZFO#$Z2#B[*?YJ$7..5$MW9NH>.YPK>(4?C
M>'J^?*R9DRKF"$[F4UW53W#5FYJN+1"Z0<FY(&#.6'W8:GJ;!_[@K5R34\"4
M!("V&IZ+06#)RPUAC.[HOQKI'[&VY.L`ERZ35JOIPAK#EEX%C0[J(?NPFWZA
M<.T`:0W/)7W(M'J^)6WC<QVMZIV8[-W2Q0R+WRNZ+>S5FXJ9=_VU8=NV08YT
MZ*J_[(JVTR:VY>WJATO#BLNXCMO!/)RO0R#1EELT)&ZA7.W"@QZ[3FR-.FD;
MF]N4,"[)Z"ZGTV:72.OJ+\NK("OKM=KI\`NV+."_R4ZU0MOL#3MM_JL`O`>:
M/UGA'[RK&;[A3'#9D/OA!=VL0&S#OJROOOYJ$^JTH3NZ7@WBJ0VMP&J043F5
MWAFZQ\NU6VX`YWZI<JKN3Q`4[,[RDPSO.NKQ0*S0W5MMKJFJ/6#8&5^AB_V5
MUIBRZZJH.!GFDCQM1/_%P>P$"VOLQLVXR>T#E0[1:3[KAMF44XT0.('U!5GS
M27V,,;^Y[QX$+3>J<\Z2*Q^G%9Y[W!SKD7Y[NQN+M6[IR-NL2R+J*4;"(6SW
MW)SIJBZLVKN-;E_<>B_`:,[-$WZ8BU_V9P_VFYF/>6[54L"0\QWNPFZ0>$'H
M)&FI_R;L?S[-PHG)%UV99:T`2T\$K/K12DK:=JWK1,[KD.EK2#"^T'80F+KQ
MP5ZZYBV8=)WK26O+/,X"B$J1R8X`+(ETNU0#R<K2[MW6M%J5HY^:@@QA%*NH
M(0[$68^3NF::,1F5ZJJ-$0^SVI_A(^N3`?>Z52FY?H_7QBWWT$;WK5[X>&_<
MJX[WA'_W(9[JP;KWG4[_!0#I@;_W5>\`1`T)1OVFI=_36-!R=,Z9B4[F7:Z$
MF5;&2:![(/#G$VZA169DPZ[0!W$$"=JR+-GE2AC;OK_.P#_2PE_2+."FK)?L
M]PS[Z2+[_8S,9>[EBYW.O0H#S\W=Z0H#SWV9[INO1`T)1OVF%TWGSZB.[+BC
6!N#%;$[MV^C%L)K\N0()*&`#"@`:``H#
`
end

Usenet_area_"Cb.I.Pc"@watmath.waterloo.edu (01/09/88)

From Usenet: tektronix!cae780!leadsv!dan
From: dan@leadsv.UUCP (Dan Gold)
Newsgroups: comp.binaries.ibm.pc
Subject: REPLY: DOS 'pause' with many useful, additional features
Keywords: REPLY, DOS, IBM PC, 8088, 8086, assembly
Message-ID: <1969@leadsv.UUCP>
Date: 9 Jan 88 04:44:49 GMT
Distribution: na
Organization: Lockheed Missiles & Space Company, Inc., Sunnyvale, CA
Lines: 184


Below you will find a copy of 'REPLY', a program that we have found
quite useful here.  The program reads the keyboard input until either a
legal input (user defined) has been read or the default timeout is
reached.  This kind of program is useful in batch files, such as
autoexec.bat, where you want to give the user the opportunity to make
decisions at various points with a period to decide in.

This is the first revision to this program and hence the author is
looking for bugs and suggested improvements.  As of yet, we have found
no obvious bugs.

The program is written using the IBM Macro Assembler Version 2.0
and hence some of the assembler directives may not work with all other
assemblers.  The code itself, of course, is pure 8088.

To unpack, cut and save all text up to and including the 'snip snip snip' 
cut line, run text through 'uudecode', download to a PC and extract with
ARC5.12 or higher (PKARC/PKXARC is fine too).

The contents of the archive are as follows:

Name          Length    Date     
============  ========  =========
REPLY.COM          781  15 Dec 87
REPLY.DOC        14841  15 Dec 87
        ====  ========
Total      2     15622  

Please send any comments to me at the below address as the author is
not on the Net.  

*****************************************************************************
**
The views represented herein are mine alone, and do not reflect those of my
employer.
*****************************************************************************
**

Dan Gold

UUCP: ...!{atlas1, cae780, cfcl, endotsew, esl,
          excelan, hhb, hoptoad, krent, lll-lcc,
          mycroft, rtgvax, scampi, sunncal, tdms2}!leadsv!dan

INTERNET: ucdavis!lll-lcc!leadsv!dan@ucbvax.BERKELEY.EDU
   or     dan%leadsv.UUCP@lll-lcc.ARPA

*******************    snip      snip        snip       *********************
***
begin 600 reply.arc
M&@A215!,62Y#3TT```!`C@$``(\/2HNZ7`T#```,Z#H(X&&(S@!T?`308M(L
M!`!(,6+(F$&CAHT;.'(\/!!$R!`B18P<09)$R1(F39P\@1)%RA0J5:Q<P9)%
MRT,#'3^&'%GR9,J5+5_&G%GSX;^'*IJDF3,GC9LS(*24@<,F#P@H8>2$:5.&
M3ADY+AHH()'$C9TP;-*0B3JUZM6L6[M^#3N62!VJ:<:$\<J6JE6L6KEZ!2N6
MA)0B4Z`\<3*EB`X2(%Q`!FDD2!4F5`H7YC<CV2]``!0U&'<CR:)T,X#Y$@2@
MD0]'`AIY<!"`U34>`.BX4"7NWJ)FJ1O9@"W;@0!6B_#=!D&'A+$`(,3-2[VN
M!"0`M!(TLB!+0$-8AM9AN)Y]>S/O(<"O6T!>NP5TZ,$/2UW>0H$!#6LIB"5@
M%[=_2PRR#P!UZ$/+`@WQ\`\=&/B3#"#Y$(A.?0_@%X(_S0#23VY&K%/-%%%<
M(<4,TM""0$/%!7!;;A9T)AML_@2CR`6`Z)/;`3I`0T<"0ZP#CQ9?9+'%.KG0
M@EY]'5CHG2+!`"GD,/5)8"$N```P#!H(4D503%DN1$]#````0*T5``"/#UV+
M7ECY.0``#`H@#0`!"824(E"89'$QY$F3@`0(6A@BITP8.F7(@!"21P<($$/0
MA)'#ILP<$%30U)$SA\X;-P$'0MKPQ(Q'$%/JN'&3QTZ8DBQ`!HE)T,.3,2[%
ME)$#(D8.'#>(0BJ0,LU),VE*@ACSDDZ8-&Y.TD%3!H29-VS8O+D#]HP.!0H(
M*HB1@N"`("#FH'DCAPX(,B;'R$D#ATZ:ER#>F`$QMNS!A%E`P)'SYHR<,&U<
MQ(6D0$9=@4'<@"B#!S,<K8I!I*%SLLZ<LF!!A`'A0D@0*F:SEM$L=\;GNUO?
MP,F3>'%CV7->MQ'#AOCDRI?;@$#Q6*&+(%.:I-"L0`4D)YNIHK$JF;)ES*I/
M&CE8).C>.V7L+`V:9G&>-W5RN]&X&H3K,F;4P490IUGT&@AMA+%&66$HP)4;
M=`PF1AV&(>:2;#QM)=)@=!!W7WYLZ174'&"-4=98%YUPTAUD503"&6^\H5$;
M+Y5!G%[XL:$1C)IY!YX"U45&1&"#%7:8&V^%EP0((LF75QEEB/::?)>Q41YT
MF)V$GU^-N<AB&F.@`4))7)+EWVM,);C@7V6,8=61<R@`%HF`R4:;;;@]9V)R
M086QGVQIK<68F?\Q=6&8?IY1%E<K'1@;BG[I:5*<8H3QFD86FKDE5VWL]E$0
M:14WJ$EE/7=>&R<U>2)9:3`%HXP8:E2I1G"\`19K+H"@0%4GF1I=4$$RY%!0
MG(H!EDD@L'@1"$L^2.=2C+T!@E*`6IE:8ZV^&",9"M1ZZTFW2ELC")11>"QW
M!!40)).6CFH66FJQY<899EE$QTHF)2E7&+\%J2*Y)M4:5JDC858&1BP%-=8;
M!Z;V99CN%KJ5GQK&^-IF#YA!61M!)4@<M5$BG)%JHOE)'%^`R8$N9V+\EL1B
M;DCK$QMI:%31'`([>E)%)J8AGT9AF(%P4S`\^2`9<P"+D$+)9L4&QG`L=98<
MTLU&1!%&!%$%$[C=G',903TLYA@4_S2'M-3^!_1)#1+T`!P%=SKTU.[6=EMN
M6EU841A(^2?PR@[^=L5X6CUJ9@Q%OW:T9$L=1D:?`./\DLZC0;C4R&*GAW',
M?LU<L]*0-1UJ&F?$[&)_?FKTH&%NU'&BM'=\Y1?=;4/R`%=R\.R7UY.7=:V9
M46)JW.&)M_D2K8W+"/@8OX%J):>=0IATM-.6I3;US[516,1HBCK>'"^T6#'#
M)K&`\4BE2LU7IQJYUA8((K2YEPAY>851]*R5=YBATD8MQ]1M>%^PX.*VE%QN
M:F!S%V#<1"+$9&][Y.'<F-(00(QHY$+CHID;=D-`SI"A7TN+#-],5)B=!:QW
MDHG;P9:BI<7$H`4YB)5L6J"'E3V`+G9QWEK>1[MH><5:BYE!#23#,!(Q9U%[
M(=\<;.B9'(:*3`B;7AAHV"<7/8A*%J1>'>#@OXF]9D32$D$8Z)>ZS5!`!$$@
MHQ4G5[/+7=!,<S!8Y+Z6*Y1\KUIK$0NAT&3&XV@,2F1X@W12TZ3W'2>.G9HC
M"BMRAI&0H23)$55CS"B"*8Q':/3C"_R&$`8XG(0);QC#&NAWM-4<29*L2A/?
MQK-!V92I#'VDH.^&5X9L\6Y@FA$(05`0@PXJH`P@#%V8VK0&/9;%<V18S<D6
M\Y/G"3)Z&M$@P:*S0I;4\648ZQ*#7&0RDB&S8U8AT;R"HDDR;)%F9,.((@<&
M-15&$71,8TNHM@0'"F%H-+G39*>2$P9%K4Q=(4PA-:,X,=&D[5(D>Q*5?I*L
M,.1AB78LRUD")2]ZM>0B9<`?VRKRR])H#Y*B6A?T4C<'?7%F73&0P0QH4`,;
MW``'.0B#&,8`&#.<83QJ6`,;VA`S.,2!)?>RPQWPD`<]*(`OFP%20%.ZTI:^
M-*9"&,.0C'`&)*1!"6M@0AN<\`8HQ$$*<Z!"':QP!RSD00M'94I2UY6'M(Y&
M/E(2Y,%822_XM"J::5C36*RRUJ6&809%H,$99'"%&^@A!UCH8`&24+)I701B
M6-%*T(8F!YVX08`A5)B91%`??%*&)/$I`QM(^<S4I>=,&5'`H<@BRF2-!V*W
M/!#<!@JMV)TD3.1S0QT-"+_.+N6S)9'/:$'0NN5`ZT)*4:U)LD@WB\#VA`,3
MJ,&&1AY+D:AT(SN;@)HS+>(<!V70BDWF)CG;Z;)0-ERT"%,,YYB`CO1/TJRC
M$31)&M.4Q*090*E*6>I2F,J4I@"Z:1IRNM.>_K0E=1`J48U*D`_P@2`.>#`D
M),"'S3@8PA*F<'@XNYC?\B6XHB4M8#P""0*((`;T@\0"3FR#%#]`!$(4@6)Y
MRV'/?CBTP^5*G>AV',09[7B,D>663BL"&(B`.US%"(D+,+@HG<F0F_5M/D$K
M7/I5B@X0>^_CW%5<I1AJN2=I@VOHD-2?Q.ZAU=,0,4<6&\#,P43[>1]XY3"B
M$JVJ+#7V,)5#K#FYB(`*E2T#_3I['(RTA,A'V-O04"0:^L:A#C\Y<G>^`Y<B
M>+1`(*@)"*H@3GJMB[$@P(O=<&,$W2@V-*.Y-&H6X[YY&22@L9G-J/$F47CE
M,4E:H\(3BH"%(@QAU'"1G[C,8(9?XA8$WN&!L?>"[%`+X0E2P(VN04"$)TSA
M!P1A`"^+=S2Q2&N!;?Q,=Y8M+1401`<J('>S0V*Q?'TD"RC(@TGJ\@(0.`$%
M,:M+8IA"A20TH0A/J`)N@`""(OQ)TSZ>@O'V<Y)T"QO9D%!V14[C(9A(&;@X
M!H$,M'6AACBAWTZH0A'DU.$I@]A*,>"XM'B=!"HHH"+2@7A$5@<6US5M+&PR
M0Q@$Y!?A5$@TWB&``EQ08EYN!Q('&#HD&*!TN!`=`0J`T858[G(=>!SD(E<Z
M`5#@&:(GG>A,)[K3(0%U'5`](`;8I0S@TF31[/4D5X:L;D[K/P!F1+.UINC[
MY&FE3D9M)(EQ.QP%`R4DP279W7$VM*7]!&I;&]M+W_:/&4X]<`-&W.DV-R30
MG7AV*_$F\);W'.AM;WR_0=^:[/>_`S[P@A_<A453>+>1/6EE'V0*4'B"$Z90
M!(_DZO>TH0U<EC5>6=HIMF7Q6)I#YL8ZAN8-78*?"^C'=_3^G2G.%9/BCJ<`
MG1BF[\')79MV!]V&=7@UXA-!'C*Y&!&X8=`G87Y%MJS)'G/[>'$2;2=?`U%F
MM?_]IR5_=W=/(N`$U.<TUJ=>@><N(G![N;=[14`_TH1W"A!W8A)995%]=;<^
M5[(G)\%U=6%:I+$:U]1^ZQ>`EC-_D","67"`::$`?J>`IG4<%DAKHF,E(T@'
M)>@N/K9]?V(8G3)DH30&C6(^(G`U6;,U5.""?9=>(T$@E.&!TX%#U4<M&T@U
M(R.">$""DP8>`A$LV-$$(,`$5L$Z9Z!8\V4H>V%^(/`AKB4MRA<B8G(A-)),
M9I`'Y,04_T%$?0$GJ$0>Y<(ZL$0WT"<^]20'M<)_0<%;$Q4O[T,>QV%=&<4<
MSF$>T6$6&^-:8"(FZV);W4(9YF0B6V9:'W("7B):G/(ZJJ&#<`$%07`$10`"
M+!`#,[!QD"`".\![I`9M('`%27`U8Y@$4P!R1Z``._!JD'$=V6&,+0`)1*``
M#7$U7\![1T`0!D"-__9QF^$`V#$%5?!O(#$%5O<$TDB-+$`$XAB-13"-17`$
M+#`%Z4B.ZVB.11"/Y=B.QD@0#0!MU8@X,(`$!%$!.T`%2"",(.$031`$3D`$
MO8@=]O8$N.$$15`$5_.,.]`#SIB/0M".2>`$3M"1U?@$1@`"4"`%3W`$4A`$
M#[$#VS@$0<`$3$`0!-"14"!P!`$!.W`$C3=M-&F30X`$OK8$(-F230`%Z?*2
M+(`#-@"0MK,#5^"0!%D$!Q%J3E!P4F"24H`"2HD$*;"-2J`%UDAU!!$!.Y`$
M(YD%]1@49P=A+@F3,OF4+3>6.;F3C0>7Q&@0K->1(T=U))8`3?`$5G"42,`"
M-/"3;L.2$-:1N#$5,A`#3"D!.R"6ODB0!PF,'1EJ3&",&&F1U'8;>!$$!X$7
MS9AV]4@%02`$3"",`&F:J%F/5,F04Y`%3?!L3#`%QK@KI\D$L4AM0O`1,^"8
MU%8%4(`",)`"+'`"3,5?3W4"+'`#`$D$PDF<QGD"ISD$2'@$!:D$2\`$3>`$
M3P`%42`%PU@%5G`%6)`%6G`"N-F:&T<$O0D"2QF<PUF<QUF=UYF=V]F=WQF>
MXUF>YYF>25D#SQF=Q:D`T)D0PKB8!.">Z8(#_RB?TJE4N*=[O#<%'\&@C$D#
M`SJ?7>F=$DD0!X"A!'`"31!.`E0&%$>2[K04+L"<,$`$@PD#03"8,J"A"G`%
M)ND$U0@)!B"B)\!8R&00*,I=4+"B*N.B,,H",DJC-EIM5=":Z>*C1'!.8()1
M0IJB14I;1ZJD2;JD+%"C2*``V+$$!&F0)>:C#DBAO4<"ZJEZ1=!O0[`$=N&C
MM,&FN^)O`&>39]J;)78"U(8U6L,U2!JC,_JE-FH$$\F02(>A!?"BA,JD87J1
M&7F,/PF:03`$5""5S.($-8D;"LF0/QF4((D33VJ2`J>7M]F35$!B"#`$3*"H
M&K`#KEH$H$EM1K"-6,"+4S$$6,`"O'J3QP@_=L&K`7$`NS0#'>0`?QF84T$$
M2:"D,."@3-D`N?BFU+8D/,FI-CF,4C"4$+:LZ>*J++`%SMH%$+8#G7J05?!Q
MFSIMQ`IA2L"K8%EB32",4S"JD.``93F2O-H#15.2B@D"]0J/HVH"!;>0VW@U
M0Q"N6$`0$Y"+0FF4NAD$SJJC..&*0S!RWPJ8Z2($4."K#0L).)FNOWJ9'@L"
M1L"+3'`;4HFKNEH`0="K,0NLLUJK,;N-X#H5]PJM."`#TYJ+2Y)[BFFAV9JN
MW.JM^3JQ4?JL:0J!4[`",."/3#D`.^"L=I%B)O8135NAVZBT4R$$O<J:N@FU
M4@NB.P"V5RN3](,2N3ER5)"2N[>RF4IB!,`$Y#@%?(H!Z&J36W"OYJJ8C8>4
MF[JP]XJK<DL0&;`#6P"V*_"27=`#/O"21&F44X&4,/"@31FJ<<HL(VD%+_F+
M(($$EHJI+0NO\VH`'>FYJ:FH^@JP[)JZG\N0GWJPSPAAPVAM>9N+NC:5+PFY
MY)H$71`4';FPSMJU3_"=,OFV"CD%<AN+2[<#=HN\Z]IO,=FO,("S'+NKO7JR
M(KNWN-$0T]NNC?>N^9JK4G"4,ANR.%FSYWNS$.:U!;"S6UN/9'NY4PNT)/D$
M0XL2C3>_MOF^M-JQO7J@J3F,]8NY!7"V(3L`6+NV!)R@2@6="ZF0JRJ3=HN.
MN9NN?0N\D"NXPXL328"]S%H`SLH",]N]#0$%D5&I*4FZYPNXUVJX=P,)B;NX
M6-"X3/"XD9N9;%F41\D$7XJY#U"UNV:A<?F2H4D$D<%RP^B5I_O`+IFIV;8#
M:#D%0>&ZN`'%+`L"!EL$"+NQ(RP$62#%4/"V-KP"Y1K$``D"WJMQ#PK##]S$
M[WN\E$L`!R'!1$#!4QR]1CF]21"3U2:1+GN^E9N^-#NQ[9M8\.K#4S&Q5N"\
M.*F3_#N&M/K(K_EJ5%`%4@`>DLJ94HF5`EN/4_"*L<AZG6J;+#FP]ZJC)&8`
M.0NS,9H#3#G$71O`S=JK6^"A17#`2&"N/(J8^1JPC`F<$X:NW<JN(J#*HTIT
M#"S"/YR4\=F4NHB9D_S)T*:52]F5BTRY!>#(D+P#!Y')FYRJ3J"ZO]C*KURH
M,"#+AUG+>''+XXJCNG<$O.S+";R-PEP`C?F8QARP(@"[JTL;`B%C8/S,6WF8
MT_R2U7R5U[R5VIRO2L#(W5S)WQS.FLS)!BJ<J1G%O2>3Z1S+LPS,#@"_1(#+
M3MJ:]2R3(IW/^TP0D(G%\*/%4LS,!)VOZ0S$!RW-UJK0TV;-6>G0M^G-K!K.
M!!&K%CW.G9R/PPB:N"&2*.%O(!D42U`$6?!LH,F0\QL4L\O"EYJIYZNY0FFQ
MI@IR(\>2=MF7YHN^)JR^LHK(H:;(-IV]L*RD[-R4[ARE,CL%9%J03QNU]ILN
M*\VNP\S/,-V`]?B`O*<#-:VL<OV32CJC"&VM;GJ^TX8X*]!+9+=+-``7O.=Q
MZ(C.C0W$,."SD2UMOD@$1*";D[QVHLL$1M#9H!W&O6H#-5`#EZN/U6K:OYC:
ML0B^VD@%I\W;K:RP`NRP"MP",0"Y8#NY`JRD)7:N!HFV6B"53^"53C"O5!'<
MJIVO.^"=07%U'2ER**'=&AO7(ZS.0A#2^"S8^DS,D`G6*,N+JOIJ%)L%S%VY
M0(S<P(K</9#$61`4E]L#WNERIFN-)?D$&0N/YUK%5VR2"6[$VNIR1^T$)!:B
MOA:N,0D)#^NJ_.T#KGK?!2"NM]V]!NFJ(##=)FG=V-W:KWWAW.W=!_EQX1V+
MD^W,E0O2[0S`[TS"88NG<+H$O*S2Z[V8[4W8QXP;]#-]">OB(<Z4&XX$'?Z3
M(.[8(XZ3)0Z0*%[=!<ZC2!BHBZFO#$Z2#B[*?YJ$7..5$MW9NH>.YPK>(4?C
M>'J^?*R9DRKF"$[F4UW53W#5FYJN+1"Z0<FY(&#.6'W8:GJ;!_[@K5R34\"4
M!("V&IZ+06#)RPUAC.[HOQKI'[&VY.L`ERZ35JOIPAK#EEX%C0[J(?NPFWZA
M<.T`:0W/)7W(M'J^)6WC<QVMZIV8[-W2Q0R+WRNZ+>S5FXJ9=_VU8=NV08YT
MZ*J_[(JVTR:VY>WJATO#BLNXCMO!/)RO0R#1EELT)&ZA7.W"@QZ[3FR-.FD;
MF]N4,"[)Z"ZGTV:72.OJ+\NK("OKM=KI\`NV+."_R4ZU0MOL#3MM_JL`O`>:
M/UGA'[RK&;[A3'#9D/OA!=VL0&S#OJROOOYJ$^JTH3NZ7@WBJ0VMP&J043F5
MWAFZQ\NU6VX`YWZI<JKN3Q`4[,[RDPSO.NKQ0*S0W5MMKJFJ/6#8&5^AB_V5
MUIBRZZJH.!GFDCQM1/_%P>P$"VOLQLVXR>T#E0[1:3[KAMF44XT0.('U!5GS
M27V,,;^Y[QX$+3>J<\Z2*Q^G%9Y[W!SKD7Y[NQN+M6[IR-NL2R+J*4;"(6SW
MW)SIJBZLVKN-;E_<>B_`:,[-$WZ8BU_V9P_VFYF/>6[54L"0\QWNPFZ0>$'H
M)&FI_R;L?S[-PHG)%UV99:T`2T\$K/K12DK:=JWK1,[KD.EK2#"^T'80F+KQ
MP5ZZYBV8=)WK26O+/,X"B$J1R8X`+(ETNU0#R<K2[MW6M%J5HY^:@@QA%*NH
M(0[$68^3NF::,1F5ZJJ-$0^SVI_A(^N3`?>Z52FY?H_7QBWWT$;WK5[X>&_<
MJX[WA'_W(9[JP;KWG4[_!0#I@;_W5>\`1`T)1OVFI=_36-!R=,Z9B4[F7:Z$
MF5;&2:![(/#G$VZA169DPZ[0!W$$"=JR+-GE2AC;OK_.P#_2PE_2+."FK)?L
M]PS[Z2+[_8S,9>[EBYW.O0H#S\W=Z0H#SWV9[INO1`T)1OVF%TWGSZB.[+BC
6!N#%;$[MV^C%L)K\N0()*&`#"@`:``H#
`
end

--- via UGate v1.6
 * Origin: watmath (221/163)