'===========================================================================
' Subject: MCI Encapsulation                  Date: 12-15-02 (  :  )       
'  Author: Patrice Terrier                    Code: PBWIN/DLL              
'  Origin: pterrier@zapsolution.com         Packet: PBDLL.ABC
'===========================================================================
'>>> Page 1 of MMENGINE.ZIP begins here. TYPE:BINAA TLEN:6438
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"MMENGINE.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%#-%mFn\RcB8fdY67%%1l%%%1%%%%rrLj=68D=4S1;0B^A;:>Tkck4
U"&x_VTSO[Hv9RZ2mSoJ=t$78j]6E0CsL]UeoBd]>0j+:I4>ftNuFe:Sf49dJpXJP
U"-h[op7f4,llSHeh[)JnZsRw-RBDNMXHHoF>KmTc%%,(?EUJ&LU[OHSWZ/^vWWO3
U"mIr+,bZI9*rY3^Tx7<+xB1=5N\#Ys5xrL%4vs,jiH2zTlz03-2WZ/LQBCMh?b)X
U"8q3a(qbbATp#D3Qt377_0tcC-R;H?tvpEY$g;-mkU[J2g_Zn,6QZ3?9i#jnikhX
U"r5((PK&ToP,p8g2n;^Zkbv(FSeG2gsfhncKd]+cwA-%oMYKl1K0L2fvPgInvZZr
U"/XuNTTlsDW.xDE%22Yf?$=013ynp=v$',lKOQ7dd&cMGCL=S&<MElHhMs0<4\8U
U"k^*F]8mnV;8_,[^m6D:$x84F7]3xrDlcIx:BvMJS/IWboo4(H^s.X[u8kIm'fIJ
U"VGLi7Oirmk/>.0p'-q5)D4Dvt$p?[F7:fIvc\x1+?-iKA?gRGyYfd?Hrna=709m
U"'Im]+/'coII*\Xl+-lI]q]^Fs?D5?VgTX&AssnD\KYVG>H_2$,434n;(qe,.p1w
U"avXyMg<A&w7'fo$?0_i7]BcL]gR]C'^Rrl=KA>['lLJGE;V/]9gkUrbA;Y[UCUG
U"s-enGsDHwahvIt;5_8szr]+=E;DC(&#g$#?CN8PYMC$F39J7EDsWJ,ks2Z:8'8<
U"wb5It6h7<RBT'V*Vx^?5a7F\1%R%J9n40\r)o$t)WTB]H-SIK8;gfIU1c#So?4M
U"&m[eS?XT\J3eYE$=..rzeQNBCAM<32e9J\3x6Kf'kd+NJ>B?seYl,j3MdZQ:O\h
U"s$V%P55/KSpWltu/,iMQJaUCI,u1E4=1qdJn3<S(3$O#'3$z(]ufo\q]iB86#)d
U"*G%epetrHXQfm$Fk5Ytnf?K9LqzXJbD4g&97B7IZdE8R&7hAhM?[$9HAmaT/&GC
U"D:Lu9<TfUXAAm^ysRIp>+nrSPxQ'Km7M\*Y*(.;s7)hJbI4f*^tdqRDXG<hKhNY
U"AJoLKUxo[,71y/JOvTA#fJI-Yia;GI;1\0%tMq[RGZnk\8<3\Ds;=n-&d4w\MIx
U"AF?%*iR7o_zK9f.e8_*nHTk='WC\6D:F#](Y3.Q(m8mp$[p)Rirg%mQ<Z9jA]]f
U"J*p(mePUVWFR;nkjK#nW7Xt=iXl*qRWWXAGS2jpIp8'LEks#bbQ4Wd(D+Tj4M-2
U"CCKJ;-An7L>rO5%doS8Sr\gmQs;nC9C=.Wgnd+rj.Lw(_ZW(bf&e#dy?AmC=X/'
U"OWm^L6Q;Jo*[7J-L7csAA;jF=-'R+##FH:R&o)naA19*fY#FQS5F=6l*FLU>97O
U"\]uj>zAOz#Ze1cL78(UInO0G=5==NIox_51,?Ww6+oKDEufhP[J.xhd)N9BVT%1
U"s>wgpEq/g))qRJCp^5Ou)o]<-kLp_z+u#YHrQEIPruGmB*s(?dAB0D.;O+caIgp
U"e(E^bnKSMAuOW'X'9'8K;vA&P,,0.'v'=4LrHUUTEcUedN('1#oFtibUk+E0=m4
U"nMkfAM#>9Wj\ou7-lY:3U+k-v_Wfxo[Kc$7s/fRI]PvSj)=9m<p-6_irsR_*d,(
U"Cj<;,,%&pnSa\N-;cpj5wIH^pc]=K6E3MQi55#5a9Gs;Tp7^u]]0S1FP)B]k'Y-
U"aFbuK>1=Z<<04f/;2]RSXgI0rZcZQo1cl?i;)qXD*J&3:/YT(:sOuQFm;wWB><-
U"gcMd7nIK0%iT=Wx8n[ScqWI_g'E'I&MU%.j0797$M/]P5hB'pDLKCga^QO%J43o
U"J3YA04\u;4Ma#VKi,CDv0T3Ue_4spg-jQKb:Kl;qT#6eD$KJ]jb5wV/Oh]M^5Y>
U"$\N::10K>rRLTc[SP2kyK;6R[lJl,)b9[Z#/%7l*VOON1h\n/(0KUugd358UltZ
U"lfYb4NKUs22WU*X)w%RlEoWEn:\uwulHKi1I6?J9.EmT/gdEn[.\+QI$>>-ptr6
U"KOm#'k]o]5<nw6%J1:&b=jMdISB/c^^DjXX^DF-SLTn]aNIhJ'WPs?&cGmvDv2j
U"LqP9Z\B2?,wV$o=/'>hy'-7/z7SX%$gIN7GPlX=b4/R)gbm2xT8]9eGJO-b^UVf
U"*a'0>&vG8'Rh%kD9<GU%oe<oiS7cP-mru400Q;&:UE]=DFT7AqV3yUwEgi5oGjW
U"*Xq]::-xL:nm([LfYc,e4.+wm\i7NEneOM0t[+pV?wi+3;OtBuEn<Tx(qPPDmC,
U"O:eAn2T0rIwk\he'3XoJ%Q/<qw(X_?\M&S'ce.Qw3%8iLOY\d*]61($P8(Sf%/P
U"f:+[^wrUj[=;4/N8Q\'^%0LB[/e3%TOfk.Ww.DM+1Ws]TJ0)f8&YG8EW8-hR(ah
U"48>EG0NPXCoE;H_79sfYQ2&)J5^MyLO1+U7lA%V37IZ,l.kynqN.%pk#_.XX,08
U"BoX=h3ME86SZy4B]-ffV_6/E/T+M^#7^6S;07EsDi4)ZX2>b^y;Uc.EK89%m*P+
U"C4wzGd=5cm9s>a+70?Ku8L&Y#T^3_zG+lsdV6hoMXsM:xPXmSY&vN]jC;epNE(#
U"YZGLLUa52.fZC[;lmKN\[#uv%&U1.;4eMTp]$]O[+Yi>)=&NCEIz<gs>MQfFoJI
U"0,$efv=g93ES()T5$:oq1z4WdsZ=0kZa[]V,5G-9fPl-_vMXG5;<>iSIgJpof#g
U"ZEU>kjt>r&ED-tD(]OHADK$clv*KzasB<mcKuwa2bhqizhT\:>I*>McL3B1X#N,
U"6[98Xm/m%'nB0XcuI0Tnp7GDd3<GdvA1K0cg769?S4S*H>KZjh/1jhQO:$IN1vx
U"A$bWq7?QxnKK=-B33?Sb4p+MD%8\-Db7vEp961,ysF4)>a#Q\EVf6JeneJ]R**C
U"I>B0p^8OvsXTY-2Vf%-c#xi/TL;RDz7Xqxg.,sUhYqL]2xW:7dUo1^pTu)w[1pp
U"khDIht*1E.Wlo;sDsqXU<K/ACD-6ehrqsh\Yis9CzWg^T/-Fk*4:2P^*xpI[Ji$
U"PhW1$+gmZJ.?rf+0clVgehA8[<B(<Ik:-xfQ7.:[aOcS5A]0J32Fm,xE7e[k,1L
U"\2?O$9\>9[G4Z\[]EtkmkS'9nZReLS%LA4c'43L??[VuNnTQHBQz&G67IvI5u$N
U"G8i?JIlw7wg$a$[cl2R/Al;QEi/^9*T8Ova5OG$24_Tcy&uaPNbjB=%5pjUXWqt
U"U:f$j)Jonb&=AKD%=N*JV>E8b'4C;F=I;)Z0P:J+FS;,A7CUQT;QX[Wf9t*/8F7
U"c9]v_&/Xb'-4WA\l=YW<QbL5;ft53,pS2y8#b-X%xN9Q63lq9A4-R;B%rxcGifQ
U"w'D<=ckS$-7*cq(AWAl(=(pCXGur'GsL.'xBMhvSgj\xG7D0+o4T)4p_-fj]3sB
U"6k:mD+B6uug2?.(Cfa:E?Pqe52lXl\QJ9S=6BAb-#l0FsgCZ$.:RX9FIBN(7HS0
U"r.3'XIIoA.t-)OY10y?EAu=v*uLGMeX;CRo=FBcS^3&No/oJ:Ts*:k\P7ld',5#
U"=.8rzY#sMIa[sgFO,:BY0D,[8K8R$E?m?cE^7d;SQ/%\n<%t^L1'.mhm%'nAVKC
U"nO^buwZr7j'2xEP95&fIAD<3Q^TY0[#JfGCmtyr[C\-8HFk(F)ntyJ0.e**:LhR
U"XO,]Zwq'f-QAwjTm%:KbTnu3)xi*-)co;:%aACsKOQ$YTgTO>Wa9g:]2Hf_46g2
U"EZm-(]Vn?b+^*V-t1h1u;_3g+1(54Zai5b/Nz7.Yn4=d+Qk_Ih=;4+]j6v,dTqy
U"3+/)q<Tx^tBAL$wk=uoF;Kpo<>dbxOT;+=St'0OMX=-EpiB=)npi&RahFeYUWc2
U"epj]oeCKjvLb[<w5TL3QP<^(/-d_(f;?Z#tbMf_0;Oog(a2'58?FA1?4w[;o09O
U"b/noVR>/t;Q*IAY-6VDTBkLPL2K[>RgD(PPS6.IDn81E>DrRf89+_T*?s$?IsLr
U"Mb=cDQ,accCk%Wp)NA*kB*7me55b?pTdoVbE-:?U4UA;+Af)b97'kzx%bG2j=u)
U"6CeG*rIOr84GeMI7hfshEwq/CsLCU-h<9D,[VB-U9u-lEFFh*W4p5nT;aSaWH4R
U"Y_4gA8Qqe^/SFDiYh$UPCa&sY:cOD5SV#S[4CL_IAn'IX+#e?;'&U_&e>I9KnH-
U"<048E%0EOZJ4l0gf%beFEMMz&N<+\N2y[AG$#SPTcVEGv_RYrZS,]QfeR.a68%R
U"MEvUEZ?SSk,F_hSU6hN1%z1hSAPgJ</2G3a('?IgJg^%\Twl+GXT98KZ#Qq>>g9
U"fT#3+S8xaE7]+75dfcv?JD+kUL;i(?y3PxZ>3YB<YYC<#'&E6xogYmPLl_4m9X6
U"5.[*B3[AE:NVuBW7iZOcH,#0m.ZT]ps0:*'?B<%I<4dVNC)8(bOE4I$X/Cc,lgt
U"p8ZKQ+<lpqOmg:EBR1$Tf<:t%TS<WP(Y'v4Y#TT3i-CjZr$gmFnpF)*B-NijeaD
U"E8Zm9s\BubCB&TzUrM6,uXuQuBAs%wp:<.i:ajQdwiC'-$5-51(\=qisSLPHA'O
U"c35M+0H=H[0k*6,%/wZ$S&9s$KgG>Q_i1CaV<;i-JI=sPv02rN%5EA,0t.b(qhv
U"%3^+C?fsIFFc)^+M;f^>ngg>$L,h7:[[8X7&9IMi%E>Sziirdcg_2-J5H>Y.r)Y
U"_09Xk/U-gZzRUUi?D)'gKya,ZcIn.Svx5K.JUk(JeyM)Lan7R_Cdz25$l2q9V&,
U"4qB)7nxr&CbEMYDoRy&e<5,EeT.cU92yDO?j:F15*C*%zNHa(I3b++mcl*/<ppU
U"AM[zqz)I*DRk6G%oK0-RQzM>ZmAj%th$:RpR[qziTMN\r<%?nw2HN*,#'d2HN7G
U"j/(.gCMap+C3D7RYcZ8$AXYLl36in?%bE?1#lN=18:.Uj'rhq23?=klvdPj.Y)M
U"GuR0K1uGFXg.8Bek[xpZQRQ+&<P4p\gRvqD#Uu23jEG3alUMBC+#lnmS=Oacl_K
U"F]-P#8l0fx+Rcc0h?[PatXj#Nan./EyzfkrR[%&lpaKH5tD;.f)M9DCmdQ:x4H=
U"5(UCLuq[qATn7t](Z_HmrJEeu-3ki\bg)Ke:G%1+h#1IWr6fSw>:j\(Hoj_K5o*
U">d1[(x=+\Zc_r:%ri+c9GW*d;dc77MhQrGDfA67lKT_4lTQ+(H.aN%mr%6$);/[
U"/pP3JdzzyYkb1pt/QSoZKCLl.Itfyon'[OB1;73eC,_._,^vegk>edZ#W0iuP:L
U"S5bHa?%)t&xhWvCZ'qm)/ooa>-L*0I8&MZQ9PZVGu:#isdo'hP:V+9Jn:xL)Wp4
U"k'Dh=aR3UmsX4;4*Ojc[+ED#J0+U*nbI*ZXDgLdeh+_VP&:uj4W%k3vWtN_3E7'
U"51$_WiweI(mE#6F8Jn3wg#&hX&d2TMctuG([v'2d?;\G)eDn(O%I:']98z;PP4H
U"l:NwI7T02TYa6n%Tm7Y4f9umjJ'huG(1WDtFIGJmso_6eYX]\>IFBQE)\Q%Y.n8
U"(&+r>ECkyGd8e4r$Q,?hNv]jcdhPwWTlevsNtv9jgcaw0DDpv#oF2kL6Z-'E^a^
U"]%(?h)j]7VMGp5ipk9Jm84rBMt%H$dod9JjLlwC.'QMMe*4$;[S\:Y<8DDarO)L
U"t^un82%_XCgjy%yMJBW40]4&<65#522'm^j\/r7T8)'&geAE1%XnQE$<7qqPv/(
U"^Vw.'I(b'Q:,)i(Ea/t&Y(&*eEvn]sMH2='BhSy*=0lh%\Z\>k1\&g;oMybMPYG
U",?FCn-QaBUE\(cKzUR5p0J?ug7bSGZq&WMT\r'x%up%()9%%'%-%14F\Rj()0k&
U"7+%%%>#%%%1%%%Irr4=M68=4LS8=23N'<t]Tm5wRCNx0az..-R*'aC:R9C>i#OD
U"/b2R+CDLXAJOho3J5LdDmUuNu\]X7LQmnmJnD9_EjhLmlVhhH5O]f4,(3oK7[ZS
U"XJzsbF?pNFSyY\R,7Y[h7](4gq9;Yy*#X2Y,1H(zc63IA$[16H_S+Bx40Z9$;,M
U"sVcq)HLrn6HqdkpF5lV4+m0^HI3ke3j=+35b[i8c4vXUM%kSk+>D?ohCeRhCHsb
U"8GRiATM%-H)X&SS2fC8t<'Wq4EHhGECmlqqGq[)6m6:]X9hPVs.F6S.C%2uI6M$
U"]gV)Eb^:%lm^7_:DXM4;8SHRlS&jQZ38hMuw&lt(nZW<-,'pD)R%i>ch3[#LROF
U"^/*8QDN4E:[b<0$uusL,?PpZ[$AVVlJ]Gc_bqOJ/j0uTjZL_rN2hVrWTD[2<Pgo
U"kpGi$Rb\;RCl$25\1l%AVaFL6?mpH\Gf6jP;&WOUuyyVs,BiJCM:14_Kbi#jUIC
U"MHrXelUPo;'mhAEFj7e>Q_,JYTk+f,-UX//F?X*=9dH3Iqm5tq'fc7qjU0FPL\I
U"dCr36HO$I,WcM.2UP.W#7[LQ9\bV$c3mKq/BZYAT43\/ly2jiCom<.z.)s;jj>I
U"qZFom5bAsqI+6j:KvZSO]V]F>*I9vlehSM)2Ml'D_zZ-ekOG=IpSk(LYkNkKW6f
U"^f$D6P1]$crTgzbsuSUf<H<][^)F[1VA51,+Sv$[DoEA9h++Gg?mMqeI69VPiq/
U"'YK257y[s*W52#mg8BtwkM9=F/r?/nLb=U3*tDZ4aZ$12,04YSH::)Wi2c(0#[R
U"9L8LWW]IdEf[RqH_4bJuZTvC4r]OMq<'A0>>fUTJ]8S>?dt$4_Fr)$%)1[WZqIG
U"4_m%2EHlHH:vM:aitT$.8c6cdYitae;StkB8TaGd:c530]oiLApCU*yRw</Df'e
U"h?-TbPdzhIdR$4_mEzb])hC,PDj*c<QT%sMdTY)CJLR8ZdK3D.$upFc:e;3NLia
U"?=V4.b=YoB9l,mguVxbiy9k\B5iti4mDd\Oe$jZYY;[Id_bY>WRhObCLU&GTQru
U"lhF?ZED,h-;\2NFm&\hx't)q4aK-(oZ[#KhyDo+P;bMj<cqL8Ke1VJtCQPqb;9-
U"-s33HM,CkO;i\pd]mY#[3.o,n6A3eqa.B?3chX=a+sOstp),Gs05D,GZr*gD%N$
U"/*8]QLq267A;4h8+iNUqP<^lX]I'J''r&DW<gRc(4^.bA#7t323=WIM;[hqpl-3
U"D=870]Bm;V7b?o#-zpf'Iv[N(*qbW9C,o0I7*=p,oS:IS#ewXOVka::O#J-OS68
U"3eOfXMJ6)r[&p'4,+%F,c[G&Ev3EKJm)2mW;-DXieA'&k<Df$.K:<TQF4H[o7[t
U"&;DJ(w58-Hl,J7*UT(Bm6&+S<G=8Tga17*<_<b^\oB=0w5%,Tp^>secIY<:5=%v
U"N:_#QCrzI45UKsbH1^k3Ba:3?VA#Q/[hV.S%6cKv0b-rL&B1+J(Whu-SuMDNYpp
U"a,^?E(l33>'(.rut&2sX0;>o3rnFO(s>hJp4,C,kkHZwXlv2,+[0-h%_*e<(i01
U"6:OPAol:qCXhT:_eCzpCO5:sC(785R:Ybt:V(5c/zV#*79bbfbIQvrN)T>IPACY
U"s#b(n)d4J),o%^2u2=clg/GmOS)5KFeFpqID3KWy_oaGjlqozHvI^pdv-T^z,6r
U"X3$5RbC_3P]qY,%At:EwA&EZKP&phV4]vG6BleYF69z^\YJd^/7V_Ex,',0I]?x
U"jH<0onN['[?=$r<3rV;&[tJ&jb28M(+#[8:9LL/<W\Q;mE7WGn2-q/=i]HQVZ6\
U"GMObFQqPg8wCBIiip8,DOnP,El2S=6TDQJvk5Cr4p8>Y+/\P1M._7A;1qGnT)qh
U"z-ZS0^iQAP(CWdLIx58m<l0;EM;y?'&N;M)zIVy<5A6-MpRRu16Tc)c^C\Ec#0a
U"\=&MKfhT]So;QvuR-K&iwZTb+o1?kq6J06.me3X5HJe(rK.*:8]Fx*t(?wketcB
U"II^KmI:%.*jUj9X=Up8=sRa;706UrbxYqtaMMg#dGT+9-nbe]Wo4Lo0P>w?:Tx'
U"%up&'%;09%%'%-%1mF\R6cBfd'Y6%%'1l%%%1%%%%%%%%%&%E%)OP%%%%%rrLj=
U"68D=4S1)0Bup%&';0%9%'%#-%4F\\R()50k7+%%%>#%%%1%%%%%%%%%&%IE%OP%
U"/7%%Irr4=M68=4LS8=2%up*+%%%%%%'%'%&C%%%&k=%%%%%
END SUB
CLOSE:IF S=204AND B&=6438THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\6438,219);:END SUB
'>>> Page 1 of MMENGINE.ZIP ends here. Last page. TCHK:204
