'===========================================================================
' Subject: Directory List                     Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of GWSCAN.ZIP begins here. TYPE:BINAA TLEN:11336
'-------------------------------------------------------------
'                  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,"GWSCAN.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%#-%pS8;R7A:aNKP#%%M'%%%/%#%%l&MB20=%SgfxDtK0Ksy>ni\OF
U"F(?6B_.0%U+6_E#nAd(-ji?A7+p=[(Ve75N+na[BgQLrFffB.c%xJYkp9kx.YOr
U"s(xw'&'zdAnyNthK%x.s;*.w?uu+nl)M)dqv%BxnkXpWBV)u;WZF,FEgk^Bu_5_
U"Ekh2F]>-vYjYeTWyh:ZEqOh5q3jS$B$)feTMq,'G2u*<=ThIQ&.'rH&XpT*1)ek
U"bpxiaqj1*gm93c&S(VB:5$ycx[GG>.Y+e:G*7dX1neB)L9/eDusG3nFEO;$.Nu[
U"bM7c)ed#*EUR4_eMABLZtXFGDB:;pxUj.)2K6x:P+JW>.e=/coEr2bt>,:W%P:F
U"j[-i\L'O%-W<Bf0I)(]*<Fj5#ve,y5>-SHr3O6elF,Ke?36=U;j.94L();p=B5s
U"u.*9_e'W7FWog-I:g+lRNE5l*wgd>Vqk6j/6jW$f+)SN.D2EI%hyUNEXR5>G3LH
U"S0b2U'[?qQ[U4<Z4l5'\\hB%e84':hIbOdGw9'RB-CPhTN%RgAyRE?;pIUtUgo#
U"[_(Ih-B]MO?D=6UIf)$*GCt)8M1FG=GzX)9hxc)NP+8$gZ*<\pM2*;CMb'Zotu:
U"F5wOLX'7%Qnn07%i-Q\]WXWI:Kl);:)GL%OMdND<>B%.c00r0tG4:Cq*.OM2cmo
U"RJo)+41Z,J>rsbZFUHNE\Uk1:-1e(YfNO;Ubq6b\d*U4tuOKtADeplH<iOODNBu
U"T)#kMB-:HV[*R\1*^vAl^25qY>R#tk5D>qnnRT1s$'$(A?N(YG=,Q*6/,v/SmnZ
U"]>G'>./&b+SQ1e?(-\2?niI8>1H<X#4'h;AsrZmqTL;*K3T0VPSJo.U_j2mUTZv
U"6e.F*('/jpU2*Q.=<'oJ8gfT]C,\#rNa$c;&2jXQo-T7k50[(M)9%Q*+tTNht?*
U"1h+>^6?F5=Xg*9;40pUHI%5[T^H;rZ:,O=0r62D&9*eM#$iFSc^2F>Djqee;:to
U"/1JVv]NRO91wJNxOF+j;#QZZ''71E5X+T(/)rDT;'F$q_.qc#\8I/]uv4=QV[)t
U"G3jqnrV5Z[kYK-#$8$(egVPP$0W;nbP&Re?<;u.pE3j=R.e&7Pj,YuasYRj^TFE
U"L>)C[HGFJrHr5tEKmw>xkd+O%>-8U.\;s9Y]tq%&As-F%jG$6kxR>%eCj\T3jHS
U"\R%GQTA]u%0YYcf:-t8Evr)KWMoy(qeX\S/f/()3EpvF2M]x[klbY7%gw2O&oA$
U"C8ya#9rXgQH\*UHN']\$[mE9\5E0fHgycN?Yfi'?qSr3krH3oHbq_.5KBSUQU-j
U"s1Wo/-^4T[Bp9DoDp%PoPp,z1vZ7L8DS/-ZP\'P62H*Ms^72z:22$>l81o(a'q*
U"Oa>X;3Z(GMxW46bqe1B3QGRdZ3WKX&rS3r[%8&R*r+.M/QfHFu:eO[jRIVY*]ZK
U"v%:.)gcOi;o>Aj/.2k^;\ls%561.T3]V_0+Wj,ru1<HyUpUJuqj:kxJQ7B[*.Vb
U"=J)CnBq#Wr_%Qe,2t06-KF*NCZvyLMt:prwOE_+s30U_o(oP_p,cH>.\r/b[T9P
U"hiRl3jLfj9TT)dYGXu[_+$iS[Eb$.K+L0?2$jZq_p_3%23F7g]WW32d*d=qnf1G
U"EXDsR8-Q]>5*kR^_^^>/](HnjWZ7$ckxPrW3HlO+Z4rr>2gon.eqes<O+S2aH+Y
U"/RF4_ibe'tAnAn9?k4^]HyR\/K*b9Ca,R&-,HKB/T+y^_*-'eP/2ULeaU#KFiIU
U"hn,[rn..e'sj/mF_t5a+724'i''V')M\b1w4GndcnPoF];H<]d0,ZBNnNldgb-=
U"5HK%0VF-tv(2we(Y*+#DrCgH9h)r3]OvI6>EDzQq#YNk%Yn.iq6lq$<M[ro<.Qq
U"=K[=LJbdn?EAAbEabtdv-#?tn7nz[)25kqp/TVzc$ZXFw?^n?;[8MVAo6*nijBD
U"M//Eo#O3sf$$;p]1ZXE&^v$ZFusC3?2yM_P+:4)OWvE?]NAmOli1T-)9/*UJwQ)
U")ogX=3tb9&BOlD;jZ[&bvMg8Q^j$<qSZvPkcrxv-ebNpIxZ0k,i+Qz>bkDI84j;
U"eL%7Uo$YwVH1Q4hqpUz],pnUOM\,A+IBaV&t+eFVS[rWprne<:F_jZf:7?bN;Vp
U"hE8)'bOqAq=rqsf:dMci3.&ABm4%'jbhtIOOxck4O*9a&av$#xxQ1lYRwE<0vkv
U"9x9oT1Gd5d.Wi_r(U5>YO?96uK*HUzfj>A5'EYERg*=Zt(fx>eJE(vyV$d0vo+f
U"<GFyJ<9?)gLYXyW<+/9'A%/qLdzM,KJy^Lm,letYXxF,xMmYZn)D+<X2H)U8y1=
U"]he&oHqL?mmRg4TqfIo'1=''73mLunP+:$qwr*>b<<kT5oM/gH+hs4<h.u=>xHi
U"I+irwOJ]0T11Hh+%?*fJcne\nb(yCGC0,#3q<[RTFH6By<3R]L3^><(KsI.Hc/x
U"TxOXpUep>-d\LM[A,b<P&Xu#Rh1<A1bx.dn*:']$I(,8=='Xt?bLEo3\ZpG,118
U"2WC6Om$]nFRyc/zt>GtWLe&[\bjoSZO?>y>\]P7e$gXVT*-0i+I/3e^k[*h[//A
U"v^]Kn'J5*on<mlEMB33uL1B68bqNvO7nOI?JuJlv[x.&)6#ZKlPU+V%?R)$0F6I
U"gASH9[<LKnu.2RlIrRP,&I2tELvJxPP^KqC:[&;MlP-ef;28$9m=ew[cX2MhFUy
U"7OIn4xlSST.Qi28m0qvrC9U/s]s#V$J'vS-h2BpPLn-%Hl3RE=ndpW[u(vUVjKj
U")y0V/'?];AJS=0TlT8dX7hK368.F%klM;bW)X5^6PAY)IWVhVI1-cUrMD8eEMMD
U":hMD6;F_XWgr.X&Hc\kCYZYTsNN3i1F?=M<d#[e+arEb6IBfF#_P>W?7H]p7l>P
U"t*9hsh:U)k99^5eNJE,+GzeTFCEtS-I=<gj7.$TWO&kl9Zxh3EGs2D8QCkA(bII
U"l$z.ed?#[nfv9YaMxVv&5ehs<UUC%n17CYU>a1xL?=;GMrIE(97Hfgmg)=w/8?*
U"M$Xjk?QXey>hw:A0X-dhb#Dsx[\Nd=uDB?BP0d]+L$ZID'2hC(7kMQa?8MFhtU(
U",j_o&1bF7EM-<;bw75c,f1*?H^$-'B5G>NwF_;<e2Gp2]s$lGaktPmxO1I?O$km
U"?X4]],y)rq*kW*9[=b'[(KvUI1:kRioF0vwMab8yF.v#CPwA+0\'k9E;G.>JdRr
U"G.Cf8_HT.'DwXfh0G)?YtWJvs5lS#?sV2emPaq7r.0>oY9B(O=vmoMZ\LW-M/KQ
U"?qX9V%Sfm&$Z6Hp=:5J:30f.D2Zz'()(4969NPPI>A_&brrMHjeh&DEe$>TC8dL
U")m$x5JlBWn:4Lk6F;-Un;Q?DK3[tA;Mk6/P7#he%^K5;'WnY=sECr+4:k1)9(hX
U",IbEeXAf\pu)EJ-U,bp*YO+RxwGg&jF:KBHI;66)a3bDf%GQ&A2fFIGM^*WDxVw
U"##2fP[eE;13e6fS%k9:?)Y1iv460%u'Dv\?JYGPQ+;#LSqD0_B#:\'lR(<,$-KT
U"fYZO+:ZU>z;*VJ+sa'9\e)oGKGm.s9mr&O0=&]g?*WPPDH%:ZBniA+R<:fkO#%5
U"CAuFMt/:9sErJ;N]PX;H\ESQ1TS6Sfjq#SVv[OYXf<va(nLOM1OtM]T'?QmqhLM
U"1=ej./&'\SE]QxX(GqCGw[iG8n$fc[9m:,t\BEB)cA^e(r_O?R;ZGEev0sawd(&
U"k)D7-sUi(Xd'=AP^vir.f9mu=_906Rm(4Iqyr1g/V(D'%lLO>PkMiJoQ^(;S2QQ
U"ZbI4=bknI;(<#Xqe]%Gk3igNTlCeV,[3Fq*C/B%+SLZqD3Na#rZsu%2#-XnTDHH
U"QmnRWtdB%\55AA'4ya/%)NJN,3g.3KjJjHM)6=QPq3A\JhP=dkTV$xMF,H>?fQl
U"BM?O3s;=\F,guyL*?anSo1^IB\l)kAt&$RJ*'lB^aP5B%n*+wlCR-\d<)k&C&Zq
U"k6*'<s/JU3oj''/81WuuH])s(/ZNNkU'9+UG,.f/l^7?Jt$Agh9Aa+QAU/Kg(?9
U"lQY$L3'G*JO6P9&y#'$H6CLm1'GN2O,PRB5\=\_#rd-:Zh_*P;,xSbOn/iGp*GJ
U"pp%$YgDhyK[v5hGG%,Y,&So*G.ywRH3o:bZ\lL*[GgDgnd#p&<gH4t*p[lvV6]:
U";XOl\d,BFYjrr.a;<()+LK3YyC[P<oYC2$W\$M*V[gAXa2TU&Weoe_lT:_1b'V1
U"_J<_2)_+^dt[^UV<C/igqv['5psGSW9b^k7k(u'6&v&oYrAeDBbeDi+LO33[mHn
U".q*5#KctR2,o(nP[rD.G71V,jTGShdJ3vIEE7eP#t,6hnDf4sTo3$+vKQ&X[f3V
U"bmAeBcm'1RAc-:,LLN&^4PdUn6nf.bi[%3M\E8j2tw*09qb_VQ;D/V&-oGNshlc
U"aJ5CZ#I\iGefbb'*E5*U*807t[K4$Bl%GXCNeVPpW5'OYPggy/B#S$[%Oze6;,Z
U".?lE2_g2.fiMO)%%>lQ4f6MYo'LN_=Ot9uND[Sn%3^X?Z*8raw*A3%vtY;YRm/,
U"T+R(TR7c1Z,Fhten\LIb5wEvAQ8'J3EnsD9+uW/Je>.jN2QvSaQXyF13h(+=sl7
U"/V<iPZ)(-TKNrS+[j>en_8[1E>HL-dk,^Z3rQs)AosE9eiq(oSZPr1Tm6aRs^9r
U">4y]111o(V+%s3]6o;_/X^_=qFY?O5R(q,%=<scaofaMeLJ]sV\;Oml*eGa^^>9
U"#JD3R?EF\#/aqR3(A_XsX*oikAi1=WC8m/a>le6^9G1U[.m?/+jo9:#69BzU'WB
U",bLwi/3$$Z$R1<BiXr1wW>c6of2/e9Mpd+Xc%KCuefmYpSFMA\;qh3S[2Ci&n6j
U"+UR9So/mo+?\dgK\>_Y0-V0U-Bsog.>a$U$TtIJ<9#v26<[%?tl<#/qc;BQM>He
U",Fx+RrbnfO27JhFJB+HJFS4A+[GXikZq-Zh=JmgkSeEURv363.+:k.af0(nP/P:
U"2T;l2>,PsiO%gs?*5KRlW1iK/]g0cObWFu34Y0(]bwj_h;zbFfM3cY;Uct%1mK/
U"*w_7F0cR%-qyogu)#GXQ.w'tT_3_I%8;xbvH9q[)U3/TfH:gNL1br-i)v9K-?2g
U"&k3KV7ypT3)POoxcPn)gS0P*akw,&mWsWCjU3*1CeY$BoKB4z>Bdd9zbNi7E0L&
U"s&Kh:Tlt^YwmTv_sL9mi<^*e:YlChmR#?8\mF\dMjjahn'pg^q=B6+D[s:w/3U\
U"CuL:23Xqa0;7e4vOIABu0%Ft*524mJWQHF('Q2v2=4V[W4M[e]W#hSj>+(LoU-M
U"Fposo]*B\Qs[*aqG)N:j:J_t5lDE#n]4lCr_5t#=00cHFHqa3Xog(\e6F;:+0g:
U"/8ol^Ybv);J8KEukhHoIj),/t>7&;SYpFl4]DW6n7%mxYiv5W%MS&(iQHH3R54&
U"ha8X8_I7VOmOjy+kkIZ-y72U=x/a^%f[D-GK*P-Wbh'Q0mQQVp4+9Y7M6Nf/&cR
U"lWt(XtrNhcc/ZttMrGEK(X<zd<riv?+uoqlZ^)9TDr*w.#7ehNY;APGX2o][(<p
U"eWxeXl-BNBz3<D8nq(J>s]KOCE9=]C$a-LI1OHhOK?&%k7PDm[X3FzG1q/a&[)>
U"Q%6YI2\OG(\R:DwG_bJ><%wtQa'DP1ZYf.Wjv:7hwlNBH5_%Ms,3XlWE3pP&5aX
U"1S&3c&7bV)V$7*e'5xwG#KR4N?1[Fq*i9Vqkp.c:;a(Y?uGMoFcR#:hGq*IrktF
U"t,,#Wii^qyAGCq]D.BC9&4&Qwp;>z'u]/b;_9FuO\71V$'h[&il^bhE0aVcL0AV
U"1e[>Nn(5lO&'h?QFF1JOPn(cR1?R0rm_&6Mcx36(3%?iJd6[t(Mx3aZdjChM(c,
U"PP5/sycW'=tMoA=e/e#=oVy[='B_apeYWici9-=HbPOD&&uUFElre(c=]I-)'_S
U"zB'oWQ=+^NZ*_gZ5p2Xz=JH':8jH^OUvhDo1E&[M'b(POR,#e'dh0[wYI(/vq*'
U"41*KrXc$6HNf(sb3<U:j4\OYiFd$loc14p$Tpw$RK;l+f-nFwop]dr$b>C_D=NY
U"9:3oMdTNamN,WOM/0lwF(vWeyrF;3x#yoQ8lhlFsibDm5af[])&gFVP)0<avlDB
U"G7X05h[Ol\ds>QK1F:hdJ6tZgDTm'A/);=PCItAE:M9EMl$)hbUmMnr%;,gpx_q
U"tHCnA+,vZ?4oHt;hP#1]3c*o*H>4jJB%EH%FOJg2tfQh81:H%S8?Q;/R(]A;YrJ
U"SCUlWDM+uYqQsI),rph=E3:In&?=jKtPBrx>:tJ(aX]Psc]mF-\zvDd9Z?mEjFC
U"p;E(=Vb3rveTwX*KAWB%MLitQ^1YaD9t']I5P=?pMjD&\QH_93XO?*.E]'[c,at
U"du_ddR]#yco9-^BwPQxs3:ZQXB]A&:w6-Ok&aaK\?;En_0fRk5SvsQ]R141/e4n
U"R;YMe)3i\(WXmBB&,/RT2oQC1V2;\JBTkl?&Ehup^S:FcPL/ZT.HgQ3R7gyMc<,
U"'th&Gh&>4o*a=R4?pB1HPAbgQB_4:L)'QB0<h6Bm)(O,JnChFQj*v5F%AYm[8QT
U"]'EoK/.'Un(]:5#f.<tI,.1]/D9oO&1mSodv13ZYcD5IH0&6sLFb'h;%2b.GO+(
U";1\[7G8VhQYeNR.nhf8W0Kl\bm(]ElChn\bFDWA1Od*+d2\Bfy5[d)0K'ztK))t
U"wqADz[J-T+hei92ZkFH=sk^jIP,%lF;AsS'gH\uB#H)oR+,P0%$q=TKwLB>=44n
U"nX?%-(Wp:km12Qc:x&6AY]]n/%dSeFUBHapWV+RFRN4wrv$U8heZ2V6e(zD.z57
U"1&t3Y/ba4CfQ]L:m%9rf:(FC6p[s2fga*e?EK'fsV5O,mv>KNQ^Q0_'E^d*yl7k
U"[^uFGJ%*axls/&1\CxOwYtmVb/Xza>EsK,#+HJIGzUUN6Kq2<8xrMBtQPr[x5zj
U"b$h#&T^hnC&Y/4R[f\z)$1UJh1.2BB%JvEK:P-mjro7u0c6.^K>8_Y%]Fa?agXB
U"?F55G4>5Ydp-8]8ggEV53=ZQE:.Aj^];UX\/<gvy]L.)v>g8Z_%XldgPdt#1O;9
U".,'8V?HY)^,&1'jO159pZ(#3s;^a1;AG^(gBJCJD3,W#2eB]:J^:x2_TE\c\aAD
U"K-mHjX.);/&O1U8Y0DX,WXRvlWh&#4CRIn]h6[WB-^#vIlB[7B&VgJ0$5%cu)*K
U"eOgSH'R[]E:SZVZ;/#k#N(vp\LLwtPFeJ<>%cDs,u<,3s>zx3s>z#-Vxd;SJixi
U";-WB$TJyN\*ly_sAe^p%?a1aF6H%]Vstb<4M3<q^Q,?b_&agYC'lr78n7=T6D3l
U"s,\^9IS_&YaF]oI9TEY8'VsWT8*CIuZnMc7-DMEBK9UW\nxd5vK/']?BriR<D)C
U"]hHEfQ9PFs6kK,d^p>MNZ3a65%Rk\;Y^iY*H+TWGIn/BTOTVrWL/MklLR#>s,3,
U"\\Yb_oQqKJC$S1^JrN,?s^F8?rSR)gB#/4hh/.SLm;v3,)Ur(.^Bd97/h4Kj%N1
U"h>KR=I)Pg^:nJ:J%nUlH7D8>;oKc2%y=9GL+j0IH7$y>20NC]OvC$%0a/;^,JC'
U"B0M+.SNo3Ejm1s(7K&5:U$%tyFSJrjmv69AmCHWLNs:'I7'NsG&*pk/.k9*tuaG
U"Xkbji'5jH,(XTL.e)h'F=Brh6&O14CcJl=S06YX&+Mkqd6V/%KxlHARs:,U-0H+
U"[<c.82TUN+B?H,geJU==C0_pAwU$[*OUF(;B84.\^m]CD6phxiR1^dTR0Ox9KFD
U"vt=0e\jsopN4MjshRRGjm'Q\[h8kK+v\cVU$W+(/A-BNATjat'CIcn7<:ph3/Jm
U"O8JIV3*\Pc-3%Z)JmMtZ=OQ/k754Q]RBalwFeRV5*,wr1iH^^vDtcV9hV=M*t%c
U"Jx:4'KjX*vS)v'%;c2>p3/_)v'B\,$S2b5aju6<T)q%yN[:zyjr*<T2SxWQ>n$m
U"8$)edh5q(UU/T#lgoqR8=bqj?iE,:80,,\4dz#OAy6Akwe>%7Qoc_8&S*MWLnCn
U"cP#VhdsOYSfCH_9,RolqsM/<AMuw-pD/HSS.](A05U)&med[</wEeh5;IMyR'J)
U"+YWuRC-#d7C#rS_*-i>^gWiEk-;sE(LjIhCu.n?t:CltVvDbC^;8R(;zh4B'JY\
U",oMV.cR^[BDo$RZaS,7q7f&thvOj?rP9L7nAYXAkN^.U*Nakhj$19D;xxf9lZKc
U"m_kSIaO[QG^neY)Fv,4a+\/m9ntQ/>sN$m,:#k_Acn^5ohcBMG&&L,V^xZ.;4FU
U"BQ=W*8_kf_?U;;z=-m+8.Y8usYQ5zfxz,i.W]He2WGYyU341^g=:7XTs8u1e<>e
U"v)%ac?G;O6._kX<tw_CaVd-S60+=r,]oGlS#wiJY[4FH2;J,tO3bcm6+fN)QVZf
U"WGNu%fYz&<Iso#fE>0HPj,a#wcJ3BmC>0\rpHVN^OHuD#_+(NUNaz0yKJuElki$
U"u9olxdE_V/AdcB-4K1KFy'pcdoA7:2^DFfr^2,o>sPV+^-]BVcA=M<I+2?DWz<J
U"\]MxiNq)h,$dI5YipAf2<wkrxmlAs9Jlh+sCpZ8hQM#,^(FLS-jE0R>)wChf?1f
U"JNoOr2eQp'vBi1e2FR^$#i9<WVT0^I>n8/SKij11NA27ce3fRqvk:q5bc_t^<2[
U"Y2X&,=pP^%ocxAr9$$Er&g8)q5XNZMy>;8D<*JZGc_U<<h2_]LL$v,EfMXV?k-c
U"pmHpQ&igFBqATuwsg]x.3,V8.*c=sd1adG>^VnmG0ixAnBcZB>WqvBGCci;y1_;
U"1S%q?al4;crFZfd1?F_S:S&n<&O/:qnDl)v96L8t&OSIXMDXP+&wSOZfFfZFE^r
U"5b.q35b.FTDjzy1E/%oyY\=Q$/4;TagR,Z]<RP%kr1%;Nss]n_N+cIJIS<x(8Cd
U"iM#NZ$]VAuo0>$-Fz>a,sFZ43OF]O\O&4,ec=T+x;&=qh6<r+G72/MJON4^S#n+
U"^S0inQpqX-N00OScifuiU>Ku^4b-2tmWUli_9nGZrS6jjGHuUlve1HYD2v;Z/$_
U"+h<fp?SBl'vC*.^:d6$PeNTmJBThy[WC/kYiKeIqV[fYlY7_3Pnl1WVd#x7zetm
U"v9l8?Sq(&4>q0U^?'G^H-_2Zf&o/nWBjefH:>]%q',Je]p:DCE?agO5BrBf5DR$
U"M/nGmiDtB-URG+OEG.yhp0SX-qjZbAN&GQ>P?c(#3<$+S9sq%GJxokeWg/7U0\'
U"qWJH6'x'&'jp/+*%K=\fQ9G30[kOALCC(tcei00[yJISBn>8GdJ7g,nFg:ZsaNB
U"Cs[kDU0LwNReSb:r8uY;&(]L2_l6jPx-&%VcS6b^R8A(*P1?a]x[8HkoQz^s(+_
U"nfOY5bW:0.gJ<RGS;xGE6&u$?06nB]M:F5mk1l\Oz=t#ffZX4m3gOdIoB4kcye2
U"bl55ithZ[=_uoShbI#bouXTO/pPYlHUpQnPo1pgBwQ8eEE[v_x#[^Zk4m;J1xtm
U"[3i.v9]9NMn6=>-BWwkLO'eauN>I]ju/>-VPv1.j<48r:eM>^/#1pp$3*-qw&jl
U"Hr=S6Ix1(b?(fkcX86?l?H:Alq4OU$[ju[Y(bm]cmmolKh8=d3X\Q&OBm6UUlYd
U":6jRKtr,I[J?8LEC?xni7nLK2Cd-rd;t;WepD<DXZFvI+5YIRmaKZ]Vb?weZ5jq
U"wq-bg0>jpc8-LT[-bE?W:,m=)$pVPVUruOKA&qO3Ku%ner9_lnn4vnYa#6^7V8c
U"&4ND/jY3\:]J^=1dRL9FtcV=]Zguc-MCaN^ZGROd+mVphtZ'USW,k24Bk0$ZxRU
U"W0doL&qa;+4[G=^mI?O.Wr;.\'qKHe?tsuB8GkB#;W=U5QYm]IjgN&/OAL2;ev<
U"vn1K:ko4q6J8u52*^a26mOVJLcH%aJ^dnw\LnU3,-IlP,.0i5rvv<rKKd<p_Jb\
U"oLxw4m(kO7=[3,Vt1n(.G4./8-dF$/wl6d6D%vb\)bRb/sAdzJWGXB,W\=6UP'>
U"e/G6tKEDIJ1f54sc5[PRqidVst^9p_FqEpE#um%PtDTmk(k,,7jVat.%lTaL[E=
U")&Olhlu_iJJiqT+(u$Cp38m_BreKqqk'l=^.>d4Yrl\UL^l6-1H.kuO-5._HHP'
U"+-C80gpK:'[cnL7omsG\ESP%xJWyhsV5YL(&24N;9'LRq$X[aC/iHSxn#i41Pb/
U"8lh#v/Mn[aOe[Pfe%px]w2XZ#.j2.a6;#lWaH4QczG$A<9s98'DxDyvb#l0R]tr
U"ZFt%F);vjlecU2DwsMgZi*#LReNX=VHe$$l[XSsr>mm&QAd6V;L:l7rhbwV'0St
U"#6i.e_IH]E[\v8T-M]WVG=WHQ?*DzXgo)*G3s3H$=ntQ529Q)?4H8LqoQSijX;v
U"ZiK^0=WRlcO:)bh>9H*#V_xK5%N4Fx55NMFg/4=280N<8>:TQTPI2_-jv3CCeP]
U"Ok4;Pit<?ht;kKvPE1>Ci%;t;#3aB(ET)pTU#oY=p)(DeH6ObWA2LBmq;oSh?:6
U"Pv7P5W-^*^hYo1.gdMi)jw&?XgRq>cReH^pEU;,WLn+z05'h.:bPOf^*xVl>2da
U"ovyT?3UTml>TwQsE,7^d4FmTAp1rj)xA\9>i6gk-JxCMKRa])=V5hHM4=nwr3R?
U"SsK,vD#DlQFFg2nCn?<U/cN3*U14?k34f_-iBWyT7TuF[=VQ]Q./edR=]gf1DCj
U"zD2\&._gf>GDFFK&][?9t)4?06Nj6npredacPqR&M-I1:)MGd/svEWS&5YmRD=Z
U"l/NYZBw9#I2:de4>0B'5lw8wCVzWo0?:Z^2p3hV0][)Gs(>\1i%J?d'Z>S^Yl%w
U"Z9^#f0rdcOGYt:nCeoHPW<-?xRC/x(KqVP7%rc[HjJb=nuj2#1KHqClWo4&/M'O
U"lhAJsiHt*>sc\&q3:&#jH,i/7t5oN?%n3:(OnkK=\03:Qou>su,/JW6MY-*ua00
U"*;KGs1[&^)A*,s(r1/Zmh(wi9z&LC/2L3>lwAI&>*o4'Iu,n/1i]lGnQ;r?i5uZ
U"jJvaT*Fa3.wH.CoCulIoT2X*3/*PTl6H0XiU-+s>Y()cWZ5k^$Q?^sx%^Pbs43.
U"eG9jR'53=,Ql%kYDgM(^0cBfxBnV?Xi&%0E(PwMgYG8>*R<[d.k8=5(N[R)z2$9
U".H8Bvsd:3T^cUV[Xp#L5aJLB0i<pkh6*]+AVu4C&tn-In+N;e_eDqSaJvDjS=CE
U"7=+dTxm1pmMX<^:ZW^)&H6yH0%,^IWHq4bk?0qOcT%y5V\koHgf2wqaL+_MgY%L
U"2=8ju>-^d9[9r3Z)kuE_ReFS>?Kc&#=X#g[?<0Wg+lZ'Ug>UYgW]3#;41T?F/rg
U"5DeQBD&00t4oy=oHx/qF:ag1Y)VGl:80pbQM4ZnEJU,c:D$*6bX$DdRPwg:Hs%f
U"HirDspUqr#Q[.yY.zF7&RP4kfNG%1i\0A;60g_fw:C^^+30,cSW;a(]*q1m>[lh
U",/;;(.*7vr9,*.%wvdhOP/15hUY9;OA\^qs?:A+h_DBX)WI,MN[i)aP4A1PX;h'
U"_]W&/PV:AMx$7fUrL.Y&Q30sZiVeq(P=fI&aErE'B>l'd9mA>\?j$vC]pW1;?H\
U"m=29k#c(10*']xDc+#N;5[NS*/)_?_A'nyOG=aF.[_VwR?DAb2'ZA'71LDqiSLt
U"+]d)qMW6DpaYT#U8HN,D>H-D<oLY.XX+q4J>f>kuK'V(PxUr\_Fk<r>7U/MIh\+
U"&#56r8&+a;Vg3[<m8N'Z47:HV03>q%k-70nX0Qk)<J\#F,75s9[BCF;od.h^Y/?
U"]os2T)Ub'Te'Q9)l_Jp#0Ff&cYQ;E_u:<#11&Opn=^+=Is?;Rg01HX<gl:'F\]C
U"V8Eq>PN(H2qjSg[YY-x5:1(mVt%Jub,\iI>oAZ;KK=FROw5dIAyJsfGNdtW<(.:
U"l-n0.fMG<1-aUUsQ65.<y9Sr&b?.]v1SJyM/PJPN:L%#Ln?1d.$HAu1F/_3Q;;W
U"0WNXM.4TFjUjEFz(;Ndeh<9sGtV0IciCJGX#SV*;uD7Ho?:=_45[UXrccE4-cMY
U"J]KCg8XirCGq/&uq8e+_YB=p2LVIg>bT#[U:p1+Z^ZZ6Vd\shreKWj0(Kt%CNvS
U"i7%5dzY7kMvh;')Wm;4En?%B[]h:]%1.A/i9S='*jyF5cX=ma2W&]1=vktP.U4S
U"u=J+(ImMsk6[Gks-&a$iRR:]qQMo=g?BPor*[8%hh._ulg+:M?4D)'kMtcM#^Ic
U"YhCW\4hA8PQWMg0oPYW/A7ZP(&O'a?LR0P4AG(:F4#J3pXT*Pl&ht5$\U;^k'?q
U"CO'S+_KZtNFwgVO+f9M%9tZe#R.LZU65>%V4l]HURhZ9bb:2]Z-e+64'+x,o5rm
U"?hmP]eqBZj.xdPRi:'1&6rMdb6QBf$P[<UNM-9y%*8DxRf8M&tu%Ne.#PH*+iv9
U"X:n/UJ4C[I[Ac^N*u4su-:BgR9gqD6YcRRYd]K<z'3WO#15c<.='BwG[#Kfs3<I
U">P-JkJ:=W_1%=9uO%64POo[?GpK=]d*QkPLQ(kG]$V=^Twrw/?(86\l9vp&B*EQ
U"h[pooa0vjDAj\&L)J/\5\qy4uss7plG;/CvABjWu>%E;0icE9MRr+j61-o*''eC
U"*25VU-c.>[XY7c)q:'=5oR6A]i'G7wl-_u6ob]n%nE]]*C%h;ZS4HBw2OG5txtI
END SUB
SUB V2
U")?6>ft>edmB#''m?We<V*?I'oHPwuvJGrX7meQPq\.FQq,.?t=Ri:s[7eT6:?QZ
U"XE$7>JiU)$]?A3P4U^_RBIn(LXUm8-Be?)xF)aKEii$FME;I4i;[m+_$E:&S*C&
U"NQ.jd4%CmTqhVO#I?1Dg)3E?*x='08C=[bXn<<^.m*2v'fhwB50Y<Mj;>$aNTVd
U"e2A<>Y5;:6xBTdSo&Bp4<W+(f6RubC(=xt=gM1+*^Ekh$K<8QQGdcoT(8)e\r-f
U"sg*;0\(LKQ:*[+DW(zeX)G)[$)kI4n;=\;7/guSCVxkcPQ(6EmZ.D33#S_ub0VX
U"K*cYxehI+w8]=Akn5D.H[Qy9EoVJajE0Vf9[.z6EI5/TLb.SV0(u<eTW-=oVduG
U"Ym3Z=C(Y7KV0mNAN#A&ZVR]&(&90rEwNn94Qv72Bog(WvIe?gho,gnpmcA7Qa*M
U"ZrP-IID<u\zPe+:H\=;Qxc'('qDOW4pd;T#Ifd(E=A_J70fI:?EP2n(E-C2boCi
U"JG\rH$ii5Tt*I^_c*[mVAFF%KT#N5*C;-vC);$kLB_UPQj+B=M4/F.aZ^BVn**l
U"5:jB+$er^vXgxU8rJxAAkjcV(9Y]oJrHH.rI*-VGMY-#zD:.2Vm,12GRNP14T2A
U"Q8huy*rF'4^<9;P=9cVO%k53*e7q3>uq+3)VBM/41Haf(Bt8mkd]l;e8\*$5^'d
U"<:OeM[-n?YRVbsXO85(PB.^a2RXu(R6*4H5p4VK=9cuEb%'(Hi79&CBlJhw3z3%
U"s/JEr;J<Zon?,>s6s'955W]D0t(^+D,_GoPI>_/Be?yM>:Ptgf^$pHoA+ucaI3F
U"udg)]w>t'L.XjTQVWsP$PTHw/BBA2vo?OIpdNRV,nJmp&oLNLo$nogcTh/;Ip*q
U"q0yd4AdE3_C6:ex1iX),')1Pi#eCkB5hHt+V,jn5&TI2,(SDS#gM5-Ra0)AG-d_
U",U;WvSA5S>ic-[Ijze/02zW7]0D]qB2$?>T8y7#T7>i>]Bb=5(X0+gbk=(76W5^
U"1=FtiRI#C1UMd5649L6Rx6u.K8iW/LZ7CuKhb'E?jq&);;Sp7j%cKbwi_S.CNQN
U"MI;Rp#IsMO+A2kDbr.0P_6woOTp+toZ;;T7=.J-P3uI\mIhYLQZhRvGP=(?phlM
U"sE.mBinSsmm(HV<WjN1f](&Plw[AekQ:>W;ys)/R7>d0;9?VIZ3->9G5;&Li&Dt
U"h0)O*_;O:-Vt$.$HPM*aI9Al<_mY1zj0/,)SC%^SV\?AIogP==/f4Ucy-TM81:G
U"#H14S?\$f#Q4FKB#I=x;X)S:KW*P\V7j*Q;Jkp1o/l,Rtp;Lv0-aw5aUyse['0e
U"qP%c7l$*(>ey]ps6t5&i'6LDLC1])m^3WL0G&r-#c3g\YEZShMEE-\W4gQ9(z(6
U"]6f:l)3Dh:-_B':iH'&L3xOj'P2;JVN+CtaB4#RtXX:tG'cYZm$aBWrBE&t;wWo
U"*BbQc5ljn;pf3TYs1>2bL'x4up%&';0%9%'%#-%pS8;R7A:aNKP#%%M'%%%/%%%
U"%%%%%%%%IE%OP%%%%%Ll&B2)0=Sg%fxup%*+%%%%%&%%&%]%7%%sP%%%%%
END SUB
V2
CLOSE:IF S=171AND B&=11336THEN?" :) 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\11336,219);:END SUB
'>>> Page 1 of GWSCAN.ZIP ends here. Last page. TCHK:171
