'=========================================================================== ' Subject: COMPLETE MODE X ROUTINES Date: 03-30-93 (03:00) ' Author: Matt Pritchard Code: ASM, QB, PDS ' Origin: Software Vault CD-ROM Packet: ASMCODE.ABC '=========================================================================== '>>> Page 1 of MODEX.ZIP begins here. TYPE:BINAA TLEN:14284 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1 SUB V1:OPEN "O",1,"MODEX.ZIP",4^6:Z&=14284:?STRING$(50,177); U"%up()%9%%%%-%%=AM?U,5vrvRd%%qW%%%.%%%%rt.ij'S[fxrfhL)RKH?C*Mb2JK7.-/qiG*n_yAupDvd/fXGFU%Q+3: U"$L2\WW<[_(=/%1n5+l?8rHrAWK[_Z%>rN^/ZKc1RnL1]6vqm U"eXpq(#=tGuY+J6]mB#xdm?YLDE2la#9jK:S?Qwn[a(E+QxAA8lB/A;32Eb[](at U"ByoCYgwAj8F5JS,5W5Nf>qG*gvf9AaEFb+Mmx_^F8iKQ%V1Hmb0?RHL2D39hhe% U"/-qr*sr+Xu8cIwLUoqe0Iq;#C=#tl^A\8W.)]v>CfDI\*0pBXeS\RW>RiBQp-8o#mlo7\[ U"0Ub(p(u4jU0jm[Eu$2WGCkN#xKp\R]hWO8BN]'A.rnMFhy2;3'AVSkFJMM/[KO U"3&3jUYgO2JgK5?iStKIHBE)_zgK//(-eE.2>8eHmdX/bMF4Li=[7Y_oe6.oJ-s( U"0w)4^+V[h1C6i'XUPhK'GSI=2)s=\a,\kFCjDt=XFXCqc\=]wohh3jIYk:PoX=+OZLGe-;PeVbXv'>Y=L7*uH3N3fRI3mNeYpA6,.l9 U"3Mcm8(o&[2;#oJq]4o-Fwe#qgP3Ci)(Z;/O-t13Bpc&ADMAd_bA$<$/JVan#/^1 U"rOBI,[E>#m9Xch&\.UKaI_1w\aAUpvMCh_f.Z*efo4slcc+XC-o'APf]DF4kaF, U";]%W3wo,kBI[R+,iM$D#^-L%NvR$pxd*Ofp)l+PP>]\(0cl7<^MpU+Pa5S/?=mAOeyfN='&))n; U",WsPm5/MmXau_W9bs4'U/HP4_RC:7.m(gY,w476Sr.G(sSTgY79^nJq$JG3]81KbX9)YYe>5a?ALo8qU(NW*F U"81OT\gU6bemqsIV7q$?83SpD)rMoP%p#G8i.#q>-mtZ&l:Y?*Rm&nJ3H3 U"oDf6OrB(o0PX)Vp.A=]>9;^l_vDa1V9ESybi^[+I^Dn%Fm.*NOYZ^RUx7VV^H>Y#fOZ7,U0N5R:d U"]*ZQA7zP?La-31>=1furs[tWVInB<6)&9FCgzzUPoo<+ut4fi:'J/'*3C?nz%.H U"bpqYr%Y3Zwl:6VfQFWQ\1F:oU%g^CQoYcPJ.5Sj)4n?MmC_os_V&swe/krNL$F( U"YwSw(g8.(/p:EV3TI$2S;L6CiwE[;1bBek]>X^?%kTd_i<0P)(_RZS7a.Ddte1. U"qQ98m_g2$rJC29FJQvCL:HuyoN?W-.=KFv1a0Ys^IC$RQ+.*JgL*uD%])B%&gW' U"9334)Ag[=4qm.V%gj*ec/_BJ4fuUWlh)+,#ulR2IblGfdgcU)WK?ThhBhWEd6Jq5;NVhVuh%E7c$rpnEOxLA96rcNeXQR=[SEs,%4XT4 U"8PJLZrScY\9-oX$(o=b'NbZLPTf/2]h64S**+:UOPZGNviZ+750GUm<5X,eq:re U"/hY^&E%#;).aFagkYM^R,4kR U"Ll#SQ:C.'E'MDy5pY<)9m6o.:d2:Ss8u/;&2yRjMp-.>YQxD3.I\)0L8tE%d%M- U"Dn]o#0;isuQ)=OawtsJu(ecw(hpX?4X.Y8/RN3I;rNqOTDx-,W,\j\TK6.6cv'< U"qvRUfo2RNfwoRNEwR+zslK%Gez:i&YdKe.r:/nxsT>wFpqDtKRy,*F-apIsVB?Z U"CkW\H&0,k6il90a4:i^Wdfc,1t?5OY/$;sU)ckTR9VG?8oiX%OmGU6M0$8\;qs# U"Kp0'Tt?6?xl9fGH*e>as;Au\CgcJ1]Pgo7>5)h[EiG31p?4iLA4QS/mZiTV68)g U"FvkNgrIW2[^PGmu0evkS'v>'VRl^2jF+\NPO28u3?_#09.G;K;3UgJM_H:%UBCf U"w?ge4?RM*W6QIF;?ShXn58Pu:k=6$:i5/ziIs0X^:2;)Lhu<7$dp*A:1O_D87=_ U"(>DktxPXg_b5YD4KErG7)UuyrBJMwNA6QM=DgWEPBxBTb_SsvB)kA'_hC%$pcng(:VQ(_Jzqj/o U"]->-Q7Wf$D7$.bIb1XRNX-[312Viagidl09H\/O]JI[:)(m&e>cI)C^^WO6oeo7 U"&rb+9>K9,G';.=[ZvOYqPNgpzqNGAa,;db^ru_#_q/Fr\O U"v;q5b[#ht\2awrn2:tOu2dBiE*Zkv*VS%NSTb[CoN,I)ZX>qfh2vn<&IM3?7bwq U"^4G6gK+YwinPJ7W1VWpKpG+H+4=i2cEY-TaqIRHqGNI?r&Kjq;'41iA&WkDu$XA U"#w+KWI]i^xibd3I*N;5spaF'pFGQ7nzvgR3V%_eN\IxKRv%h0>JBE'C*M4i*:mn U"(Ik>E8EiS.Q=+&FtEWj6lt>0:jGIJ<&netqWX0F>NAHc%ImP]r&gip>PSYlEf]M U"yWnuQ;QtnJe6Rc#(,gFFsbsB_7teN\Ux=&v:$umS]n^t;Wf'iKW\hR'N+8$E_DZ U"]QEV_l+K_tA\jEe&pZuUVf4XlD6/DBFt+*)=r(4=m?=j]E4*hHA_8^y;vPV_qWQjWby?QbOK/2z\ZZu U"YHQ..L(66]?2IWH,e&[7N+dpf_?jcj:YdJ/m_4/3(a(,A/qwOeC+F.lJBCug#O6 U"j8Vqnse^Vso3$S3pX/*gHw&DS1ny+5m]jwKWQCbbf2dj&mA>oA$paz U"w$K,V*WO69bm,5[_fu)If$(a+q'1Khe,/-SgJ9+S4\6BEu]pOLtc^5P#/U9RElE U"l0]HQ%#28?8ThYPJ)j$(1VXSvtj1i#1WXH,E<]EC(tqJQH:?0$5raFHig[aSib- U"i*ei1mH8voAJ,^::M#+;.GFQjT_n\w4+OpN>8-4C:/HNm6A,zUZR]U<.&V:&i$7 U"r9E9,69PmX1ZW)IYH2(wHV-bBq&7NrtuK,]vFS35ERcio2g'nkNuS U"evDu>y#CD2XgGJ4oWq:c:AQ8W_kbZCi3C\'\YDZdNs%SQ+N71puuKQ%DxYBTaP. U"IW+lAnEA_r4>XS$rd3j;Ce993F]LmnWD8n8X8r.=[U)J(/S-(U^c9us#/xSS&?s U"V*^][MUigsVCtJc7 U"WFxE=B[y'Rnyf&=k_v]-u3D;Y+Bc9^N'G.P1B&GYUX.?/u'9N:,bkc U"LHNH1K7TN40B%VM+bX64tWZi%jn=o4Q4O^9KyhG8[79SkVBI#+=n75(Z;bDDux+ U"wt>*ib3fA/CrE\iU4]dpZDY4id((]Ye9]Hd&2m8OGG(+%9jn*TEdpC6(u#O<>mg U"2'0a2DFrZ)kWC05qfVgJlep_,mc[;dwW:Fux>u8/5eSflXYPN.=^cY,PQPDS0Ls U"tf?9xP[DmM=#Y0Uh=#/I;QQqZ2oGHP_a68A[xqj2(cG<2HD.r-#D%/D/FV,p5m* U"a/.ET0qR%/pT\O[vN^x3=SJKpgDOoB8HRu>^Xj\hTl9\2RP%DRdKloJY\Jh&6*.ok U"R2*+.kBbOe7rd0]$)rB7QlZbrF.c9MqBwKhJ5)\hGek:P\AIkza2CKmO4hEqg7E U"LhB]A'n65WSLq*yBivy_<[d4o(/)Cpo0OC?6%.HVQ]&zQ7Y^x<'K=lRA7bW6L2; U"7+q<3t#5UW91W04o_bykY%J+)O-lwiRWNMMioagAw]&Cl\q5ba0CIAS1fAX&2L1 U"j6];e3>u:G[1vwk'd5M86geqM5Wd+P^-3/b(R&KkMNcXj30K3Kf/h7'3gf6Bpik U"nVmo/hukLe13?q9qU?+W3JGh2AOA>FM%aVm4PWno)6Ngll>30wPNrmOT[%akec7 U"F7J,Jem2Q3W404U/e8jd^brMV\(Xey7TtC]Fk/^GhE<-O)b]XY>5:O:l?T;Z1Cj U"$6#.A.Z)rPatx\q+V=q>A2dM](j]SN)uv&Fcfee&C3nq8CqQ0TJzcZl^vh\ U"*z=u1BqS+\V]JDS?'BL3ci;d_ZrOp6m%Cyr:5&kOrbMxEUrI,FoC]4RSJFlZme' U"s3#ILC\/En+nkx*MV4uUKab1CETbf1Mtm]urZXWI1S28GnIn9MfAa+KVR;;I=$W U"'KU\yKTkP.E#3fl#dSR+9vm#RG$lY9O7gbh2vCWEG>P?;Ue(%WjuDD?SS$'.,Ab U"gYo5=C8]LD09W<,Oym90lILO>oRm:/C+]TDWFwbC=_uIfePFlhkw$Tj#S9tQ[10 U"w?JMqTc6JFDg;'gc2T($)),)%JNmYnIe$-kcGV[x/3p0(kr5Aw/](4fHM/x8%-9 U"EmEjPDWbU&fnn;Udye%2rlXBR8&VodmgV^_#TupJQ5GSH'mvgMHT U";2no)B>L>--j[br>bW&=TF=m4r=d,z,\fO[.+lRRO-5.v1=)dw/0ag+VuNHYY+n U"CE_2QetJyB^_IU<9k=)QY9oHo9>;.yjP\(:qF;-7=KxJzEP-<+)&*h;+wAH0-P_ U"k_[xgrO[Ln5WoGM4B#heCEZGsWU87qYhAkz&cG5WrrmW;^nr7S?Q=?m'=.07;nD U"HPf-,II7a1C9^zB5ystn?P2G:g1)jnNkgmV'--Y;t;9sks;h(I?\0P2fjx6Re2d U"g5D)GG1X6w\5;axa85FX;TO&u-']OgbU9+<='I=gyRV18T0oI?&:eF;nE()hYbI U"2Y=VoTmJ)+ZDIqK#RE:/>%MX>3W-fjO7OU'c;D-Pey/?NNQ7gU/w&tudI9EGj*E U"nmhiZOoc2iIz6^G/o$c\_1O0a84bTO-/#vR3G)vx6BpeD(v]LWL;Zs9VHVxEKTd U"o(7pm%HZ[?wl+E8rY%iP,<B_*Lq:Bde(Je3i3A>D[E U"6i\B,eEqXVXqt0'rQ;QG\7rGuNGEswIlv*k1sT>\X/Y8FO/T7l>Bs U"rvh4Xr';7-xCq9W*x.'<*Ho\*NkpwV8]TlfGzrLY1Y$nPpX\/gY?fnnO/bx(,Ma_?\YB+S+^op,+3=a0p4yIBDVm9bGf% U"qJQ,[Y+VgBr&]>G_Xg%1MXK/w[e(kqS'kGiF72.U.w_$(CN+D?8dtjwN[[.n%n: U"dmiZo#2.NGsYuq7Fg5$N1faW1t:]#p&3-l,8N#Np'(o/z;#FY-eM4ae]hDX9\np U")%FgVl/Lm6Rg-Z^WQl1<QHP34CIZ%8H2#Eg1c1aXCU;aAP_w)T.n=3N[G0_ U"z&?C]ZG^9=7X)eLFm0p2/A'1.nMYA#5BHASf,YW7=n48*:hqmp2WCx%9*8wk4n< U"DV6+H6+1L0gu?mEAP74QCv;.RMveps7; U";VS57&ks[)x$SnSccc-Bw=Q&WX*baF1FV.gAv[7uCH&2sb0,,IHuFUBPcrmnL(p U"IBR2-M3mN6,ON?JIvaP>C$klFA3'S^H2U1WHI4HB=d5H_rFIq$hDU&kst+#'%g. U"u=:J*wQT12b3.#i7QXf,W(7GP])B90A>lZ#8Y9H-oiE/M9,)P\peJQImPYK93vp U"MGa]\eK$s(vwD;\dc0B$98DO9A;\oB6M.OU*=dyE-:zt&,m<5CV&fgIkJS)%1Gk U"g%:6#Mij-r=J:k#'\COZ&2jY#jH^JAFanu^>m2 U"87EqBdwth6ylt+-/$),._=4IAKZ$J&I5*;wVEg^,,uf_lB\t&tX7BCeWS5gP21. U"pdRH<>OU9Y&Jf(UH):20LVYjPO0rablUd)JrT8Jot0xiWNjA:'?TOhI:%1WnQ]U U"#jG0'EdQqB/B5PtQ?no1,9ti6%(0\3&FA]m=(1Km.\W1D_n%]yP#Ncn_E9G/8IJ U"8A/1>HfnS:d)Cj:j$i5DM&FIiF/[bh5a-o$FTb4dK:fGZ-$lt#hllUPTk0Rr&ZG U"/:Ru6M;o4E=1P3$kq3aF0K=>rwo11KMA;zK>[oICf%T;T-Q#%sAJMrbj1)#%+*< U"8Vdu)_aZDiD5y^Pwi$Vx$ief9YpV_0_f U"bJP%HdkE=(Uh-E+>iuu'-F-Wfo[B>%O+Y_Op3%bOe?xg>hp]o6t U"BIf=%+&,)b+$1PD:UE6UOiAygJx7>bsH;9$[<fOn;&:ay>XG)M*ObII9qT3k/?Vb\<8%tc=i U"&3F3ka?Z']HQxbTO%Ti\VtO38\N2V9S8qCPB$9(NG$ROAsEX/F9]e7oRw5%5$[6 U"f1%qm2:&-S0u-Z]MZGV8.cOE3&Vr6ggekOKv;e#[0\LmVEmT&=OgCvBb51BS30R U"R*Tth;xI%QUX(1LH'ocdm#jHKLa4GF8DU=VV2)FJTkAT]vW'phL[>3;1;aJ#D7n U"]Cs;Sde1L7jf:E1Kev]8Q_tuJg6*AVuMld[W6^(ZZ$V[4*fFa:42=vtWI7Zyu;p U"r'A.R?uf+qj8c$d,DtI9cNH^p0b/a5pp7KD4..N^$c.iX$6L.a2E&6i9xyL;pgw U"I%A7U0i8d(qxf?[X6K[KF/poZg+1^(Ia6&n/5L/6d*:5\s?OONCn3+?ad3Xv#we U"Me(Pf_U=WHUN2tq;\$WlmNAo^X?h-*^+?Z%_^HTm7D_3XY297t&'uWu1\)$5i3P U"Sj6D\YYsia][qg[:DA?[RNSlD&&OO%mpy/o0yAS:IztINB9f7a4a6>4X1xCQjPk U"qr;u=oA_2T$1aN6zNC\:s*]gN_6d>0Le5i3&N3p*&_DcbR&r0CsQ0h+-tDS$&4d U"=nPHV2e3-YGj/pe^fO*)%>Vs,fO)e->dsG3ZV5?;BMCn'&0,37f%)hFJ<+20SF[ U"1/qAqn[uCePTg^dV^D(zQO35>K&c%vFz[qd:$WDEH0l4?SscO#9sL4cbtE^^8ah U"Rzf7-[eGOws.R=*cOn/FxE_Eb<6g2Dv$A_$bVo.DBI;CI3+M+,#R[=st4N*oloS U"jq/er?$%<^4k9-iMt0fgbG>J#1GJ-TgNrt5bvGnhk_w8<9sqtNWRR U"FF06h%iIm:,rL6>Iq(e>&YwPNd3+SCc2ZBaiMV4DK#AKKbHWU#r6gUZ5Ig/>V#U U"*5rX:065DuJQJ8D_U6)0cWM>&(gV.H&[>+rwWqyN\J\yd_.4oj%9WiVmNNp#WnO U";nNFORvND[F2YorO'oTXp+nMq'J,0)e>8&0d//B(&nCbl,_lQ5WbK]&9fgW+xsu U"kgQw=D47CMnl3;/,3ni8X6+=Oy=zVGzhvJMKp^&:TC\3;T0+eC94gN8Q\/x&/fY U"hS;:0r)Ip58\M7i)LvNhQS%rAkW?hc[PIZ_[SdL4N'9Lf9w)^cWxilj,Z/XESKC U"dPriC;w+Tb<%24Yn5h$wRm8M5,BJ6jjI09(lp/\+ORKsf=#QoEH U"H,P)%%$BRQPgp1VDHcQ/DITmR/F)w]K\_dY'EMXYj>9 U">2-KNVljSxqLwg#R/^h-PYjCt3-M7//P:PMZ1%[Rp4rsd+vf,6ebGk88-$Xb*7A U"gp$DM&3*[(&w:b18^o8Sf[z0RHn0#O+:s,+ U"li/G==>Ej1:sXai-aXfg]syMOB_P:sv2_to[er]eL0D04a/g-V0IQp_=ei)&%'/ U"(:?0%akJgi;390FXHiA$oaZP\tkrXjJ;_:GETK^W9tBNkLkH8Bhx0HUi/u:rP0v U",-.uO1oW[hLziWV,e,?NlT:TA%]x>EDW0Y2I3>*gY>6kkZ_X84/DJ&v_)pP'$%MN[R,S=_* U"jZq+*PgO8#^fBH'UrC%yCc,KBnQU9qEnTrUPzE5wUVjH:LVjVgPbvG1rx%_]?': U"EQ4[pQIB5mM'Zq:w\7l36C%KQ;q5y9oh9\'F)\a.UV U"iztA(5_07gd'4wFdS2_e:kybcgQM5c/vIhjp0i)M.3^Nc U"bkMZ=6[T\Hcr[40jrZ9H['-7k;NU]l*;okd?dXL%j95cK8TW^HAA4D2.pG=katY U"bL>,qQH17sczR?q/.0a&pcEjucK*r\feUIsA:^N7c5pJnx8L7]GIZGMM4y& U"oX_IEXb?M&mtL%c#3EgoiUdru#PickJuUEi*O:]3$$fJGBTD%He?IO-HPfsF2\c$,g\Jq)GED:(I1fp'yrHO0ODJV?Y1]D_#9ucq U".a%cibhReFj3%O36=V,2*Ce^iF98c;01*+kiqNjcHdh6&HDY?i_.\Aa/^Z%cVpN U"ll.krlpP/)B20jOCE_tvH,k?AMy#]cKU)#a<+?]/Mb3;Aa.s^PK,s]r#JIo6PW] U"J=\iJX53-)Va77F1&RtDFt?xcquGW33feB]6%rah?cCq8%:7v4#/0uA%5(6\gW? U"o\5MqdEpc%:G_&3G4?y>GMMJ*HU^YRgyffmV]lI%l[8v\lhAhG]&)f3UBSwb9qM9:) U"fKIg^3Y%C#_D'U\($CtVLGt\Ddz+,+Yb'[3Gx9T_;4Na^RSMI?-^vMhYl7GEx=q U"*BU^I)enHqQ9=0(fgHj'35qLJi*vbQIH^i1O[Zk%kP;W)=9[OKPYNSBQ7+?SPd)>$ U"]*rY6xKknbVYK^<^?\3MAPN2zp2to3&<9TO0)IC(5jNfEP?8$THmw=Vo*gX%Oc:O/9n9\Dz%kP4qJ*+ U"s7%>2x%bdMc[EtHjfP(/K^:l/Nr:lZxbO]Fr-&xVWK.GPK.Gcn'asKH4a2m,&oP U"aIBP1FHoR[G%b$:F04g>-OUw.2PQdzta7Ke7*D7iN-+X^hYYih.R/6#]DHc3Yp'QniwdV[; U"f:kJ5/SZp/bEu8B/jTZbp/B#U8po*bOHZ*R U"rI8/%2u;Hc\6#[E=9M;nk'$+Rh$;]bP;]8&%Thf9s^*t>=^*tMFs%SlP/>;5QSpim&\:\D,1>f U"MD1n2uaQMhamfU_,ugj*P4?]IP]i5MDKo+9&cR7P3l?UqYZ.e8>'oVCO]3H5TaWtLvWZ U"bETNm9SzWpW?Q=/O?3nHFFfp]yG7>O=7fdi9ifj9[5LOkF/:[6ttwreWKWErLn?B> U"\%4&M=Ttf&^8yw\T:-&7]j*&KQdmJR-s\;=-u#8OkQ'%SxQko7-HEal(1$$Z;qWv+n)tQ. U"omSQjP\$(1=bKJ61]zL0)ndx;mWDp$xsFQCAMkcclGw's.x.H/J.g#5F#^oOOE,,]/lXpYD8Ahefc8l<;(9ieZv/qTBt U"Q96DPl#?[L*/Q*]n*non;B*]*B1CSWK1Ol]J7:-]Tr^529ug59iIIvu2k84R]]a U"8S56P+B*P8lK(9re_V&JTA2[LO=NscQ+B>F2U8fWfB0JuBc^kuk1d1gLogAnggF U"T'a;pX$jQaYLeVWNpde>XVOxpu'p.[hfIV2c,m)LeEq6[=U7+Hoo58Og2Wr4?,/ U"R]STB%k1Q*AI45tTq]bsA-ZRJD6oNlrbM[lo[%66iYzYJ=;;%va.g:d4K6=6>K^ U"Lu]/X\58V+-j,iidUH5%1Fqj'u6Dnc0qc3)KM2OfD&;'Iu6Vej\.L& U"p'q#Qql$fLuW:,YMgjF44EqxTP:%mu4f;jlfgWFcnKqlClY)WFwQxTZN-O.K9_Sq;Oq7O_q U"Ao<\)^Jd]c26Npxa+31N]DuE=gHkL2z?lDmi*9tI-1Z[9J)P_=GLf9iK+6N:IUn U"hvgWN/Xc3Gm+8&-a4(6$(*zI-k%,KS9-L5yV+8>f=hY*>ae3qAWD)ZU\KiSvhO* U"nlL7OLiB?c0(Fm_vc4s*CQY66J;K?Qmf2&f]Q5R8)xa]Zj9kaM.C3ke6bYKt8M( U"M)$Vd?TjbuOVmw<$<6S:3529dnVj>.S^P=PcLO[>7s,6>X>JR(y3k\Ne&u#5' U"sZzOb8[t.d43%nQXL3Zd>D(SL2SXFRy?7W U"VS?O.+U52%8*XL/wEMn&zQj5[D/To=\^&fF$nqNNjF'x*up%()9%%%%-%.%=M?\WqG U"/%),%%%53%%%.%%%%rtij&'Sitjh&&X8BG26hMvYx_p>D+VU/(NQ)GezokU?Q&m U"=1,HQdaYAh+9:Ps*sPZ\wsCRpXY+0Vhy7[CU1Vu&ghtr3*7VQX9'G#4xPLB/6[> U"305G(E(:&TKB6M:90sxTi(EzV/Iit1j107p1k2^Da&6k;brShs;DZY5[Z-u?hR( U"PM%CR_tpD/Ebf5f8FNSYq_\I2#s:6%O9NI=d7goTo]4$?YC:VJh&KEv7gd/zo^S U">#*r%uwNllXwPONg0/%gPxJJ,ZC?9V>u0E\3cU$h6<$.n4e)rKQ8hJW.uC^NeyT6GQFE'8B&B(5. U"-GkPN/as^>UI\*/#*F2i6>q7>Q'%pI;y%OfaEW)=Ymg^#u+F>K>MX(VJ3aVhW=h U"3(ooU3QT3%aB2<[h=tg&UUDS0a.L]L2KCN_C0P%^9-?ffQ\'6g*MsGay>/YjU\f U"J(GteUdrCUlb>u3p)rC_rSnDc/[q:8rlNvvde:_*5.IHg4t5#.bAjag5BUto+VD?AtU689.dkD;r*ikFr6aui6aFFiEi(r#*jIr0U%;ROEYXpFZGiQQ\M\=7\ak.8E.KVzdEs^u.c U"^q,SJS&=ZgaCH5ZKIyWJ.7/L,h+N.f53T4\hU%Q^U9%Zq&Q2]XSFq/7*G2V2+D, U"m(l2BDL3Gtu2d&Rr9Vtb?[aa*SSHiHJ?RGv0cN9[lvD^,fkce9DG4lc9+cC12w> U"_km[7fR1g(/=B<]h%<5m52mdrY0dnFE#7D(C^[v(3nyg8HNE-IXOm U"J3Jq?kbVFo54\BSQ2G6#K.FU2>%q->%;$H2:5mp=%aBqG.^80u((uGCaWhijr:] U"R#IbLg\nSd;00)'XQhr$GUis-$<'Ttt%AO/qdvGD%OE:h[:nhSd'LSCubU7A9*I U"CQWav59:dGeZuNx(8wN/'d(*JPCe\btZL^W/2,q1%(-'O%RdOS#Qk3SpXwf&vl=K)kL7#$N5 U"O6xG*r\j)l07Vn\jcG5?+CS]V&^,Xo+53BgEOCV$ZPh__t#s+=2>'AU[9dZo)PRFiB-4,VsH1Q8tDY.JrO0WjLe(17g#&.Yi;=\iUZfFuRP^4E U"V:XJgMa?mzSe*p/HA(9mae[BD%j^CN]#D48IC(4uJcVc0ir_TnW'PjgJ=D'q73s U"'Sn0N6d#)Wh<4aOr1hGK&mZplFR-]ddescjQ%ixCm9ufDueH U"][?=tt$Hik8s#wJtZHdpFo.=_dxAHAjovAV[E3q5apMxHhto6^/T2vUGAuw)S6o U".t=Om80;5%g29Wf-BO=taQ)+'&+[WeG=m'=qi'3E5uKmAthGp02NJjBSqKowmt^ U"xtv%#up(%)9%%%%-%%^=M?[q8AVd[&%%/%*%%1%%%%r#tij'&.vgS[nsh&hb.:T U"mU9>XF(r3f+ga/ftBU-VKDC3(jVS+TZ,UuHCWtviH)%S#4q4>dCp]:xCs&+Rh/q U"nh4b$+nXcHOjX7cXM(RObbM;ztO3N5*d8YBU;[pVl*up&Xd-pGLZ&xo&TGjv?ML U"yjVnjC_[9(=,2FTj^Uo+6MZxHh,DB[=Fl/S$][hOw3Clk&P#Y%P]h2f?/[%u3d/ U"GpB9IMq,Em?^7^26IT7+DomyV.Vpvc=k3;MH8vI=N5TB,i[W;l928Uu&=k0*t9$ U"(9FT8%Js>yc U"jwGYvk*THLJV*c>Hs&'=GTY[Bp%1ka+6gp53bUA&klk:6BxgcQCn%xahF2Z7:OR U"fS:NZm-h2nJC1W'8Nj.13wHOa2GJOX6]^Y>YLtD9Qws5JQ\)v4Gq[L1F-CWXAq8 U"T=U>%9>eSB=2goc+_[6Y.h1/a0b+#m>h2lqV]]yQn$x/L=hb-HTUogXr7Y0WV#0 U"cW:>;-:fT3$B[(jMaXq67Aj4W>zz=No#PVB'P9&N%up%&'9%%9%%%%-%%=AM?U, U"5vrvRd%%qW%%%.%%%%%%%%%&%%E%%%%%%%%%rtij&'Sfx%rup&%'9%9%%%%-#%% U"=M(?WqG'/),%%%53%%%.%%%%%%%%%&%E[%%%G%R%%r#tij'%Sith%up&'%9%9%% U"%%-%.%=M?i[8AV'd&%%'/*%%%1%%%%%%%%%&%E%7%%rY%%%rtIij'.%vgSn%shu U"p%*+%%%%%(%.(%w%%%%3\%%%%% END SUB V2 CLOSE:IF S=40AND B&=Z&THEN?" :) 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\Z&,219);:END SUB '>>> Page 1 of MODEX.ZIP ends here. Last page. TCHK:40