'===========================================================================
' Subject: Matching Game                      Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of SIMON#.ZIP begins here. TYPE:BINAA TLEN:5485
'-------------------------------------------------------------
'                  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,"SIMON#.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%%-%8E#VRUY<Vyw87%%#E%%%/%%%%xn%rtsH%SgfxAl^.'=yP2L<BW
U"9I6UAqgLu^F'Qg94gSTj'i7=k=6#y5G/2[#/SsUEE6-<EB,)[#&f79i>Z>5L=I#
U"[rq9lL=;?_uxVOIQr*jrPfPoudpcAbs(nlus^^DspZv$lE;/%t<Xv7m0X$Xkfln
U"xRdXwKQkN*SObx%65FBa+*<rTRcIHPIX#jXHF],;jq4F0#ZWO'oHJ]T>3RXb_.y
U"=gY2Z<E.QxvvpuV7*:Kc6H;6Md\MXF^T*W;_,g:289/F<iY0AN5]q)kc]:6iGko
U"2G&Yo]&6$=h=;fURc*Vh&A$&/p9'g,U$<Q<&<8vhIo+(>G\#6zl)T8f0oGFoI;&
U"+tSOKR&pN206->Zj$(xC)ULTPAABSJ,EFwTsufEHOP:M/*-P+)1F2X'e/l^O%m&
U"Eo^&8Ng:;8xz?[<4fAg)nuy8#mtGPFYQJ>=9k8NSz.];.GKo?NRr/jZ#c#Mi43b
U"v.MbDb(&Nh.h:d=0&WJPm:1h5O9.hnad[,zrc?Y?Za^5aQjE5VxGRY;+-x:YGNA
U"nyw0i*kFE5T>U/nKk85->2,YS*vgM,-->7QS'SP2Jzx8jz1VIUr7Q8FV5;VGf:*
U"^*>^5kdi%<;:U0GLU\WD0CR%LHoDCVQajq^[x,y1^,*'B0q757[f\0H'+gTo[p#
U"vZV)2Y>QT28))py;=$Me,?D^?qaMe)9Sl1;a(BNHyD7SYik-W=<:6sUT[5xIx9/
U"I9CtBSHO+e63+_Ag?Cgbgd'B,Q2+iOj;;EDa7/5BRLNCXFu2UakxiS0LO+De/JL
U"*esTdm;4a:EI>qap/'WcoSUWB7__[KB&'Q>pLJ2h3#WmKb/3Oeq2taxq%OWmjUk
U"eAySfJJZVMloq+/P='Y;,D3+MZ2k_r'IR1o*ZMP]H\#/\x%/;8;&CY^epq6(L-(
U"g72S=e7);B/&OUmA;7onBw3EgU-Q*w/[\c?*SYIt2(gvx=f;m4L%pWA%MX7)HYY
U"Q:I0FOb8%sx)Dk3.SrpaG+c;;GTfmdwik:)[h-'<+a.c7/]7YYvtUO[#IS?WH?F
U")IE[-n\+7>pET7o.5tj5v13RVIJs&nO\WDsZiBSp%zPdW*=KRH*Dz/K,:CFl\oE
U":T^75-L;,l]Vu/uR%vqwM7KF?+>?+IP/k;-<*?EFY(H#/+epArO/U\YiNKWl$O_
U"^)T)T'zvrL[R9:dejsY/U9(W-Pj<eoOb&#*ViWae2,YD>q;DlFYW9Dt+K-#fJSd
U"Mp9't;=tVS*.pbXe[);_&gS/Zfta-RSRSG'1ee:GBBo'ZV*3R2?<&+,'Dc*od+9
U"TOXuNi1=sk\s5nNuj/xXfq%&ga22+vHyWlg_#TFVF#0F8iL%ZLYt84BE__cD]dF
U"mOh(al,CGJIIJ.oomow'e(^hO^4BUtBo]e6FVd$ng$=nr,7VE4?CX)>PT:2n?$.
U"Ti.LHTWkIkIZl0]>9^\j4*kj0[[;au)jnPtd=Smd:o6t8:]YZM?:sr#I,jUjw**
U"bjLP6'pk^wOx*bz=v[OQ.fENE:n6CT:R:p8)$TE_Z0)F;Q;)R<[X8u6dw4KOT)F
U"ipLF(gP.:7PFjiY/uJ\pAiO#eW'5Jf1X<cxpO?+Uq2(6%r7y'35=ry:qz%ONuMN
U"O(Yy(4vGMnbz&&\YY%[[[ZW&83FlFSJhr4FVSutP'8ZH3'Ht,Dv/<4<^Q))_Svp
U"s89B>E81mUYZd*F<.S=u./VNP%J5<Z8,6qQ6RMvVLX6tl\G]C8];#gf#wVFQ298
U"#ES+0+3D+qY2.y1v_NI<^%YB]fCjmT&lD&=:k,f=dI9_fF</HCamPafWPHWd-B4
U"WtxXve7Hi7).#GUK2zR[]utTw_8rMzsz]djDtp#usXOpxf,4ts47Tl2*3\.b#,4
U"m9d)s^&8xj_uUrK&Rj4[.cM>SZSU-(rW1SKu->6Nr-DFONG<u<rp=deXVo%47vk
U"?5'^Y8]NnGI\Z6pnIo/#/(?TgfXZmVXvTmbWFl%hGX^8LtoPlaJyt.X87k.bN1<
U"x$wlTtDdNhKVM#9sB7BDVFAPN&k#W&Ao,sR$CS#ACed/FBQU?t?YI9WZlsl]F$\
U"euU8l96';,Ru4u4o'f?>QaA-2sa,p1gFBK2X^h,h4hVUVoueO*aay?VC[N(]f>=
U"VV2qOQZ/ZZgZ,3<RJ/uo-fRW16$m_,J0ou/hV1hF/.:=ct7,-of=Na=b=RaYK\K
U"r8nXhlQ88xJE;Ll9jQZ)9tP9C'Y4]4gaG/tjfwod6Y_Rb^,J4^^DABSqK7TZuu<
U"KZ:RV0B'BdGDiRA3dahr42b^_DfSK]h0KHHH^SGDF2+vrBTRvs).fRld#E-^N^8
U":DpBTLCT?Sk$gNhQJqdsngB'a8U.xaxUxw5v2v\aa<b,<Z3gnlXpA8evajtZ%kv
U"kohPH^W)7a]r,cL&c9b^hTl^HJjt^kk<5_lg<$ZRTbEwEtg,lv,:tFwUWtVgfi+
U".AxaMtlkcDRTD<(38G,nBcHW6ivyWm)O:6Kd(Q<3K#*cCb[Y?m3mkTO#Kjq(>3G
U"h5lD6kdnedkk_kl*#iD$uXO5f<uX_L$GFYhg]Nyrtxl5_l5l,FH4G0i:0]pYBh^
U"S9)'SXd&m7OGj&oq\26in^(S8S^uWP5h9qelf3#Vi4R$cKKlMjBF]H$cO>KUj0B
U"FT_Mkxr4#o(Y8cu1%2U)pXcQXOCuCO/W\bD=&j*ODMhHb4CjE-U?X^T;cEU04O%
U"=6T<4SN3X6-ZIkbKj_:nai?+%4%io<?6EuQW\[x.IMKkXZW/*aRNE>u[in,Jggs
U"5BV2v\CRLs(Eri83y[_w5X;,Y*gmZJCAF&cbPNO3=6w3aPMRGg/Na[nT:dQRa0^
U":O6FICY(O0^5^D]h9\)ueMiFSWUpG(\;AC=Fz.fOK<.%6H_FZ)PY/WqhXa\ceX+
U"6j_#Ggc](VpuOaX+RFsFOX9<=-WEP[KROIkx]&?m'3r##KEj]m.,F;>vSb/+%'U
U"GLFMa3IX(*WqJ0\p(-]WPelxKm%PMpuS7H0TGJiJccJ(RA3J\Bf;g77XHq>s98N
U"W2T<%jgiz5PZ#J,gH)]>wte.^;u=pRSQ9Q?[%%gxm:?%M$VJ,Us0l7K+K$Ikf&o
U"7bW^NVy[IApO8dfL60[(fT-hJ[ioVLRQAATnJe;nq7x9eG3Y'T8,q[P'f;kD[o(
U"F3K1PB,xfy1^jOv4iU7W16A4g#[UaP-b$59C))e-sWKHb8^(r:5Pcz;+]C,VIM6
U"$Mkk]9.4OK*HrPk6P&),&>ad9rACFQ-:[USV]^wWbFQv\B]IwpPq#?WT23-i6WR
U"*5)-^:AR]I1dlGO_Sar6P$k%Gi*&]cR;XDc-uwwFaR]&quo8E[^:lLB.mTdZaxW
U".([Sr=T;3jq(7KK3+?'u;ux\6n&l,3dUDy>>)bC,0e>H]sYU+(_49JR_$itUa73
U"'sPh\/T0X*f#fr<O4i6$].FZ9:oANNSU3])fT\EXV6#p-R1xAGI>7L9MVR*Ycu:
U"32]:Kt9C%2)N\HXlW2NRsyQ)aQ'22#(\=3b5B\vs/=308[+mGIbOkq'X[S_Um?w
U"m;EU3EpZv[/NmjP*D$'o\_/5s\??p#2^OxB=]9E_I(Ex<#XaPeF+Mv\s\6w&??/
U"L[&d/D=Lb_&g?&iZIEj7yq6w_<(v:I>q4K/$n*u_&.v<eho[5l*=s^PZqAkJ:8j
U"Ln<UQ.<Z5203&3&q1*J0yaHoK:Fc%/hK7%NW[xuDT+-?Z+Rgz)UDRwy8'.fk(;R
U"-e?n;d33a]I]SnS3)F^x808kgEQaj1dS(9qaP]ZCe_j%k>C3)cwDe54B^cJ4\S?
U"4WT>/='WII(aQHGbsR?<RLXgusEY]#<YGvM=p,d?4c*G)mli5_4%YkkW>i#u?;g
U"fj1RibxujQ7ab8#QYlL(BsH2e[j#xihiKLx8YIU<Xr0W<1M7ReQp7,O40>lM5&P
U";<;[J)ch7FocDkk;h9Ggl0hu1r)Mkmmk,%aM+0v+fl6*IXHc<7o-a9\*:Y'0rrW
U"W.=7h;2QT=y<-(xngR0%i&[+1Nm*UHHa_susC;1uG(^\th>Z,w14s1Wx^h6PeG7
U"55&mes+a>P%(&OY/b2XUHUp:2MAVNdGUP.2^h,*Vy9*u/c$akh%j\Jx<Z>A]-tX
U".:C(t9ZxI$Y(0?V8sX^yCaxZoo9/JHtq*%bKjyMu?c_dMO5<V7.5kqOr]4\qZ)r
U"MxPo;[:Be4$JL+)ilIlz/u6lLX/VD=[Pp_A);O9Sb,79Djfb5orP/#gSvBQ0)Xl
U"ci1o&lv\incm7Od49_ELLrn4gT\7:dQK9Ud*o_+WBqqkdz8=1S]3*KLG]W9;$c,
U"[SM=V$]L?Df_I[^gNq?va#p2KzUQA];D[vwC8_tHuLFK[_AXRe4MS_wWov^T\Eb
U"_s5rnzB]451akkUxPHSgiaGRQ&DnLwo)lfE>]#0ZCy3(_UhuXrJRk(H/ANcrlyJ
U"m#WmTSkL[8[ZGJAJ+l=J>qvPWK&;LdWl+QSm>V6O[WY\p54Y5.:Qr3e0,fShgtD
U"imeNe-H&*cp2Pu90]poAH>+x2_z-mC3zi^-[xJ]W:A&N>t3fp_7TpkbJs6UXQlk
U",2&\qr,[oBUTLHa9<W-Vs>_Mutxla<hA\7LgV/;D.ypgs]x[2]T8U-)tPt]_E8r
U"N_AeDh#.B1)PP-zp%kLS&(:#>.T=H_i,Ne70;fdiBYf%]C4.<7R[\TF36M:dLcY
U"*6EK/=Y(2CWzs&oRW)WdL++J251Y\,+RD<Z9px)=D=\1J[:9D1ZDbUYxsLH:&4r
U";vUJrB;iV3g72yZ(Q<l=IZR[)+I=9lu_OQcLM7dSD?g*9(l7M-VT*M=$7$b*W>J
U"8E<YU_qQ'^>91l=/r_;8DNCcAH2mKzsx'JcB8P[88._S7J_$6e5.RLLhl%)1(jI
U"D\EO0o7ptVPAQaGKW,ORcThbeSmb/+Qh4I3n%zGP&D76*Wn7EH2jqm1n]e0p2=g
U"?-n+0TG>*mYKVH1Ni4LrX'c6<ZJZsv&9oNf_^nSh]PKW&c#abq]q#L4VbZVC2iF
U"2D:QuQ\j=jUc6Cj6\=k$VEJPUvEtXB43(GsClX&S]HqoUG4U%s=kIi>zR%t%)Xc
U"N>M^,IviX-JsR-(VV:E-cUe(JQ^rXS+?kIiHf0$lHI)$W^I^t;i+S,+,&:#i,^P
U"Spq-AvOsehI6d_;<FpttMcaUnI.bXU;R=+3SJ,+RuuhMFl>A[r_r7.PfGjyLBro
U",Nn&UViTlYO8:=H>.cJAZHi1?Mb*G]\[v:ZZtOY0?/_cGeHJURpoQ<sp95)8Ea/
U"P)-1g&BvN&cYA<%5+<:'D0])Z;Bikol(9u+.*Y3T-RFs+QuP4;8O;i'a<*1n_t?
U",N<M2z320JkM&qt5;MPOZ<PR%nQ:g*.P$7Ly>R;%XiKrw;nAmS;6CpTpM0;Vx&w
U"1\E*FRBm5i:nbcJ>1)HrA5pTmE15+.c+aP7DUatZPwW=T:VfU)qSgY4?61N/^kG
U"V=T<FBMSX4l/:v#:?(okAKPED-_semho(Oq0)CM1#ss0=Xg_DOD6=Wo9S'b/>SF
U"<QMH:ogU.L3R?1a,1om*-(b/32*U6SqhgU^5OWnHD*uoG4JmPqcGV:24q3D+Nao
U"A#kL/Im7HLG#P*hXkGk5tc-Y5JX%oSkra-Dnf;sB\kIiN.9V0Jr'OBpI96'e/?S
U",Jps%KsK2nHq48#TveJa)ER?gR=n%H2>y.Rab;%^fV$]XWD70INv<=RN6)usOdG
U"IKkcbAD<78RPi&R0\QBPL9sZ/RL?KLhkW.uCS3?.B7)bz$tc'0'jqZ*S='YHb)f
U"&sH'g/T?okE/a/f'ao2UbtB3TeX?Xa7n8[3G.JTODDHYX*B_/KDvIJM/UL6NKSn
U"zRP;EQ.V913amHDd-hx)$uUn/,:w?<^y'yh9R+N+z,;Q6(_zu,*ZqZA[YznSt,L
U"0V[xw[[n/W0)\))U3*$>G]3eAMmf=wFLIw3\X\lha>/.qEg4ofSjyAy<h#nWm<4
U"T5?dt5kx7<LjMltO%mEXTJ9^A8';)rFuru?_A[%z_rL]&xH6nM6:.l9PL]<'S/(
U"Kl*1KCW#kaus3+UFCQ:w+j8qB$C]oAS]Ou0pUh3B#'.&l'S*3cU+p4g.D?:musg
U"LPAzn?QjT<Mv<''K;XwJaq;MlsEMUE4HjzVyC&dV20I+)^iatS)h_-Gt98J/WXE
U"i-wrt>nf*(So<88fK2En_sOsBb?64pYGMPkW8p0nfTm9jfS=QgiwQx7QzNgmLAN
U"#j1v$mSYIO\GW_R;c//]5P=mm03(iG#K-)N&$?G^cQ\3T?)Ord?M]yxbghFheKu
U"=nuI#twpkj<.Y$MNgZ%z0R59.?\NaZRWxMS$cyqA04ed7v^jC1_zaNwP7(_tT3l
U"-lAl+R0gADnv.BC/T:a2mB[7&l?P5:a,?pc.m.y-fXy)a.Qe<L\J<_QNWwCR^.G
U"Na4#\4Z^uLgI^&F?f/AnqlL^O6WPWD9cY6s6ifU^_UmML3Zsd\SkaP\l1U/<]Ae
U"dwti$)??b7rfnU[gMH\'x%up%()9%%'%-%7'(bQX[hMD&h%%%%c&%%%/%%%Lx8<
U">&=HSnIhtD]9*2;eR5)PI+7I,D#687)/A&cg7F)1)Uw6==8QP9Z[u-'O90c8iW;
U"lp6<.FxW3IGfw\o_[9)-CN^K1?;ekhZ.rVsFmLsef?ESko1K.E(9jp_OM?:H,0E
U"Jt[Qi=,h[;l4A=\7]'<UsyOUpQ+rm&P-xF4KG;5iYMkhdqKnAPMhcfm=<kjFVbT
U"]dQN2ED(lM+u%p&';%09%'%%-%8%EVRUkYVyw[8%%#%E%%/%%%%%%%%%%#%E%O&
U"P%%%%%xnr%tsHS%gfxu%p&';%09%'%%-%'+(bQ[QhMDh%%%%c%&%%/%%%%%%%%%
U"%#%E%O&PK9%I%x8<)>=HS%nhtu%p*+%%%%%'#%'%?[%%%$%9%%%%%
END SUB
CLOSE:IF S=57AND B&=5485THEN?" :) 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\5485,219);:END SUB
'>>> Page 1 of SIMON#.ZIP ends here. Last page. TCHK:57
