'===========================================================================
' 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<FTs[KapVmb
U"xOQVUuEez]aeU]-48mTJC/>)RKH?C*Mb2JK7.-/qiG*n_yAupDvd/fXGFU%Q+3:
U"$L2\WW<[_(=/%1n5+l?8r<XAt$,'Ta?g]W(>HrAWK[_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\*0pBXe<tUUlcD%x+:q7
U"Ol+[e=K;lDhh:<b^]*&_EJ5FJA[OFPcSK:]JL,RI%?>S\RW>RiBQp-8o#mlo7\[
U"0<lDI9C-jF0oBQ_6R%wE\gsQaYRFXJ44.KHl[#aZve9ekCA(oS9^(_DUn)2iwuM
U")<HMd^mLRq4Qwo<T<MEd'roW5HkMAhL$eFbu4BWCTU+&.Lrocmb2<_sY$'_4w\;
U"n>Ub(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\=]wohh3<Xbt:'v'Ht
U"g68kQafkUkxezc:yzNxua[<&=tGaaGYh.>jIYk:PoX=+OZLGe-<f[&=1Y+vJlY\
U"REd4o0G8K]iHF=clsY(SZ)SMK/0w>;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>]\(<LC5KxtfQ8B)$O.%vs6
U"awjpkPxhLf4_B5t..RP$>0cl7<^MpU+Pa5S/?=mAOey<M/1ozG-#^>fN='&))n;
U",WsPm5/MmXau_W9bs4'U/HP4_</ZFjx%cI51%fW$ID=_Q5Kwb;',k+J$I2/lCE3
U"q8FBFs_$o9*J8G9-,mIoSqjCk_KsHs3kq.#W+ip.HH$r;&:bGCQ'wcI#'S5hFo,
U"L+a?E[rLKaOzp+QeeQoWI8d'vjstKhhyJK%k[6.VA2BYvSoye$m^-gg]F2DMC#l
U"(T8IR^i*Nyz+6,^;L6pZG?:l0-qc+j8C5^7fZd)U'lDKd)+'GVW5k']kvT_':*3
U"I#?8,[Br92Re_uAprIqurr>RC:7.m(gY,w476Sr<YIA,[d3ujjnkp]+%Q+^9G%.
U"[quRfeHeAhA1*KrtSWokA#AKY0pQTv=r3[6ccr0YJg_w$u_cL3_9D^bj%n7%',W
U"r'E=)qI0DMv?G),Q4.-7]yp%LI/n(W]N24*mw%06Lpl%4g4X$uW+6).]_h.k3+%
U"%bM,B28oGE0n*z/au/rJR2$.1,xBL9EMUMFXtsVZaCj+VdcMZ$W&eTA?BOgc7O1
U"W[N/aQLs,QbHoiT(Rt>.G(sSTgY79^nJq$JG3]81KbX9)YYe>5a?ALo8qU(NW*F
U"81<K\uX*s--Nc^gB'Vwdef^o56]c+H0LYVF+E$]F\17i]*:Ab(p?^k8hT7&.-FU
U"I8'juD-93\\[.r81P]YxTD-wdmpGx;ArQTPwN&K3s'.11+j*%$2*[y&a4U$]Xba
U"A<Z+6gJ>OT\gU6bemqsIV7q$?83SpD)rMoP%p#G8i.#q>-mtZ&l:Y?*Rm&nJ3H3
U"oDf6OrB(o0P<S+&*E/fO'Hv^yIlBE^;^P#;1fjKQE*,hP#l3a)U#G=P<NpHC2S5
U"AUJVaBU:70twB&e?O#l#&zFm\><PEV%MWCB?lIym>X)Vp.A<Vr09&&B)mTDtgX7
U"XCLI16O*B<1xWrn8muRd1Tqe0[QEplALSq.Vuz%8+KmDHxQKM#]FVl4Q#CG]1qq
U"x86>=]>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?ThhBhW<JWkL
U"D?q5fU\KAlVFnOsB%\;G1_+X6v2j36v=[O$D4jl6H]bk-b50NWxjL;/=ofWR5he
U"Y<o'DZ,pZgq5'%2uR.c8oc:k'YMiUjH6Xej=6<\YDYNL8GcsXr6NTNzD:IPXZ+R
U"Kx*O4pKQ0*L2E_VDRQiO7MWIygmYyt4yQjT%DQHejGupZQerMx7NX$..y?3Nvx(
U"jnr(EI6,eZRh/y4^>Ed6Jq5;NVhVuh%E7c$rpnEOxLA96rcNeXQR=[SEs,%4XT4
U"8PJLZrScY\9-oX$(o=b'NbZLPTf/2]h64S**+:UOPZGNviZ+750GUm<5X,eq:re
U"/hY^&E%#<uhRf7r#)#?Gg,lPw'ZR_:0-I$xi1ZlfWmY^,.>;).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'<JcmF\ag'
U"O,A9b%i%:Onbl6W9m_'gD16F\65FXef6g__]jIP7^>_hC%$pcng(:VQ(_Jzqj/o
U"]->-Q7Wf$D7$.bIb1XRNX-[312Viagidl09H\/O]JI[:)(m&e>cI)C^^WO6oeo7
U"&rb+9>K9,G';.=[ZvOYqPNgpzqNGAa,;db^<oRRWGuTIY9Bro(HH5JI;6$QVs%\
U"<RJd\?iW81e%3xqhXpadjvY+:x$jH0,jTS:PzLYIee,=Ow/CZ..>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<j%J:p3c)RYwuf.x,^HOF+t_Z9
U"wU2GGt6skZhP%%Mnm'Jl>(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><vrE$ZZZi*TLsBU
U"'Q;W$/6D%]V)$*cq'+:RkcGrJ(:p^I?.#YkS,lDJB%J4P[eB0xCXd+6L#.f/kVZ
U"<c$k?#n^Kbz:9QC&A([KU$S*C3Ht_ugWejc615u\$9^O7p+q+VDip(rx>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&7Nrtu<Lmkx?#[5>K,]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*^]<Xdr+-S#tH=JE&+tH.L:IpRD<RoPct'eOV2Vu4DOAPd)So>[MUigsVCtJc7
U"WFxE=B[<//.Q-5bN\k[\.zx[eM_VY$0+j;/Eul]bCtM]u);zIRq?lDGEEky'Pmk
U"o+VpKve4Xn;?A)s>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<Kh7
U"0GM[+[u#w:\Ej9j9(x2OB9WGX,KuQ4iHHrHlmiWaW#u::WkhEVRm$w4FnETO+d5
U"e.pch4Z(Kta)HHm/aA*'0=PU3/3L3?Q:q_a#MHG%yCBxy:G-5'YO<(\x>&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&C3nq8Cq<cTuO2T\6gXq0Pdt
U";hi8eo<H/=FZ^3iHkk.D/uFVYZAZYE6eWW&g.bStB6<jf,9Qk3>Q0TJzcZl^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"EmE<B:X=P[(ABS;Z3fVQ+wf1O]:]jaD5Z\O+QaOb=-vAm%1Ie2E_vfWQmeXTBGI
U"t/7O=_MWB]a2\>jPDWbU&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,<<uI8-R.F]?%B',,2w6pa>B_*Lq:Bde(Je3i3A>D[E
U"6i\B,eEqXVXqt0'rQ;QG\7rGu<H0?_X\pwCF0kztua=GoW^,g<(5O^)r-=Tn;q3
U"HVHY;Vutu1l4lc?Jpag]dSW-CN<j%xTY#[>NGEswIlv*k1sT>\X/Y8FO/T7l>Bs
U"rvh4Xr';7-xCq<lHDMAZx#z8Mj_GBGgPI8xWV8mRw;?/CJm#1U-SVQ2h9zF8,4z
U"WZ&/d?ER);CwpV]V63>9W*x.'<*Ho\*NkpwV8]TlfGzrLY<wC'D1\X9Tq#w,Z$x
U"':I/[HI9s3Uxseh7?e*0&)Xj26XlCL$Z1X-Q.^ZWK#SA#AXZ6<$DG]f[zp26NBn
U"^#dbT]GVO*1-*^kk0]v)OwgE(#YP&JU&P,0L9<EM:XWzSQk1_Hg96Z0'kT0&5%h
U"PkOO.&ZQX>1Y$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<<nj>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?mEAP74QC</k:?Y,Xl'+;]+f&7i/'on<$^Q/BJ,>v;.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<s(g4\&g\RpUPX?S._XH*l*:>^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_<CH0&+l1jFk'6VOyyj,2+0?JdPJu-OeC
U"m0A8g'FEiQ01f6L0d&wPsY0chsURlXlmBYQd])g^Dp?M+'Qn.7aI'uT_:'Ib:>f
U"bJP%HdkE=(Uh-E+>iuu'-F<u0sy6%21Q9>-Wfo[B>%O+Y_Op3%bOe?xg>hp]o6t
U"BIf=%+&,)b+$1PD:UE6UOiAygJx7>bsH;9$[<<UJ_GY_^V%mHshWCX-kHKn3u\2
U"(NM/9*f3.w7=S8F2Nincs8AFW%W')&yp*i='jFEJ+8:Ieokc()g5X?atibLTq:8
U"4rqk=E=A:t2#kLvE$23<'Ac-9?a>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-TgNrt5b<BLJu.^rkXmv]3Gf4^YSTD]cb)s
U"SaCrNd8og5StP'BY3-Tn%n&kDhIpqjV3_GB?MeJid78ziYebDNCPLFyRguT3Dgc
U"yp(BRYX4n<s4vNX[D6/M4+k1D92)08l0OYfKIQ],S?viO>vGnhk_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<Z&50Ffs6+MRq?E2^:
U"^H]l/gdJ(9BRFB005EICCY0M)H<m(^Xp&)L?U)S)nl=4XpiLRIJS8AKh>=#QoEH
U"H,P)%%$BRQPgp1VDHcQ/DITmR/F)w]K\_dY'EMXY<f*,3T5ZLo_MPEE1G$%Qs0'
U"'Q7qKd:qaNYkY,4Qq(xm%Xl5L=2N/pxQEJD3*'kzh,/pOllPdE+)xrjW37fyfTl
U"yA0ek%YSD&+tw\XZlnEj?Ht)z+N[Y;-/WRcxUrAA0/kMqbX/CSxTy*:+a;9>j>9
U">2-KNVljSxqLwg#R/^h-PYjCt3-M7//P:PMZ1%[Rp4rsd+vf,6ebGk88-$Xb*7A
U"gp$DM&3*[(&w:b18^o<rN-O?RAU'TwxxNDKxi/)v*l1C[H3O]+:3sX1OSDO;/e9
U"u*#_kUKkuK9V34607&G(*npnS'hM&2c0^y8]u1aRgVCqK>8Sf[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%]<GcqhwPLEuaNUu[pR<LTa4zNBe*i5atiRlE2
U"06r?2t3E&Lx8Mn*8_6SYi5GS0ax[n<soi)<3fIIm3kS4xgf1p6xd-cwoyfJYyx]
U"mc(9?a;TM5\McI:Sie(epIrlIB6a'U[jU:.'JY0%Xw6$KUmY7o(zOut/upd\n/&
U"Y45wkXG7&Y[*6U=/Spa'B'nbz+TK/e&R)'(Yh'VT\i\Q,Sl?/9.&xJ;<L%BlBTV
U"A_fs+lgQJg\Uh(tR#c>x>EDW0Y2I3>*gY>6kkZ_X84/DJ&v_)pP'$%MN[R,S=_*
U"jZq+*PgO8#^fBH'UrC%yCc,KBnQU9qEnTrUPzE5wUVjH:LVjVgPbvG1rx%_]?':
U"EQ4[pQIB5mM'Zq:w\7l3<jamCPBc's^Co,oa$XYo>6C%KQ;q5y9oh9\'F)\a.UV
U"iztA<Og#6QwpA]scAts=thh03%t02U7V5W't_$,<p+l^N$f9JN]$NlG;21xQf[L
U"oEAIUqlwlgbLpn(euI$3B=lF%+N%F8c%OaG.et8ees6tE(rZ^#DWrA_vXQM]0rl
U"a/%)nTrHf0NOI4k\V;0Rt>(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:^N7c5pJnx<sN>8L7]GIZGMM4y&
U"oX_IEXb?M&mtL%c#3EgoiUdru#PickJuUEi*O:]3$$fJGBTD%He?IO-HPfsF<X8
U"jgXzG+o6%;P??\^qaw'ns->2\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]&)f3UBSwb9<m
U"Te%+EiE'oQM%1;0_(FMAR?<BH:2'7vhAMa]/_&SKE(bFD]n=xG7b9B#q5>qM9:)
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<qAD3i
U"sSA-=Mh3m+Nurm\NSPRI*m^xF53B%bQ*Awd.M^HOsQ3Pl+zGfUq2:=LN=gY\0mC
U"i\&')_yV-S,Bb44EMTlIM1:HaSjI2Brn?(;CR:OQVYZ7(+Rs]D%]C?>+?SPd)>$
U"]*rY6xKknbVYK^<^?\<rs+A'Ht2L=Et.H7Q.mAJc?+O<<FRJJ(?7BwsoLn.Ya)E
U"nsn(#9+HDZ5U'%xX=ae(X?1Is%ucWTWrH#e$ej2Zq=o=$EZX]Sl9<WGf)^?)gD1
U"jIc;7S)m7)1mAL,LN2tX5sxG8[.;#m86VnL<p.9mHKx8[:ILNk4'mX6=Sr&\7#C
U"^>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"a<e$p++ju<tnW5x#[f=ILu5?:,h#=>IBP1FHoR[G%b$:F04g>-OUw.2<fBrc&Za
U"XNo>PQdzta7K<uLbZHd\p??8vhRjj]+p<Q[PImhat]:OiRs.XNB6^.sy&8,$PSd
U"oGdP\7Y,f4[R;$3g*$Q$-Jc4fc)heY)fHe2Br5q7RId.B,\.zLG9&zW*+TUbVSJ
U"j\Q$]n%5GYz$$]pThR9w?pnBi>e7*D7iN-+X^hYYih.R/6#]DHc3Yp'QniwdV[;
U"f:kJ5/SZp/bEu8B/jTZbp/B#U8p<H.C-.T^Q*R%&,3t+SP6-*F^;AbhBw;cXkip
U"c7<HN'O%l4bUahF[&VN0)ZnYEUfnh+W*Qn.-8o$q58&VW5Q?3A+l0x>o*bOHZ*R
U"rI8/%2u;Hc\6#[E=9M;nk'$+Rh$;]bP;]<i(Cy8gv/Wp#xeD\,Kr'X]uRrs86n0
END SUB
SUB V2
U"Wo%_f_-cxwCwK./hEnnnfuuhXGGZDH/0E9d:['l)X?A;:<\$f)/yIo[szcvRIMs
U";OZVw+1d(qcOBv54;YkToI:B6-&3xL_&'l4Yeo*qo^)USJHljnLj5\$MnX;e'5E
U":?d0[-g37&]q>8&%<nuQ5/?N>Thf9s^*t>=^*tMFs%SlP/>;5QSpim&\:\D,1>f
U"MD1n2uaQMhamfU_,ugj*P4?]IP]i5M<Vm[Z1);jTeKp,)MI:C7$enZt/#aPZ'BW
U"#]LLkB&l[STL:DeYJ+VCq4\aca(f%4e$somoId=jT$#bTn2,9G/%tZ#r-<c:rY1
U"Gl'g)U.y_Dn-&YRW)UWgWqCxCEj8WbdzAkD7u:=KIi\_q;zH/SItZ89;M-FKRcr
U"W8RcPZlAy1ZjhB=5^#:t7q;j;<_QN(?:bl_z8>DKo+9&cR7P3l<TcmbIt0l)e^H
U"t4V*oKlOSMajsNN&CzN-KQKDq=LKlA6YrBti>?UqYZ.e8>'oVCO]3H5TaWtLvWZ
U"bETNm9SzWpW?Q=/O?3nHFFfp]yG7>O=7fdi9ifj9[5LOkF/:[6tt<ftRpQZV<gx
U"J:7q))d;b)7Is<Kcc5R/BA2Z(K?r2ZGXtI3c%#G_rxF*L/aJm>wreWKWErLn?B>
U"\%4&M=Ttf&^8yw\<AfFK:)J&s4[$P(Pb_eJbNE;8(1[z?;(W7LQrrVNQ-<cUpn_
U"W(&:;//>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<RheqV?GaW8j
U"j-;-ovjoZsXH6aFo?q:YEq(R6/+t'(q<ks0Y=sQT$B)&srHR=%s.IkHsFLRTbj/
U"2TJ;h6^?k7bb?9+t7QBDcV(H/elc06['\jMSqQr_XB9+09KHC\pZEq-OORJI6E<
U"H_'Sq5\2j)gQdX8^(B,P%>.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<IG%3/.w>\.L&
U"p'q#Qql$fLuW:,YMgjF44EqxTP:%mu4f;jlfgWFcnKqlClY)WFwQ<RD_1o(kUu.
U"J2Sf[oS()*l$sUF4Ki%1m#GEIj[_0[I9Se3-qT#d:Rgr,mbM3'&M[]GY<TVsG]H
U"EO<Dca#jA&\#0PiQf?Mnl]#Y'pr;IN4A'jU-Q8]JehX>xTZN-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\N<l'SLe?R
U"]^J6l&PRn,YG&g]-LS/4Q%inN8K^th<b(.<l&22TF-)]S-mLj,p;n=bT>e&u#5'
U"sZzOb8[t.d43<uT%MO_5irHa4rBs2xVCB#BA=ZMbu#?gr]6:?[FjQD^x9&^V6Ua
U"f0#&F^YmzAcggy4cM^m($+n:V1d'x\$3b0%mp3n1>%nQXL3Zd>D(SL2SXFRy?7W
U"VS?O.+U52%8*XL/wEMn&zQj5[D/To=\^&fF$n<U8j4gvYDNQ2#QnWR[hr^J8_$)
U"7=f3mE=[?dCE%*l)]a+_&Mn*JVuxy\tCh>qNNjF'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<w3L^23Em3ALLinl#B'dNLfk/H_GgBAB9i+C
U"o1NO1t*bWAq7:Wp#SyjakHebBADrxm?&ue_GT\wAbS\UTgLXOS1.i\VEbw%nbJ4
U"FNv:HOFNrGYGRqRzCKt'H^0/*A/P6&(S'qf(?GD$^06U;dka7VN>?9V>u<u(A#x
U"<s90w74$Z-RILPi(o'>0E\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<Zlou#E#YbB[$B8
U"tkrJrdFROL$oH,E5p+#U#KF<XMGwUOoG*&K_/Y)1rvJ]o6-wh$+2rG^b(l[YB3h
U"3Y0eq=DL:APu,CksSKPZouKaZZh=a/IYq5pc1<H?;9i72ClVLk]EDCV_vr6U/]K
U"RLO]bRf.*_'.-$JwCFg#6B>#.bAjag5BUto+VD?AtU689.dkD;r*ikFr6aui<Q,
U"qnW8by<'1Ch&o11de-8HUYAI0/%&65Ang-E3ZgQJ^/,/Wq[+gdO9]#,_GhU4+(o
U"dJ5#A]Kv/?aW;lJ.eL1pJIhFsQ<'bdr60Lre';f/;=*pes&74PGS2N+F(Ui'n%<
U"*s6\&kN,3\Ue3a)UL8+wf;N=RfB^b#hys3(DaBCOrMSuV#j1FW/5v9f;x9Di-]V
U"4*paZhdfijQ_W2kQ85LPR,PC\ZE[ZX134<J<gQ1#=HoYw&.D7m/AvI8Q4eqBK-.
U"x-bM8K-p:h(d$1$vH&Lo;EN/SY'%O+u(VCb$N&E.#3/k.jDd:.TM$+w/Y7i]g8<
U"9%_mjuHaj7>6aFFiEi(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<qANYhU[lEJ*u\l;ZT:+aROQMEGzo-SOpH*w,((imB^aiK8xwbBAgB
U"vGe_z?c(Kr68n9o-n)c;[Z50Lz$k_r#a6<GyoeWpZ2-^uhjov35a613:GtI)TA&
U";(#fC,:I7h,g05*DIl>(/=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#Qk3SpXw<lHll
U"#QDB\aKsN_jCX;N#?iUjY[=7TLMb;:<'P?ev7AVmAwK_JQ_=>f&vl=K)kL7#$N5
U"O6xG*r\j)l07Vn\jcG5?+CS]V&^,Xo+53BgEOCV$ZPh__t#s+=2>'AU[<nv$2_.
U"=pkW\g/a#RlI1:-6\AQ$W%40a9$G)/[.1tHzEOt4uLTK4sL1Fe&(A:U7f-:y;rs
U"QbIbVWW#>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-<u-S)?A&v0$qZQ>]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"(9FT<AG9GiPY&Bm1cHAZN3dY1ot(11U?%Zp(lssMFn[$R'LpD^qA+r52T.ueSB_
U"n2$8lDOS9v%OWLNntvT(T1/V?IRhY<N*Zy.SR0)dD3UI5(v5kusepGF>8%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
