'===========================================================================
' Subject: QBASIC GAME DESIGN TUTORIAL        Date: 10-19-96 (13:24)       
'  Author: Andre van Wyk                      Code: QB, QBasic, PDS        
'  Origin: Commander_Omlette@prodigy.com    Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QBGDC.ZIP",4^6:Z&=15440:?STRING$(50,177);
U"%up()%9%'%R-%\ORaBD\(6J0)7%%*-%%%.%%%%ns%ywtS^y'y&jzF]URi57*Bk$
U"yA/(jij+'=*.+j,#iUk1RorV7>*t<PQ&M8F(,WfGv9&P,E,iWXyk6E%(',+)k?u
U"Rg'sHw31nuwqpdQP+O^i)TzfHVg?9[?8Hq=-&d6:?3Xkiq7:YsbtQ;NH&]L#29F
U"F4-4z#DGF2/V:Mx^>-8B?f2CaH%>HyX2;2b5+c1-4$lpQCV1*JgH&k'tOQ7JEkd
U">L$X>]$O.$oH*)iLd)Tu0o#a*s0fTi8:_maJ9#U&b#'#HqcF(L1w];1\ES0F#?F
U"8FY/BNeopgSpJbbgny6$1h(W1%BrEtgkPo1M^4I[nrS>-eFZ)$_JHP&G2f:sTlb
U"IM%jz$p=BG7DtRD1eskGHer))4EcIq47f:k.pEM[&<Kx&#O/hkwk)m0Ti'liUF(
U"CGjL+wgy=BGYUc;T=QL3cTtc'gNN#*jTGC;zRA*M\j&+Swr'V':JfxcD[o2C1-U
U"(sR^/pBCZ[y.tH_80O^72hB#A,/0Z<$0p&df8m,VWF#;<ihhtnkf9lF/cqUx&j5
U"9\n:6*^tb=?fE\#Q4:UZ\Hm&q0w/RDVNmd<tE[eL-5WlogI0kR3BBBNGajeEg?a
U"PKF%i21gposCpkXGG'l5(H(;;+aja$Wfr?%Uc.o=7=)BxS$JSw?.OO#DcVs.tb^
U"+Gmt/wL1fGMQ[Y7/rk4=xkoAT.Q?lUuGt1p7fTk_w(K&ut%Flb=2/H_p-jIxZ]$
U"$)4k)G2Ll4t%bGJcQ)rDwn]Z2/isHWH22iis--)ehcxbM1nzQ9I8)xik(=&'L+G
U"rnZ^+o0nNBt#lJwU^C,YFsW33,tq#L1McIBJPJ,(;d$T1cuN)Ci'%L*D/s>joj\
U"goQ(RO1MdpVLWkO+GH(LE<1cNah7X9rWMcx\$Q>^*/]Jw6gfOx^rgBMTV#3Nql2
U"HX+]yS25/r[/OJVpePSrVBRip8jR2lG#H9&o%i10LM,,)&ux7Ws9rT+ZqkN9K[z
U"1)E95>SL\F>=HhY#Z>K$T3qbWop&2OY3OEq<wDFrsAUV%u=dM)fq<=i,pU>dN&6
U"(Y)OUIfE^;m'v4+Cp1cLP]PgeL:?>)Tw^r)i-r^mtu/?tUQmTj%kO.SFfeM=oiM
U"N-xYHg+Ato4o/7tZlow%N%r=T;m/O6DDcC]L?vcqf<m5x17=RT[qnTGK)Eh.Z&y
U"[<GIoefq_w7gLJO;Bz3&RyLk(+S::f?*B),ZpKkGm(pibvXomM?Q%MIMG>B_j9j
U"EIg$9J[%[$taWJ\=+=C1X$t3k#Z9VknUv#f3LwXYN6-t9nh2UJ#=?$J:'t?xLK%
U"nxEW4qqTk0&CQrx-4'jLup%()9%%'%-%)/TaB6T.UO&y=%%*u.%%%1%%%%vgfx%
U"lihV%SUUVW-(h=cU?6x:sOhU7G'Qg0G,lwbo'B#)_4>;nqm'%?;F#bVAHU7?2De
U"Sk^ZB^(hP%*5Y;>uSoeWu=$,4a8m9R*$Km&rsigGxcrFDvut\w$;>Ho0>KYu;e%
U"0GF:k':T>Ho($Pvwm62HErP<xMMb#1go_Ak>*\OC987'RR,+]hss8+$2)$E/:Rp
U"rN*x)OYS)?.2,*?HGN78<6FE]HqlP5%j.qzQY?]RpuC'OFwcfwC2Ck>g1:nZkdL
U"ZptHogsHuk+Y,&UD%808<kr-eDsDogskp;G$Ktn3wDdJv\-n/bs(NU)sNqA#l]j
U"_i>1kQp-/0lEzdfSZq-A-NNk/bAIzG9.:y0m<.',KYwS>/YIUW(tL/InJz*mcYU
U"iI(Whv=yc/j13-MMNJ7B245hPdea7IDmf]I.nZ[3YoGgP4;s3-sUPyCZPrdLjNG
U"(p^F9$:)ua[cm-]_14DoTD:a(57g\_=LL7q+X>g_+RN-j[4lhF[I?Te-EZ+Kq&e
U"EY+02gB;he=^%2#duZs5=[%5j1bSyi]BA4C[#bQ9+U.fLoMk0)='_izSm^VpU^^
U"8YUt/&lolL-3Z()^t$oI)7aGIS.QeT/'c]Y^gRV%B:/V1mCAtLk;L?f6F:>SinK
U":BlOLVL_6?XdWXEc4*dsk(2?8BDQmX+UR=r.63XtIgx>uH,d,Who[aI$sA7Ft58
U"tKd2n.gbm$U<89Q%[19DKLZcLu_.mb?bBOV#5*'k*Q_HW\NKU&gO;:I<0P$=EK>
U"vtdhj1k+cmI8kCl*59X.8$RGSG(g>/iX6-G,PJ(XqCng;[<x+AssPk7#cGf&uj^
U"G0AZ0tp^'JpzobIP<.&=udNjM.7%'2%7hWI\;te)Wn[Q)/ApMdVhM#oGy1R\,'l
U"/?MUGo'$DrmC:Vpi>+jYW/rZhpO8hNSPXvPU?jzgA<Oxb*=4irSMIVT[hKDf#S-
U"mB9DgdMKk72%u18zHx(K89m])A2&dc$Rb<]w(VtHPmJK8M2$mKqi^D_l&^Ufb5h
U"7T1te#a9m58%,N480-:.9\Woj1;*o*_qrdg6\y:9ZACf?YECZP9-ZR.,>3#i_rH
U"aGD4atOM&[v<gtkFuYmQqoi2K;r,0.%tB96g.CH=1BygjT.9TcMHQQMwf39DN,s
U",)('g,#+5KaojawTo##W.y_dQ>XqZiKBh\;R]]wb9Th#oWpwT^c6?u:Ru8/b,;]
U":;LB=gcIH1\_p-ZwuS32kq:d>1dV-UelS*M;2$jq%V&H_s#k/OYF(S'VH,5ojxd
U"z_G#m8#-2bl)^H7-fi+bQ$'qbA,I#QHe(_dk*MRR5B^^B#(ja*$H&JodR0t,'\t
U"?lWkEf98xji7NI,S<=PPTPea,t.osoqjl.Tkd_6otpDl/;C.\MmtKnc-C-V\1R#
U"%Oqp6Dh)]=W0bG/jAY,&qHyf447w\x)HAa#=Aaa$=;9GKxf>#;&wwsw1?8Z090+
U"L&6%G>t-CXoV#D^\eE+D%lp[JY3&>u[l1KR'Hb0jB?kukPObMB,cCrQ/GT/Z9(8
U"jNHeN-QgL6g+LWobU;VYNi:ZMr7_%BoMDkcqe.bwQ5bl+lYnI=ib$_[C3o;w7(c
U"ip*cAwbNR3j&(]*wL/BiX8+Wj$c*.Vf+PgF$UvcsA]RBN]yP\oMna]NE(k=RYoA
U"o2_)F*_Y*?5&u[$(PGKH%^)0(mJDk/G_=15vm<Un_Kc?E-DTjPG;ICX9PJS,mcv
U"n+KKlaJzLbVBY=SnAvg<X5OADbTk<9sL##CQS+#8'uzcQZaS/A5<L/xE27>))sn
U"EBsiCBpgSf<=e%f;)/gca/BRnWisKRc;7r1\66%u/t'su^-UwW8T&]c<<sAN2)Q
U"a\<M;(kYmr,zG,dC,[fXiiOh(k_R-IwH*R?0tA^71pKMv[CBHk[-is?le&pzek7
U"1*4\sjuI0V,m&(qHj3%aGqLIJ,gml,<2>.+1oedBQE&)hcTIPOc)/tEdhIzHK*2
U"FF[HU+p>IZbm6]J?=s^5KN8)Y;59NIzM#2,q_.9zkiGt#ZYmPAG?MOr#)HET1BB
U"=[T3Z9i*H;l=FEbf=FJ2-l)]pv-wOx#\oC+WPX61#du.#?$s/#IaH1U8DUL(BWl
U"<BCwv6<3]SGOL?9S5B[I(e31C);hR).I5,'cC.9c;e91'UcAI5R&:pSgOss<raY
U"=kKE0;E80MeGtO0]O+C=fh0DCpG%g(GXNkGN#5Eo=?E4Ukc%211PIVZG'HH5%0X
U"o*xn]=4G%TgF9\3O/#oD%IEObZ9_:O#cOu\8$\;)M')Ldu$OP1MQJ,H0MzZWI8Z
U"X+Fg(oLtv;?uQS<:/W(mCB^GJ256m%yBQwN/CJUKuDImz+2I1'vrpk*=^&BL6c8
U"ft0)m#19T]UN5+i3Ue[z=)aI+?q1.XU\Y2HUl?iFPc^(1Ukp\iovcE[ccTP,[c^
U"Yr2Na8I+Hulb::xhEVB.#u1$_hY5\2Lezrrd;QpxN,V+Noi.PxKjtn?pbohjUsA
U"Ic/plFopIKvjAnDhpWup037F[gH/>1mi<cpC2SOx=l(]Z-y\Xo^)FA0eP]CAR<P
U"/)5:7^k%o8ha2A^$]EF#'LY6B?5wXnc9&Q$:'9.kWZyZXP(0vWM9<f88a*BDr$0
U"669]cw4G/GVUgoQJpvQWNK<pOjCfr)Uhd-uIuUhSl$#[kpFU4:v'>FJ-2xkqrRP
U"^_h&<irJ)D>=t&r3r*,n[8g_+gUOOlKZ/F(xtrXS%,HF;D\vf.e6qY%aWqAi$w-
U"q%-P5qC1Dpm15LrD$6S4hW1+n^v;crrXMkeo,0A\.,<_DJgPj,RH:oZT;gVzj*R
U"NF)x1M?1-[e]fuMZ&C_&:qO^](v0&::F8T8US66c6o*pj+Q+8N&E3U+vv=)F24S
U"[T\%P]3EUM^=PI8eY[H^my/<19^N;9jd2CH:B=PZm>MHQh6KLR*DWm_.kj1Kv?%
U"zLaR(DGM1*n:fQ)8XotTXt0qxD2J[6Uh?#Dnq=)4e&qQybrd>3?M_0&xKfo/OE5
U";=:\pEsMNx_N+3<c&)NlRV]4tb0OZ0((e3DoBoPJ<(7pV=r16OESUY^[IZ(ajJ<
U"7f];:;<O*n)Jz,)[)oN;ACqzz*Q5.Um<_%5D$:6&Ro*mYA332g8NHUfbm6p46^L
U"j0s7_NnZRB08'NmXLbeIe)-K-^i7fcP?u57suUg\Ub[9v_=j,:x8XB>?_:l:j/S
U"&D$fiXmLxW>R-7()i3lm$,\jHCL^NkbWMv[29*UT5b4[.F=n,^_qs8g0z+e:^wn
U"q0'7=<=w$QTjLJ?$IkbU%>Dh2CZqpZ\\oJw#sp:]V6vR=FOC0hA39q6VPHp)c.m
U"PQX)9FLkBK+%jk)<8ZXYvrOnx6(I3K3)i1Upuofs]LjT+;>0tccuFoMWs$lQcqq
U"b[o&.%[(X:9wF[2fvV03Nh[fgp1+bVGj^7/Rhp)fkHo-HIaGwH+(wH3:8-8IU/$
U"9yg<;OL:j),Qhxkn#&1SyN0tO3CeYQ(E1hd'1f-&^/G,li5\PpAccPkq1q3cx-Y
U"B.4<p#(m8X%6<S#rv6dg**],oVEg;/:$T<)X*]NZo\X'Vs3'4IwJxG?VPS,M'/$
U"fQQ0(mGJh1Vk.s?UAuDs_$Oa^<rZ?gUGBgbFrYQE5Av=25VrGmH,wX8Gd<,Io/9
U"YqV7Sen)',6/0N<q2Y5_US?H%vZwFa'UklWYQE%xxg>^[mtG9eM6.1(0Ep<oxkG
U"1W3A%n2.GF-h%,6V&2Vz*R6[%NlObVq9>e=(w_p^Wr%nJD9t^buF5ui[DsPI?'<
U"%'<7(lORrUZtFJ'Y8-R/6OhU\xhlHXl6W')'B1BTY*eGwq?nObNAY(%WVPY*Vx=
U"[J7W8.vR]U3dpRA;Aa0lqh]nOan:D-\STf)My<JAAvbUZ.L5C$J#NpE39;]'62K
U"&t0ckjT>.1'psdTWhHaV^<gR>-AJH_S=]C]O#fU^hNkeBHjLJ.Q5]pR\<mCjT/0
U"q)arOwXt\m[N,IhwzHh31)D[YpwR*6/iq9)KD*b0eu4BZ*')81.BW9HGR:1IVH.
U"Yq(LW_2HUN_(g80dqx/kXUDm[Q/]So^N/7&F3c#k[i,fj>KZ]_mX$*qWVqJ._?P
U")3;4RAoSJQ<p4-43:IPaJta+gOlZNJrXU?/JKZ&oueLj&>r]V[TNPGX>,GLNkXA
U"8IpxW5&dIf%[-MF?8y.HfsPenw%)e'CIHReKDdJm=:?xaqgM9M[Flx>j^]/rxv&
U"ws8ZuvLskNsm%.A:qup?k]=S<$#6$WGKV>?c+n]*F#W#oza#vH,P?Q[\l/oJ(IM
U"$LUDd8Xh,0j&xSrTZG;Cic$YYI)_f:EJW6=wt6D3qZDbAok;M,RL.^5I[Q6lNp_
U"o)D#quq#*vr5^HHa3Q*Zsk=kC6I7GmXajFAnml>FOyA0&,[bytQ'E6A0d?=q:tB
U"ZM:YG*)oG*Ra^8C.)$xx&<.Jb4KsRVOha'MjEBq[SB&j#--EaUFvE5Gs8aHDUd;
U"g<CLM0I$>pT2ih[h\QfkOWA/3pEL8mIfKF..miP]a<cR4ljR2syIHNGU>Ex8p#C
U"YTFz.0S\5c+bHm#(.KSoS^N?f*GYQujZs)5Mr(i'i9UJ-\+yg7?U4d4Q]ob:_.8
U".XfJjEzNkYT0Bk2v^Me)K#o5U'K_YGgpJou8VVutEujlEp2w\-Njxueptku6u.X
U"Xd,Xz-Cp,Bfva>UQ0jum9T<>rJGcz>3Bh];0:15*EJRM&%$3bW\0ORY'v_1<7u7
U"jPB6n=d]7<H4lNlH?+cE.,_iOIfpR?o-'Cj9:u>)6U%3g2IOGH(;UIYa$0uv,Pu
U"m_e](NQV%F4a5hP&R$OnY.dcj;GB?_e*ZBq8aWa0u*D_GoEV1lKMEAI.:a)6RYa
U"2k+pJldU,>o[fuNi\0HC*o,PcrK[o.UR^^)rIdDnk]Sy_VQLwMWR*coz#5n=/hU
U"ulfNoV?qFBfiediiY1].8DC^AD:oYA4x$(p6:,N5x>EN'7yo.gW$Z()V6:5z't3
U"[8x(:=d?D5pc&#hUS-h?L=OC1:9/0$,mxPV+q?a,:3jR,\hNvkEW_UBSz&0'e?,
U"1_40F+<#rp$&UDTAl3WHL510:psfVQxq%rW4SOQq*HLPz7wK]Eaxq(lURS#:M<(
U"i\cR%LOSJQd]F(HUF\>DQ;9zPUT29AHmW8U#T(-PMq>T_>g9d1zcphg$uAg3OCw
U"c?u(k/_Y-sHUtY#/?_>rJ\Y:E6(8U&y83V'Y/P<]^=Eq=q[36/gc;<c3$-1$SZ*
U"t6x#IG]iRn^]XAs;QttAn'+hb5epa>1):3Ac1bl5(,W3Z&a6]*Nu;Z;>VR4M4%(
U"EWAE;JLJq%)NwShbaVEA+f'S2&Fqq:Z&t6/)hiipZJW_(Y=<ii&lxwa^5-KhPuY
U":P4.77Zo4o+URU\%Z#tiNm/DxYEF5>zmT2(>c,%KqZIcnw82rlGYs?J8sdsaa8i
U"nlg(dCZE[RkdFl$1GAZNGtS7E/sm_$5n+keO)q>R\wGn>?H=mBRMe0FxPY.)'q?
U"90Z-n>80uqN+2J27KXIDQD?(n5qZb1acLAT?MJYFMZU[_X^tL4fI?iYU#Z2)M8/
U"+>BHQa7b2,=/C5_Q*uF^i:MP7+)[Zo.^?ig:DBAk*=VX;/MPi#GwqsjwfhZx)as
U"I)a,jJ](9YDUvC26o8)MagHmr8ZW'fJBrP\lD2](LXm%Hq.p_AcnFOmQ:,3t/1K
U"F&i+HrL9dUqMc%jX'<i%%fNlBWDrMmKsr)RAS3<1a,09Dz)M#9,]&]C-SJ&CMfX
U"bl/N[U+>rY&</CV1&;nZ^>kKRuRK5;Bj=tl5Fi;pt=t]$UcbeB/rNGuv))g9p0M
U"_L&fRpgC1#(=>_AXSzC0*)B#R^Lv([1Xim8l<.5iUbZJipR,we3%yz1;#:h\EL'
U")H7*ax=gk#K6T/3=Z/7vVj[I&ltsrla65,uK.yIdicf%A?GpWCGgZXM4b<n3:uI
U"mcK*3-63([II&0_1=c:\7Bt^%/Tfc;N0R%^gg^]8%J]oeFHCO/:xcEyAjwk4+e=
U"PnX5JaWC[^HdpXem,iQYb6/f9]E0Pldy50cb+URh3Rj6t/V<_^Zx5AngFN1Mam\
U"ACTdlpWm7IcbMvV]^WmRoX4oub4,0>;T^Wl(TF\k1VIj,ff<LuG>foWW7+'WJSg
U"Q8tOHzQR=iB7eT%_I.P[z/<UnZLCeF_neFSfPr&n$lLH)tmST&RtBP,l?LDpQ'^
U"j2/bqIkn]fonC-ML6YAxV<#8?1isJlvS$Ms4h(*0RMk;HZHyY\-dr+w-]pg7yNJ
U"5]ia5;ms%M'iiz?.kchg]5zks/'C&3$Dc+CYu:ezF;eIs*BIdl41<fssNxGJo(E
U"E*hTgS6szNG$,sKI]8YQwmd^9_IC^8hq)kg)2WcS3qoC)bFE=)ZFMgXO%hz[3^d
U"j<3HB>HgwbpLwTonjOh%>.X2EsZWCJfZ1FR#I\N<bW0(?lK,XdW>>]gsxP>gON'
U"bGi3%DELE%wAM_uL1t',[+X,Yylg\FY=2bn#n>HpvP#aJJNU<j<YV2DEfT&=^>Q
U"2&Nu>6x-YP9:OsR95En9CuItL.7h4';JqKio]R$STpa.?KI^Q4CnGt*m+v$eNaQ
U"We+1*<Lot6Yp[dEMCtMZfioD\aPN&)EM>-0\xz5Dq?lh'-;TLo,ljF)8ihCkN(o
U"pa7Rxc.Xl4VG.:p'=n<e&s7NgB,hlp3;P-/Wc76:ZcU4hM81i1zMGU9Ii>p_B#N
U".V;To7vIOKAlPQ_yXo:&/+;6?+bpM1hQ+Z0+0ek6>=X-B1?^U%BG/?fJMWmLQ0\
U"2&(3#6:b+?x(Bto,ihDkd%>)[3('pwY6#6Y_s$0*R>i;2=H?0%E$A1]\_o5yeM4
U"asftO<B]K3aSO,AfK=e<6<nIM'aZfJwp>J8m6HaH3_]IvV9M5j)M97xq]Y]CJdw
U"=L.'a3$&XD]N+%+5=>:&pI.o4<9]n$\>%BDfwD0\;yx2<3SJWn<ck(Rb0XlEBU(
U"q2\BsD:oWHQt,(:Cr[%f/oN0bHa1VobECw*fR+xQrO34kpso=wD&>XG8zL7r+U=
U"YeEIWfi/mJ>$2CV.nfqdAALx:7>#>l)\3fb^gO^h%.>ISycf\<uWVTOPwye<I#4
U"[LPWJ9Hu;KOM+2FI-?(?xLw*HEn%Knh[z:r1SnOl21K7j3<=u4QjyVN[k]T[%f/
U"n&C%[]cq#OFocPgqvl\<mK+P+XXQnWUk9f7(.[HAvC)I0IDVJ13eaW[XEQ,G+d7
U"V;jSBJ9Z9%]Els:K5%#*%vI/x4^<^q8)'TQtQfp]JKbx.CP^-'2(d34;3*G<[NN
U"WG(^Iq9B9oIf[ydp^uxoi5N3QpXlgJVI)o1A]KdF_1[<O65_?C:n:7$3_UgCeC1
U"mXw,L?=CT#<*bJmfQ.Juc[mFYZkMSWOIvRlVV)nr6W=%7S+NBNNaHa8D^$RuQKq
U"+pQm]aJ+7^(VAY[j2LqE^SiQ$H]DYx?:G#aQFIM6OF\HObM)B1VQ[[9k4s1'IP8
U"7[r$u]ZL(u[6p(sDAI[\V:tLKcp+[u;E/jP<[9_WpTGpt3ZR>yF[P6Wj\_/jRY;
U"<[K';5wp\KQ3q8h^SaQE]1cD2d,O%erpCf)3;,),5J/=Y(3gwHp2Y464y4rb-^R
U"gqhy<mXtx6VH[2v:KP:Kds<eZl-#lri;lO/9B1-DC5,S:0Zh76nwOHtK3qn^elq
U"$LwkrR6<n_XdZ6P,Px?leG'RIw^[XSKCGw4v'jIGVtm/RD.eLX.%SeV:%,d%JKU
U"),9TqDYnA3U#i0XzOXS%%e%Jyf(qDbz5<$yPiA9d&IcE,,3F&&6BO2=:U\4Vgi,
U"EbO6n%D*h<L/W9SI'PDFKPuPe.='N'JM+mSLDJ*j]StUVvCd*kK41=vGB/.'+*]
U"BcJQZunksJ[emA>5Ci<=\j33N,G0op'-y$p_-:yF1Nu0;i_u#jVH&K^gq7VY+j^
U"6M'=_ShdZkD[\Gmj/IQd1Q_p6]Lt45t=,%hUjjNHj/.,>?j=iDBv<Ef:*[Xh9s3
U"6B7XCv2H4d#&YTlN>FX9uYnX'x,up%()9%%'%-%*?XaB/&365&.C%%*nd%%%1%%
U"%%vgfx%lihV%SUUWNf,<>d#^awRSexpcKAFKM]qdkI]8Ja/hx;^QJ&.AN/6BB'X
U"MZJun3NMGC0Q:6wOM];/P<S+3r,,XA)p:\]zjoYZWUai^hl2CMOHDYb>[*J$zKy
U"fqdnlGnxMfKw'ns<5P6?(AZ>YoZT^KkNHtsNHAx+N3gS?-rjbqjbXV'GSA#\2L(
U"Ru9w]jg7T=9q.rE%52W*>E&1.'kT[Lv.oYgXL5N[p)tH$>nkAb)b&F\wd'K>H=/
U"xuQ<0=Wcv)[sUNP4/t\WNG[:5q'M7(4p<oI6tC9nlw=^haW2J'4f3Yrj2RPV>$?
U"W7/l7Q&lusjEa9W-m%(^40Ix-5'bqLo02Zgo(V%fi*RcK5f;Iav/X4-QRlvC\(S
U"(+V:7XMmIxz9S#iS'N7+OY,%U9vwG6as1D13YX/1=Z>L-WduYusI;gYgf*1LJ'J
U"_Ttg2%irzSblC]KJt3C8oV>1+9h*2[1g5L>[L2\o0>qBcj:w\wUByB/d-iyKT?K
U"?3$G^31O8sYx$21v%'?qEyeRu[cWNAbI([euvRFmPZnzyM^lp$VA?OJbz029yNW
U"5TvAqxvuB=MYhHSDPT0TqyxAkMIDg&XEuV3Y2;WfeW?64uo1t#*tAyc\>vdT32F
U"fr.52mQj+BM42G$?h\CPJ[F%)i[A':?.hLH2Jhts.pl9+cZ.M(tYW[^>>vsfy2u
U">fK]svLst#[>=cfjj2:)e^?V7e:3HJN20B%G4z5EaK(2piM(KU]8mNPkvBQwjJl
U"9$8/lMoug)t]vRLF1jkeusN#Ojvt8^*dROWp&&fL-oJZAZ.'S8OklpVSlPeP'9n
U"Dho$)1DVi?vp2LmHXq.3kZN+<n5cW-t(6SRSqa=xcHCx'thGUAe#upO,E6/H^Z'
U"<pP:aR(y\pV:nN4[.qvk(-%LE2)Jb0c6IPVp<7;EN6]<_Y%s'r%+\jb:0zXGpAM
U")o4D,b_%_\MZXF]b;HysLHw#xi=*[>lru.,k-EpFu6*PbQm_8:hjjQEV4>wtJ\W
U";IhCL(TfF_5AV(X+sm*kynAYH'GT2zXi)''-b>%vW6okaw2b)aW<&'AUyFD[39X
U"JPQfS8ML;-%OBq=]['oD-X&KGc37)#DEY($[g;hrdQ'.$_VG[oeQfdOW+:FJ>^^
U"36GN\u\T?V(cebmUI-P^/rrQniKFk^juLa$c'dSz'aOFZ%s*XCzUZZsmCC*+Tq_
U"t\;aY'W>/\iS7q69LNOkxa4gk'914+/at'q)n1FUZf0mkzRW?JqLr>T%QWz?;94
U"Z-Fa%]biGLT(n5B*b&b)m%1NN4nF3-E)z*>s7h4poo:QX]Q5,PAjnPL[6\?vD)y
U"$FPJ>btz=oF^*0\n+,jewlGrrD^k0u=M,'Fk:,<62Q8#UBO.#gU>D)Duu)U(+uX
U"J58(87[Y$DiMchnh1gyi6_4A.dlQb92q#^[ZIr2F7ydLD:Z_nfLB_R5-v9[p.xx
U"LL&J'\YWAg^U1.C4a/dWO+;DC,+VeFW_t/[r-E^an[Zu/mf3'p]*a\c,36]0UC%
U"c^UtC39YOIG-?Z.:.m<r;D2on'\TMnuRHNoMK:bDOJ]b=5$WFlGXlg5P)SpYq-I
U"XQ)uBGBRc(G?lr8cEd)rhN;$4p.56u%Qi$AXU[oQA\TdKlu$8$pY>iD>lYk>h*m
U"*AEoQaGCXkuukX#j*FkOTM_d$#&ILoTVm#>_z7&lDhJU>TbG2w%b:ZOi5&n*^%Y
U"Mm$a*:J#^UKK3ZJK[9sPudnoFY/qQ,k,KlnI;YG&N)D,?('Lv1B7M+.U9RXsq1?
U"$9L(sKuk(/$o=4t])_4U8SaP5F4]NgfR1+K'f0R[Fza5<uU^o_&RN,_Tt,ZFwwc
U"T&[D32Ik/PAVqm7=pp.VKa7^DDetk2Qs?%iguQT<&5DmG<2S5kf>,doRPNe'dF3
U"Ps[JoME=Fr6DK&Sl2X(&g]%kO=[.]BC1%ua9DR$/q2'U;TeuFX->mhoxjSV:.iX
U"*8.SnX-6G<exXJU*zgK>/CTt2vSaJCWmpMQ6z'[S>x+Dis;WR_Pm1AsKf[PxR[l
U"G)#**K;njBN^'q(CbOFyqh-8h9nK7F3?tcpK%<FtJoxQJY[H#l:Xj,g)2ovRUK,
U"F-?x][7I$$Wji5a-YJYx?_:LHp/?^FF4KDXf,LXCyHQ&&(,tan5vt>P/QNF54iZ
U",22Ecpa?g>LCd?rvc-*\CEa&]UX/_tfQDoZNn>4-T_d;T*MKmanx<aEw;4-</*#
U"Nf(ip3=nhvkZnk#&95D'T<Xvs?i.E4'i%eeg7=rK<)j>LWoTi<O1>^zh?I.Xi+]
U"Q&n4'p<G\ngZ&nh+%'HHX^h:H$g1L2:PqIJmvFm[x'0-Q3R86/$1IIvylDM]n%a
U"irf03V)rjSN;2XPmEl^*8\(2>cu>Yio>Yi>+Yi#Za2es<]XeRXOuBm&es\u4jw0
U"lPn/<NIYn\eDetsgR#6CgpYDq1DfV'vd4HSxPh1'z6bB[uQgR,P=UvO3+H:=(T&
U"[9qA&V-kO,g1Pj2'g6DBHu0&(uCh>%P:40:Ie7AI4*=X.0IEhRVud*>RPT3?1+$
U"F[i1tx;K.n=*D5ssq2k[6sFd.s\Vs>=_-Nkt'9=\dGxK1-_O9X<o:=n_0[6q<%f
U",'N3*_5(Hgi4bIl5(v5^_T#4N#wk&\=^L;1ofRXf4i/XBR;eZN-EP$5WmVGmk.M
U"l+jtLfL?lsmp6J*&6IJq8VXAz<NoG)F'ta.0YfCa.yS%,40iQ&ZP>O\oaG8xqQW
U"/gsq$?v;l49mu&CkF)3d1Rp(hLwehIQr7WU/qk,bW7Vdmi2.Zq)i*'8kXGVgZ,'
U"4&.Cle&s2i=K02Gbi+nAShJcXHBV\pRnPCL(Hz.Yg\f5Sd3u6=-I),?bX*z0=A1
U"lFW=x;0-6P<31m5i/T._H#I9lo+7/QqgE&8UffbZ92yy3-580]rCfsw)puT(M%r
U"i=/+?pvQ21,fEUK;A[*?_fJ,/cu/nfso63I[c-LOC]^Ir>W$rw<SNp?Q);Al=.V
U"q#3T8*hTva&&Gq'MQN/FV$dB?IDPZPT98nA#neYesb(hnk/%8G$n2bN]IN<ReV)
U"k/-W.t2Az>^\0E>*)&[LVLf4gC>bcT_X7+Zq8s3W-0j:mdh&zN&E^57OAi_$C<&
U"[#$$k72$ACO7,ul'f0?LCPUl*equpSe;;^-5FR'1Z_#4S#<3uE=k9$;6',E/)<<
U"9q-n_m.EybVlFYP=Njc8O:=H[^MLA#($(b6:8&-kiF>9b61_,BU-]ZC=T5s;3u^
U"'sOj6Vmd:%]u>206wb[S'.7;W1/SPQaq<75#a5?TH/ORHl%1C3uH1$GX(IRgaCt
END SUB
SUB V2
U"L?1V55ED/IPafM,S0gkq?=P(M26QXf[&E+;40cXv*akFx;7;e5qp+(*FYHNOOmN
U"qUW)8*6f2)$oq',L7FwAq-NZ<ABaTNQ$ZsX;WBDJxi&C2[/kTr_%6HV38,UnI&/
U"tgQ;<41o0h(h.%0-Wb[7_uCJ/rm1:$p7KHhG2XLA#Wk/\d\=?s];JuFq_f)[bZ*
U"L6<-Y;aVoS0cY'UGh=/GFg#)B/6LV(h]JoCvafGM#+lufE')#np\Ct**d<q3Vh(
U"Z%RSXn.+m?oZ#jhvL(=&)&6tY*lMQY)lxk2W[4oM]4Mum3;)Yif3Nh?:wIk>RZ:
U"f2Dnm\Z?wL:aJt%j4/(7P&7ZT<Y7u+HrveRI6Dh01.z^,f0uiZ?$/cSaZH;+N2=
U"9'uF)3*WNB2xdXhy>dS[>Zt^&LC_)Im)h),I[Seut/sJG6Mlo_x^Zf3h(_W4#be
U"F>0p;yIX6Z,f+l)))0c\QT;R7T;RT+;RT;6RXijD%;'IBDQ8ZGw0zzWXRY'Gz)t
U"ukX'\phY,)Jf[ezX:OGlw6mLe-6$^kB5.9v4,lL[yaOr:m2*7gv%^qDymD(</=C
U">oEX)n(P9QsTq6QFcvYi7C;t(Oi22k'E,e0->HlR;+G>>x/Gt5$N2mG0?MR0G/Q
U"PVaU%tF/[e3T,AkE;%/n?ovG\'2bUOmJ'37eic#Op8jXTE_NdnID\Tyrr5PN=IR
U"Xj$(zN/E7C02aqfL*.;1&yf%M/NU1+Q$%-oROI4GED3S=N)rQXQ?JriOl=6TZwK
U"P^PCW:'UlS3+Ec\KEJT*fm]4T<^p#iE45QVJrnj'I,+g*CtQLk5%%m*X&^Rn?0G
U"_&F<4?[]pt3<gvsPa#K$jrU)+\J)KE>4aXf969\XxkkQJ-iTr:fF8$&kh<TwXLN
U"uMvYwst#un_Y]Q:[5]dq;GjI%W*EnVJ,^5A,OYCSY2(<=QeZbl.kJ'Wu)(9bS[g
U")izXS;TU5MAccjVHe6Madc*W5DK(ILnY6RXCTacTGXe<qAnGj-L:qnQOj7M,1IL
U"Y<L^'bmoHR'i%Qa&6>g\Ah(ckt(jIiAdNQbBCqm^j9%*H(Z%606fXYb?poaJWw>
U"-Ei*2Y%_CFg;5^7L^QvkvH6&L_h[oePtnV#o=/fY2w]Hq/D<ZNKS:oCDCI=LYVw
U"vUgH1+pTxLJFLOTj)g^X6[lFXj7)3cu-BbY1egES>P:;qmY4p.VuI+KxD(cLn+h
U"1u%F,RxWtC9l\BWuuR&T0$zRT(oGSy^x2Kd91#FhJ,q&ggDVRsJ1doQDeX%T-7X
U"[7c=U:qsAi'fY#s+7L%h14+VX:IPJJTQmYJg\ab/oWBb-BMOAi%ee].\w4N=#hb
U"xJbBQ&Qarr/j)Pe<5+x/C9[\Gb?/M;hrh+Lpsrf3UIep^<435gqEKqOq%e/9Uc*
U"T\E[,Vd>U3<1JKL>Ln]K#>]$]&1B^7elPf#jW.m8Oh<zXHad9,xI+vGgl>qhL0\
U"_CgF[&ro7[#lWQvo#Kuk-XH;shaxlM?.kLk)\T9HK,BMiD4#Pt=V0;UhR15s/=t
U"&d>fe%lS6K7fwcKa>tnqLfI8pXS-i)FLK8<N;o%].G1r0Q.,DVzaF#-KgyFT\U3
U"+]k'6_2jp17.U]iAI5C5bFaV$NECLA\;pF>=m&L*,22Q;$+?,gB2QgPc/5].:I\
U"t+^l<6*s**YZaZNA</_>7juKJJ[1CffT^Cl;4'mQo=TIjQb(OVK:&^VQq1+cO#u
U">;-)gaR^+FfPw_X9pJ$,/=rCqzT^lGEPGq.a/cg)Q=QQO3=QoaMQq2G3YEW8DHZ
U"7)L&SVU:SQp*-m+UR:C:w.]'*QOVO*7rs-I:K6SYEoe)aaJoAuaP(-/EF8Ukv_t
U"C>)I3WU597hO>o8d8gnkg$uF4fDmi;j>:e#msbfS0Q]^6B]dOv;Zg&6J74HMm<Q
U"5V5+.C4p%ElO4_[lj]qc>$]e8JII?b^5KPUI2:CTgTQ-[QKA=[UQ8sA^/#M?jv6
U"mYdkS*$K#<6lVN><D6$%L.Uj<Jn:RupDL+FQk_/Z:khD+A[9wp2$nEsA<om2Mp0
U"q)M(qlVc4-'R3WN:<A(+\Lx0>dS1drd5SRt>?.,:MgbVd5p(]6JHQGZ+li8ktQ$
U";CO^xsu*OV->OPbfoj&?tjn[J&uTb<5(tNrCnw>ENZKp*MD^jc9OZ$mDq169%Uq
U"R6;-9o%PsS$a<Z^LC-;r(v+Z''nbfpt8rUU^pzKs^L>u7w33QIjed6v&'F#7>Si
U"E(.zb<9HFkk)kznNWteZS&$Z1u(J18UR-(=,Z(Z<RTD;TQL2=nU^*tRog)004&u
U"]CAMG.ZU4\%4kmWKwqkg&YlPY0vKx9ZV>(H/(rW4+WX0.Drfbu7GjjiGDU$znM$
U"^:hW7RJSM6)&+>Lb]S*flfPij[j<X7rA5AF<QKE;?l/tN'n%GMd.;zTcw605PQ$
U"TAqM>yrdWJiS)te^j96b#rT4$vVVJQzn%D68ZKoSQ/S>Rnm8^PG9?oF3mgm^H9F
U"S(TU$6Uq+y*O/2<&[MP]e[]A,hqf]m,B2YavG/o7;Hm?L7Tit8Sie/B.XJ<,J4K
U"mot1X#9<6BLL=(G;W&i%J:^X\73J$mV;BodXL*Np]Z(9TUBUBKE%/=.4ES.E$S.
U"ESn.ESxnNFSTa(&\<+q(>bU>'l(:&'lKi&gf[p$G2+l5n/W;Jo3#VO>0PNO=Ooq
U"L75Q'=E+>\jev9Z&R:56nV9;bG4#_kOGswr7cQ5)MK[4HWV%t]4*+04MKE*DWEB
U"E&?6/]%4vRWHH0+[2uF4Y>yp;g?HO<g'PEfX+^Pfa[0F[0G>F*(l8lX-Oyl*gp\
U"(]]oC3QbUa)MBV%etOdzPE/t0qF$'8S];ObEacM8Zl/*-fxpVSJ+u<[#=+F?]79
U"I#hY&+uT7xr5kSOBGwPG9DQ,>k:FeMR;+ZXol%W/IDM:we4ix2Ns?d(XMj/([hR
U":nd96qA)c'hRZ8i2W*\pzTMyhjq==tZj%U:vQ0JD72].RkCX_W_&uQ(g.8J:%N:
U"&g_rD=u5R;kBOx6T;-wk7mMsnV#63qe5ducfTqtK(#FT6#T<[_sh/j%?NiF2#HE
U"W<uK\Ru<TQdEV?ik7z;UL*p[5mAO4*[W.ji59T,<g-Z;hF3Cu_A$x(^kNqrFJZU
U"w(;X*UGK<7eS(aQbPP3b<ltjQ.npV%V.-.?j+Y2YG29cj9M[nDv=L2qWFj16^YG
U"&-9ja1LYGpJ/l'wKLF;UV00c1Xao24UtiGLK$1uP#MaA4KRPgt4\mI\d7P#kDq/
U";&+1i[icvry-2c7ygb5exJpwU;hsoCmb,4JwkrC[>d&qR;MO'fV1;K,-S\2)[dj
U"13cn;D(hKnbQM\^uDjP;nhTs4^g82G?Hiu-Nm'n]\wEtPLRZrL?l#1Q=MA8G_2-
U"jG=siO?4cTAXAgiX=./$j6Bn$VA.q_m<=Kb\&,MOG%8E6O[bf/.d%LaK/DM'E5H
U"kcp'sz4T4L#1ZbZnQ_U]a_9=xG?S1KPk?$+5(%MBtfZ-\FMWncfc6Y2gS3?u+j%
U"+nvL1&1BG4avJHHX2Igai2Fbe\Pq*T:M1,'\.&hq7Y)qlanN=ZDX_#)%Mb:QDOw
U".,9VFi[M0C+f4vh8=)'1V1LNa1Y,''veEV8[kFF7Sf*?GLNFkMZ4VvfD_pv(Z69
U"c'o?oxi5plENr_ken*o'^Fwuf*u27=T?3ro)-;?.X&Jbr_%%7j6nOu#Bg8=?LQ-
U"3uKgZk(U'F2PsM,V'Y21e<x?rYNdN/kq\_ROKNvv2bI>]raI'de^Paft04/(Xp0
U"/D:GJc8vnP1-f<NM.+6(opP,8L;lh+YXeSYH;EI4V5WSWCWW?C1u%*6-7c:]]eE
U"j9\pP.8c[L'Z=Bng=VNd4FSMM)r+3T2ONLL4G(F-n[(7sTI^2M>MK%(dA2(?*YC
U"]wLf[08jBay4(?T;3*I#Mnf92c34hncP4^.h<0bPA/9C[aCq9g7D\&D.'uN#OJk
U"(dk32TKrAC+D38i]2wH=?mIq=e<?[(=dhtMrpia869>nc>/J&6.[k]X]%fUl2[K
U";ZX]^PYq*[+uLV;b=i/<FR>lw[_ihAvYw%<A,Xx,S=HvI;\.dsV(zA?J^Nla'g^
U"GA3sr+)6B24oqf=N_rUh-_Bi,_.E$6Q2G'G'2b)^7pkT9Ijc#6mkW)$O;6W\[al
U".68-%AY??&XpkFr>'1e_ehiW_Gw<n3\(H$Q024tU;r\IDuh1fMiYTDYYBqp1=Fe
U"ZjF64vU_]cKxDq+oV<pk<3Nkllv#yn3,:o4,h7#$DjD$VSgE1;u?;*CFhG&0i-_
U"]a0+LB;>V*^Z\?anP8])<36bM8C;g5/(a,;dd3[6Oq_<YBLMCRD[sOcKa-^XmV+
U"[.m<2;NPdtI.-^;?7B:T84EjUIPF#4\CnT==6rO;P7ih,e\l7fE2#bCCM]Wxg5#
U"D(7UKJ;yaTtV(Of?XdVS&oAc,WuodqA;ko28/:\[0M(F;eMV%Rjt81DspIN2_'y
U"\axm-JVz:xNJ9OfM4b>&49Dc?k,%=%N.x;W'BvP9laWzd.Anoe-YbY=F?xVXJM+
U"kx>UmQ(1;>6t9\)pyHIlLGdH^ydSfDXbdu[FMgv7,H'pLvAkAmImA[W3#:kyDe=
U"?fW-kGoyturv?o5&s\vCZ+n)aANh,Nh\8z8t'W'FiW-D#(x*a;KbE+9)<[Fp#UZ
U"0MdS$A1J]A9o<8ZtIX?IGRda7xcO92>]M7U2k9qtT'^>xSsJ\IIZ00Mjg>Tm#I&
U"tviI2M<-N*.2M$CdpL;pvd5O26M;F<giwZ^?5DDmt.3((tX8inAxKH*oS./8Ww'
U"c><LN5AbRI).'>vUY4Uae.B,/?T$U;sQ>r2:zAZRjA6>:tZ6?VD-rvR&fM1yX=:
U"t;CXepU=sLKbo3]61tS*iJ$C5MPMezI,cJ4>ImNZLGjWIO$oXgPPXN)^D*f95o/
U"f.Dh6m>si1=<Ndkj(hBEPj.l.2u1+W*w:CHa>WbAg/r[OG?Yh<1-6MGf1S;eSMf
U"g,]66g)7-B'8aej_QnUG7YJ:<Qu)d#WPlmrAP8/g0sM,v_A\+GfqRhtW?gQtO.A
U"rKfK,Zz11unJddnpV^H/2sQB-7:ieYK[NJP=o;GimmY_7QCn?3mgQ\uBB6&J0T2
U"DKpwpg?NTqZWX:m6wkD:nM4(jM&45.h(Fw*EPz5P6X<-:D)&mqlv7LB_D>*o+\&
U"kxi>T1btgBOu%]9xc?ihVell^,lDt8?je_K)X=Hxl_T$^fk$0pgthQNzjlwYVcE
U"lY1+ovxxvVp)\mZ':4b'0q?N2?=;8TM+;3:OvP?[y?Z=2o/$7ATKcI0Jawf'l%f
U"BS+UZnqn&A2obJ\prXlQsr5f*'XslN,*ld>C/z)VYn1HfG?*PLZ>KX7[bKaWopZ
U"HUYNd&XBb:WH%/PC0T0o?W8AGjC.t6iJqBHW(5%&[G(:c-b'Xk-o8X+iMEp?I*n
U"V_e0m/ii5%mF_ktq:/P*#?AYg8b?JUq4,ZF[.SsH0%[,,+]\Pmof;1dt$R=Ub/9
U"st9*wIl1=g#[f.]q=O^(0LOIFjH9(a+(]S0VGIGy.L49/P9Spd\z.0MrSDpL\e/
U"plfyP_g/S;*F??g-eZ32xh/]e/n^(<m#&ZeXZ8U$+fpsRz:,]Ycdn6qEU+mmmS<
U"YgB(qZDC4adN?pnWqY*Zr^9rH^.Jt_+_+eCX4lZIS?W\;xAVL2F4ZgnqfU1zXV6
U"U[FKe\]*jR,8_8cQ>U%7n=WUYT.3JvDY$,C)nm37QzM-o<L3gN?:2\3'G]S?3qS
U"tbTu'im4;03)ESzkch%DmJ$I'L9Cm\0+P6s?9KN1DAiS$a90'b*Ss--UV[=Kn82
U"f)b?Dr7BjdIf3uaQmSpG+jpl^0R(^2+r#:#w/4_mIhA])6dFpQ9BpX:fVl.bq2M
U"CXHlo%B(jWbrA4R;v_)X:JLd*sWw*LL-Q)B7%If3qMv%oR01\p<;lI,4)lR\?H>
U"e\42N*n_U(F2K4FY*spxE(L(VlN.J]QVC57<sIkOCVwVAdDsd3\cn,vDHvDa<Vi
U"NRvNu3^n*$mSwG'vYpJKt8B;kpbzIJ/q(mxj=plnY,Db$*Uj'vS1I_[V0\fw.T6
U"4nFVq'&<tguB-KbP1'dp+bS07P%oiw7I\nT$GZ$t%*X7B)J$3Ca_3WkL+5aj$D(
U"i2)3e5:[gYgDD;7>H%AJK#>2<8futjT2=t2mfS\^Q]O1ws5fKZZYm):6$[=:lYQ
U"FPP[-I[8.,B$nL(n]pTk>x(.$fv\Z\oTboX&V\s?du\)[J:kBT)RNM.c7m41HAg
U"AiFoR[+Q92-$T54Dttxv5ZulPAHbHE=bvxa;il^(Vh2R/vgLPewu8&An*pAnXh1
U"Zvq%xe;28W'F.6*,quFO)zVq*ljLdQ.8sV6KU;le<d$fW/.;2$iSV+dwMu^Q4dm
U"?qdvk#(;DN;aGc<$9$=DcE\Pm15O%dEmIGHZu0^DcD0d<R8Xv8W[fI)[e0.>IUV
U"&z9nZTAjvAlqFW[pufCJ.?'Qg\A5p^ig2I(:]W>xbv(<Qj8o5BV\P*MH0o;0FAn
U"qKh?,Qhvtg>1:lgu)j&1Sr%S'.'<Z,Px(u%p&'9%%9%'[%-%\\OaBD/\6J0[)%%
U"*%-%%.%%%%%%%%%&%%E%%%%%%%%%nsy%wtSy&'yup%&'9%%9%'%I-%/TmaBT./U
U"Oy=R%%u.%%%1%%%%%%%%%&%%E%%%%W)%%%vgfx%lihV%SUUV%up&'%9%9%%'%-%
U"*?XaB/&365&.C%%*nd%%%1%%%%%%%%%&%E%%%%+B%%%vg%fxli%hVSU%UWup%*+
U"%%%%%(%.(%z%.%%^$%%%%%
END SUB
V2
CLOSE:IF S=206AND 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
