'===========================================================================
' Subject: Counter Force                      Date: 11-01-01 (  :  )       
'  Author: Walt Decker                        Code: PB                     
'  Origin: lydia2hg@yahoo.com               Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"CNTRFORC.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%.-%IqAeP^C),MM<7%%?t%%%1%%%%hs%ywkt%whSg7fxNa_:F?#;an
U"ZAivV)V(IO2/sED/5B?V'382HI*tk96B0WXQ+N_7g0\6?bkld0zsUV>uW3hm,sp
U"Ggb'QccID;DD.p?&hp^:OeSp>:#R7_%m4Ps<)k6pR+s[E>Sb?EHT4MUNOG?j_w&
U"4RXb27mtiH6T4)TTl\8.9H4oz>O'f0&Go3?\PJN272knngDNAVK3Nwlbgd:mPhi
U"v\SPB1HS0XQVhJfR=hM.TpFj,FI6mFE8dhc]YV3W4N];TEfD<qc;clZwM:0pcrn
U"g,[BTn,h0Lp+n&f\OXdAIjcl.ZpYvm7*l>gX&RMmeO=zpB'\+OO77(G<Tl$W\fh
U"2cK9bGMRO_(LH?Ui>9rS4dKU]Je9at(WQ4pU,seK+_5JfJ0?/=bSZR;*KPZTmjF
U"\<Q5SE+f#.4KnSuYSjq/cb?M$L.fV83_g4fXzp,c*u.\f^oS]aOu02n3c<vQ/$;
U"Rh'^(e_8M%sGIZ^m+Dbunjwp]j6wO)XmM,U8-/qKot/OYjO&+u_p?rdX2F;N&K^
U"hS^<&t6ddU9+Re=A-5qWr1++C[b7O-%VGKx9F_^/FBNkoM+'t;#*4cE*CD/&&*i
U"m.snvN-*)k2L3^&Scdf1r\C6tMw1&p=b/P#VMOLTWoO&qaB+iRf:.XJ)EeHjMQ%
U"&TfNGUQeXc%[RmKXYdIfZ.>4PAIArEkj2y?0^s3711bL$SDtd-7Qj&:-E_N<4Kn
U"A\(,#ZDmn#8kJ0[k$C^VI9Y]].h<p&\(<y\Jw0F'd9=igc8y,Zea;JOuM4\[6De
U"n2:3Bnjf=*^9D14m_O,CmLPfnU2l8NY&S^0klwIZFgOr*tCt*ty3jrhp<qBO1KX
U"[N[4HD*-i4;44a1gQX$/=AoX:'4NL*bTJ.Wkft?Gi6Ef/0bwQiVo6ZSTDtp4T)2
U"ltT7UsZ&PUglhUF4<l843'v2JZeK.6r4kr1#9*0+9JIalloq-;Aufr^cbZC]Dkw
U"p-G^XaNC>OK_5K6;E3xn;u_bI1':RvUa%$XSfs[5,/EbUAxim,jTqe2xBXEi/.L
U"Olr1UD)I_i<8NKatQ\3Gc]$A4T*flT>u-S7wp+*jd6>P3dDG'?HHGs\nl1,)3X3
U"Q4-9*>)(8^FcQ,5ahxG;-+:QS9fjRJ50jQN.X\tNY]r)dF5RhK&35$#+5Q$l9uu
U"GpOH7.j%?<;j;B0MFx[*R]gA[c2vK6V+]r?lWj:v$-%QX8>^sL6bBZ>]P2j)a;Q
U"B[;#.%fna2XKq+Ns.VwqnVW7(+EMVq6XpUll>;/Me8tJI)7%#rhCDlJe/YU,XO5
U"9vBdVkjoJVYWs/9n1)[dti1<V(&d(K6*b0)h;4Uu[x)5_rC),=b-XG37Lr#-vWr
U".L/YtmxqtOd<nNCIPJ,LTy?UptRw)s,vZn)vxY8SKL_7/gJv,7b1W&^9zqH_+m'
U"5##rl/e'MrHcw^v*BLC1q7vj6'B*tN17Ype&u70$/<DWtSh6=/l7lV_X8KF?(<+
U"e$E/U$<g0[xiUm3029\ZcZef;b'tcO\v*Vo;2.R^>,tr91IL7)q\$O/:Bj7TU[s
U"Q-oVlP#quYf=3J,aNmn*&_*_5%RDP8#L&jq%+8nE/Roq$M?[v>IC^z<K&BHlWxO
U"&F4,f(:+2b9wknxkU<TK*.uV'a8,3I]j=uT^-2%^aIq2p+k_MdOMSze'],g2;iC
U")^&6,*>x*h7Qw+E[Y%;Xa(;8#x&+8W9r[[3]%V?Sc,602hCx'E8R%IV15XwnwVm
U"/jgoZ)UL3R[*A<a8MReeEo)h^ZC[FmDf_])6#3,dtPlHEe3H_0pQX3VTBfT5MLK
U"p^Y:O;#LT=_ZeHHBdw[EgY5%Y1z#GP+E;V-T+Sm:)H/N'GRNb5T,uNnoRBi]*9?
U"3#,^*09\E%Y]$VQb2XW)^9<UxYHqD#/[D0Eh<cX=LM_:Hk;5JmGaTB&.srTStQw
U"3-0qY>u$se#U\rh+q'c./789MFgeCnIoBlNaPPA,-VYnZ-x)lPy=kx*%)\203-I
U"JZ]T'qC_:]>VBHA52TRP?;.)3AM?HNWP\%7=:RG2k$k5oJCv()UKQV4DVD96#$X
U"u%$%ZpprV=-W.QT_F3.L7fMvtjq^Q&O.PFx=RCPJmX[G>ndxn1KDvaSrCb/72/4
U"X6>s?vPen+M:9cO/pA]A%_\D->-\>c$FVLUnTqOZIDasIrlh%9HTQ56*FQEG7F,
U"j$W\^*9a;j3TB4+WDQ.L-#=yUJ?eZ^u69-PSn[q[*hL\EmYF5fKK0nE?Ha:sknP
U"0BCU&8kGOr.Em%;#'R'#pE#=wFk)kM:?mTX3;t\#20jbJ$a1qUv=A-1Gja/JWH>
U"<2/HaRJm7ZDObUqrqaX;Q6i)cSLF2>+ePG$sM;AB)p&,ZY%rrtge%jDrGkV:_v$
U"^%cD:L96f(XeTsJK>R2aeLd-r?I0*34L09WMmKuGJN>Zh6ny-klBUU+p*tfUh+q
U"KXnV+v-AJs5eimT7kI5c5XwSQXDO.suAsT2X=g'9z\yE6XxDP-Hr&;/$woB+.>U
U"Ut)ZXbPx4o-5]o'Z)Y?JO%D,Qf0hZ)FA$6%H/\)/tB10r7kSmY4R.pyh*^c5i.n
U"fTh]7N.u&Eg(3[L<K,rNO-^zJUKtJ5XeXJD*aQpoIbfLYGAZ.&:2&=xDW2j]Yi7
U"i0^y\R>a>\l=2WXgZM/(S.B:887[Jsa:>i4LjI;qlHaN#94A>gfh)SZQBv$b5lx
U"B5$AI?KRET?4l>FHZM4pmt>xb2NUAqC[YW.r5FI$j9>%p[jXj\ZfwasnP&_BJ5p
U"sw[lR0$VhxNx.KR=4>NOn1a[NAlCje[b8YdMazF+Fm[hF8c4%$_O;a94)%>0PY&
U"D2dA=-YOHZ9X'f>L+^QUHJa?MbJXDmO5^:g6L-q9DV?9Jakof1I2gQ#Qm05GUjG
U"KaUq_50*S+J:R7U36O>pun6?]tY,2,kk>tG\l5uw7*gE&qBCvsA12.A9v*o46rq
U"]&kgr43axpwEwTaXlJUd8)0eQh2$Gjg3,H]0Vc,O]EyBorO963-k\e[V/Bo21RR
U")kaZ/BdMlp/j(QX:C]*/g&#I/Ge;__rThbgec=x;?+ip##(\jVI[0yxT>4Dqw_o
U"E%b[zE;f+p0Om#<b)HcK(+/H4?bhL3CAi,sTVr>]$'zjeNW:/oX)xAa.hy^(<8X
U"V,6.4AStm#:0Xt>7H2egQcJQBNjpV(rqOCIMQiHinTt]3esK_P.G7[^^ddrc[Y8
U"K62F0-TWC(?0)8#0'-/WW>Tck-5lD/mx7mWM3OrTCl8aOHVDuhZce^y%jU)r#A2
U".KZ<31zj\rA#O;p3lJ=YC9w)'a9rO(;+.If,+(Hj1*wbk..6kr.G%AWWBNJ:SJH
U"z?h2cbYf6bD?OcN5-h(lDnJu?OXoNq\NI*CJGl*Vbs)$J8q+978_eAuhGt\V=^m
U">n<o&N2lOt<8N)oHhff*6)//N?/_D.<h$%:]f^GWm),^:V^Qb^oXQC<4PJf<C\:
U"]Iz?D.Q?iI7KBp&5*C<1X?3Ef;uR.i(Uu2w;),_+jhS9oHW<3G8=un5$<g31YAS
U"SN-_0n,&_67sAfmn%5ko(hSu^-/lkp#2:Qr2/]u<YZ1Nc4I(l^IFgf)Z/B*v>%O
U"qE/Qd3n\-.L&21%ojGZ9L&fNHSZ#qP]54bMUW8y+Am2.[Rhf8]s=bpBYAXjbw#&
U"p0)UQWgNIN70+BE'QI$):jR1g-,Nfv(r>xP6^F7/IV:,mVofV&&)N:A:8vC0ACG
U"t*R<J42f'bj>>.i4&q*8GCF'_+rD41WIxbP8/N-AjqQ':$=r/IiP.:GD#_YaiKS
U"cxJY$Y?86G9]QIF9$82f\puy,f-*uPihsEFO1ZKJX*?0&M.3&-2wGT7cPjz#GE.
U"\thKaZ7)Y1;1]_pxJD$O;Qh/:PNF[1eTT:);*o[dX0^C#n/omW/.qE.e?Wi;9GP
U"PQX4BmUn]6*jkJBKmy$&a+?r%D/^C0ah=pc_'y&?Ppo7-\1:UY:*JxZ>UvyF'SU
U"ykvAOc+^Ta4g^D32[v;gJ3-e3)NUvhJP?<C[P]Z+I9PBHf\HfSk8l<Q9Eo2A8[]
U"ognEb7k*S63gh_jn9D\=WlN'bafa+%ni$Q\2ej<2Z*;DK>^/:)6-[c<GFo+nCR'
U"4n;8&1C\o>.L%r'-K_:<a4jDpP4RnasRHR90A'r&T=I^LUyk2AftbFn'o#<SLqP
U"p/P)ImCrC&vgI4i-d*]\L1XW>GLBD2IBYkV?afbzF8Q6:x8F1mzR3L[bP=M&eZ6
U"_?ta=USoY7OaPJ4gsf7?>dUh%0M*$G::Y.MLllBrZx-:(\g]t1%fW2N10oR,'D2
U"\\'paC#Q9/iX\[$+mJ1-,ds7?he*$k77pmbEi,/q=1gP]X,UeCL[7.DlJwi_?ui
U"]Qm(sXPi=:^o8T,_#WC1D^Cc#Wo4e$'IC=;uSCS.t#vCrByOHXcUr>3+an4xO#/
U",lP;wrbQ-=,?TnpC*Y&6Ys&/Tf?BUm]'QMC)WE9%6;[GD3[X$'5x9*VhPN1(.d1
U".0,(jvye%W'KPw\xapgPOx(45lUF<m:CLqo35I)O4tq4NfJ;1q-e1J%aEPA6>w\
U"]'ip.X'f#I6T?2S$ArP=\]dX;1TiIaC+0uFok5m$T*;';r0FrjM.?>#YJ<y2_54
U"RT1O*84ttlmsIWjoRS,A=<uV?Bj[?&(<_6S#urf-6I098H3'r:T$Zm&S#krD.R,
U"$?e?iAqT]KkJH&Asq\'OBBJ$X*S?c'=nM\^*r4^*4r:C8X,&>gSRX_2$Zqg#)p\
U"GH4%+mVUsn:gPo4eT5\uP]3macDO;0KhU>8^Rfykc9A_dCO18s5:iNi:WqV6,I%
U"2+e7aO3DgM.:nQbb.+/J2g:xO7ZnYu3gfnce*#?lD=P=&*U\V&9mD(*g/>E5Z[n
U"HUb:TZtB-S8vvS1#PIZ[hI'^0-6rmEOlJwIoA6B_J#Prs5Zd$)5e0D?$Gd\Jp+y
U"dH9+^cH1f5B:R?Rbh0W[&L:q4c.XK%N4W2[?-FICR&SroY#l?NIR4t3CcDQ3O+C
U"'2^9,EOZWHq^3AhZ;FqcUSa./DkkLN_sSMhbSvrsMN>Vhd>t>^3aq0N#x)so)))
U"$uMN\tL^x;f3j[Y9%JCGaz-;otlc7Ur+lE7dOyNYkrEGsMwwi)M'zTARvlutL*%
U"'TEqECemjA[7j))KX'4lUV&zt$qI][mcBF=Ti&0B+(/Jja[S[5FQ2+3H'*etIO7
U"#-,LmoQBJ\-yMuO[a.WJmIq3ClyhY]oahO052z80XkgB\Xo7e[+7>g[lvA[Mj<F
U"k&y>/ug?]u6S&Un/cd2[p>KiqkJOEz-7BwdL][h-iDVM>u,4>I);<beH*hK)'(+
U"R6YgkX0-(/ms;beT6lXD&=Z.oSQ$?DR,e7zU)JEO#.+I$a34MgszZILqyg#\n)L
U",h]<xVVJT#V?N:(eO<Pat'Zq]K])Ur^ND58A^x-;j3TL9C6_b?9_Sj3S$qf/:>j
U"U9EUJMg-#ENQf5Bd%X]W6S;o<9+0<kKq40]o9Q7]bX8O7#W]sR8D/ngro-+Bh5r
U"l-BsA?m9W#D:peb:MQ_nSiL6c$X+?n>x+\Q?428;>cm]+6(G:B$e>X^.cWS8V,S
U"z%WXAGN[o3?m??*bWJ[fQedlYs-R;U(QcRHK#2TR<6G^0gJU,WTE9B=\,PG&v_a
U"4JB=^B*we\UOil;.FDTkygwp=%C>EZ1]uiwmKY_r+[+mOb7rHsCv$h1^=4I8Nus
U"&O\xe\rtxqlbv8$R*FGpp<$raC:#&x/i$=':gnjs$>S*uVCSm3ugPJ),&/DuPkb
U"'gm\SYEDud8.PePa5MkEqQVsx==E=Tu:M,FjQpHw=F915gkO:]uV=H1q2U^d0lk
U"5e\w-;VE_5Ct).66E$unXUVt^[6vrnK,ja5$Hz5n$yuiiI,u]eb+b+1mOt*Ac+I
U"07I&lIqc_Hxc:dp3)sbsYgyujk:F'Xe%lAyEO:B-jOQkE\%CQ$DAlsm:#Uo2s#b
U"XIBHBBYAIcmg$t[9m0PrQ0)c3eN(lj<p?KBG]%b=wrcDd3xbear3O%G>P^al%n.
U"CDg8gekPX)%K:ED&)r\'XS$SQGA]9uMq^*aHY-f6j3<Rn;?^'42gse5c;m+m)5>
U"$pP)QdYG72ow&IjD)&tdJw[Jr$c&eorofI+QC2)k?_ZH]<)E'bKfev,z=]c*WN=
U"R8?E),:5f&oP$y>P:$XMO9><7=h'P)AEIV.ff9tmpoQ]d*n*kj/NC+)*4G8ehfY
U"1bD5rQGBK+G7^,.jPQ5d+fvL#s74&xVpp'KeI6y#c9U-V8P$?dlJs<C2G#1aT*K
U"V8+7y>If?IQ:+HKi5%aWd9^L,B8T;ghln]Z1NKeXsbZ^n%Yu5>W#R2x2_%Z6%Mp
U";'tM<8n5_^l^HGXqRMoX]cudw1*>zbhP#oShhK$\Om3\gUtZroBH_%Hsb>Q8:Q8
U"AX3nkQ,d'];^t#,>pAgjHL\aL'Q16.L1b>>u?c7hSuL84FtZYOWx='33)a.H0;N
U"\S^GAFrgxW-L=Stt?>VI&c6'8uW-4A(J>.nJ*6-$.;<ON1x[+6*Li$q(oLCKRVI
U"Joxut9X/qeOpG1tu#e$wJ7-CT43:.(4D2+9B<T4SV00BP4V\^fVu?x-,jU6eT$W
U"D40t^rZoQ:c?Jo1)_/TH4/2<UD1bU<-F?c8Vc?;JohYq&wRak]rx?Qq>u69$z9p
U"FrF<DB3OxTY6ccdgn7bVW*4u918GJSiH(2Q\-G7=cO9DqMvx=s?>365R2T)*a84
U"Zn8omU*pC\CDZ9jtH?]=AE,-:V_YnbqV0+VqoE_4jHAbqG%N>_6D3A-EB;JZByq
U">d5<GtcGj\Dx]SJK;ecC[mxD5_/U;;3,KOG<6$Yh-06r$Oevf/PW_ASaqbO+_I_
U"OgoR<b+m6A.<U4]qr:g5RmQTE2EBxmjk=b?6:AXWz<NemOi&WFA:E\c?1Vt:So$
U"n92L'kv=]Q6_bOF$prJ;ya:<J\5p)o:E5+jum'P<+y;i4y;1Vy;.qohtc5m$)U[
U")uYf>[aRV]Bdh43cg](w7$it#_]D1If9^9B7nACN[53zC:O?A[W^_[<PBRukpvK
U"e2)p[-V3dnMQ2^V,a3.cyz%ffNRdHv8AeHAAwAHm&z/dnMd5\iqi(x%wRh7\$Xm
U"th3bO+4SM*&C7p=(b>#*.zqA)_dmP(\%%#kj<\$FT^R&+iMC1T_/J+(HiPi0l=q
U"uOX-A$WG%^QU<-Z[P.I[+.IrQD?OF=R13XOSNnNPt5sp<V2zpA:n\P]kPfYq)%&
U"nm=aM-G8BLjWh7$1JZkIJ'VhDLx'u3[vk;[z'YO>h-R.<7m?JXmH9Uh('vN?Dr1
U"dyPkB5d0spW^)DDU5xu6(I[YCjzvw:/(kx7TO;eFIw%pD#xu^g]mYO\-HnTOL(\
U"UmoZT<:9ad]i^Is/CgI0X*pVZ'(hWj88JXiWs6xZ2i*GG>qi7qJlWC^AnbBrX.V
U"aqORl./;ps<5Qwa/[\TtrpR<U(,9NIs39$[G$R'6A>EN102/k5nKowZ6GH85X's
U"F?c3D0MtP.;KmnbwBd?EY[QwLX'x(up%()9%%%%-%4''TP+eP'U&_'%%%19%%%0
U"%%%%hmfw%xjySdgx%&n'v+]RE-]>=d2G$?xFoz197_k*09xx6<=Oe3LwhDTrH8f
U"ucsw]p;JI=u774H?cpPwBxcKUj0&eI5D.FK#Qg0?pb^4hVhi&8\=P4r3,bga:G'
U"O'u7MLK$1BBFpdNnEh9JRhdP?P5UAOtS7M2<s^HXY\_XU*(Jms[f#-tD]PD#_3(
U"Z,.Ue9:D^I=c.)8KV9?I-2HD/E'MOC%rv&G$6k'pVwt+lfRY(\y7X2-B>OU>[CN
U"-a8FbDeo-3*2KT6NhTQpL)&YU#<\//g,.-kn(5.cR'pZMq/Hz-tqkvvnBWN9TJ%
U"[lQd*HRLG9<(?11\JiZ6bC\o54t6'?B)_BMP8u'MW=J61N/Dr<oWRhJW]6Gv(xo
U"FTQ44)>-N0:26)'ga*Hu1(Ut5TQ-D&bRg:rVgi\fD2[ZyF\DmiKWkr7\OgVJ$=\
U"^)k+(<..DPky.%24aU9?h5Jq]E1OmdDw=diI,Ex$#gn&)va1P<sh;-GKH&H.eQL
U"S=[IX%(>?-M<hHc%Q).)IM%h<)yLKS$C#YOr4Qr,$S;Y?e4\aW]MELa-ao:LLFh
U"KCbG(.b?E$Z0sTvou-;38K5+_L\(a:n>MiP=;\d&*n(nL*.XeQqH3vpOkgSVOmi
U"]t;<,2d07KBBp)KXH&MpPH^pFs9PJwglX8dRk<q:T0J(;E1pA1%HK*gccg8CzoT
U"s56Nn>sl=h$E\lQZs;V;KmZArWltA\PM(sHWN<%A#cKy\']JXHox4IP8z65PG.p
U"T5edm$wi7p%>jn,NVNlIw&'5^-yaOwQ;C\x(;mMx7&#Pevo6x#/T>n,Of(R>w#H
U"]bB$KgNiBO)iR:6dp.u%p&'9%%9%%#%-%I(qeP^2C,MM[<%%?%t%%1%%%%%%%%%
U"&%%E%%%%%%%%%hsy%wktw%hSgf%xup&%'9%9%%%%-R%''T7PeP'(U_'%%%19%%%
U"0%%%%%%%%%%%E%%%%w%<%%h%mfwx%jySg(x%up%*+%%%%%'%.'%B%%%%0?%%%%%
END SUB
CLOSE:IF S=208AND B&=6804THEN?" :) 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\6804,219);:END SUB
'>>> Page 1 of CNTRFORC.ZIP ends here. Last page. TCHK:208
