'=========================================================================== ' Subject: DEFENDER CLONE Date: 04-28-95 (00:00) ' Author: Tim Truman Code: QB, QBasic, PDS ' Origin: x2ftp.oulu.fi Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DEFENDER.ZIP",4^6:Z&=23352:?STRING$(50,177); U"%up()%9%%%#-%.[#fEj,P/9G%[%%qD%&%1%%%%ij%kjsi%jwSgRfxeLLp4WKZSk$*4CV U"0t1o3xt2hi#/r&Jc+r_j?dcqBKgC>bg6JJox3wB/<7^0,aI2lZkDaK?5)3mK4\8 U"UHp^Ntv*m0U[xY6acTHDCgg0kH1M8>$n(>Fhk&,3; U":X\%N:rb%Q&ihCV&NRgK,8)If.aF0A]_f9w70J,EA[.T1_&b,bJLmrXS*rRrXVF U"+V>Ha&kM3bVo-e9a/tY+7rdGT$q1_hVX^t:&JDS]kZJV,ia#anG.9RUG)tTeUwA U"95T5$p#sS&z3N_VsKd_A#7JZMC*&#Pn=H5nfB%WF+R=dcFbOx2-dEO^#vYA=NIW U"JPdGZQl%eX00.A7a5,=.W)-vDr(5TYC7Jv7;^MjK.4eZ;C.V3y+YPW?0De6zleI U"mRJUmCBb:b*]f5+TWv(WzScVYajf6ce;C$?#rbe3[yf0Uy\kg*Ai$u.]BLFe04M U"3GwM.DrWpe)^Sn9hT(g=)=%iD,8]N70LJbM:LR?8Md04do&1lE*HiatM\1/WM/Z U"S#UsriP$?2oghbc?76k[_h4Bqz5N\+d*FZIa*C2Cj#^^azR)QZP&rm'tl]N],8B U"p(EH,Bb4?.]NJNT2g[+B]SGN U"F1<8kV<>dso5Qgl,A(kLsCBFmmWJ#o.l/Da\INBN0o<3R:7(JBbkRo0r(gZv78s U"8,*-3sE#/VFH1&q*hx2QbHo+XEp/'PdLjheV4V_5>Y+UngK#C3QxqR''F72k&/? U"=RkUK,Z?9T>59qJ(?OP6T+kJX>nA:Im/l7bn=gl+[f>PF_StiAtO&:u:8[\2SLE U"fc(cC]^0/:eJYj-lS=UXz?3AMIDHJ4 U"lgRMkr]geVxc4jcHkE_ U"0NJ1P4RCaI;+>Epi'%W,0[%5+JT74++'\EnA+V>PU.rMg6E#qV2g_Z%EGvW:3O2]\Gv&GhBb7+'kGPX U"%9GkF&i+>zMTY9c]lzjt-_LG0E#4(&4')',V'?9#j:?#+2WBi//w/Cacp*/#7HR U"4>i_qy#/)I8:/aYg)Pxe&)/ZHXKp1\GNEbTLL:7uW6=w2OuHimNxS7NiK3G0ezO U"UD?aRt^E[QG3-g(QG)&5lJK?]?4/1G&Vy/[ETO=&(x?i-rM(8+iZHzb,'=B.E2b U"jKOFZ;%6ivf(wItx^u68?T:mJe38KiS6+UR+Ueh*$sr<2a1=ghZ.z/[.J*LG78m U"QBQAW0u\m%GQ8JKO*%%(c*?q^/G^r)42Z9^>L-8)ZI:*,Q>s#ul;<,'3y>DEIv$ U"km:yC,bG<4>mm'D?H1$pX\sII)Wav5#Vo+reWoDxKDT&fu]o\BQFi[+m0:UZaO6 U"(,3(G1_0Nx3;$?z3u;*cx+8z:tFw5.WFbN4pjFOlXL/ggGjV\UTZ2b9Eqb3t'GeBlPR/>+21U+akb5 U"u]_eXWFc2:BUoV6V6,YPW-49=Nr,o)+[pUy3N%*s6D;LO.tkK;?RzjV-#U(A2/F U"eg6?gMHwtHfuJD&=yV;%'h;V)mc1>bO5.mSwvYTE](=K9]XkM-xtz8F%RgKUNrA U"oUgS;N(=U)/i$Wzh]Z''dR5)H9QT[Te=4h(K9&uzAH[)&8?9qJtf,ei%OH1260iJ\(s7'qChUlV1i1/,PS2eJw>lSDdY,aZN>LsS U"ceKO:L#OR18Iq=ipsch_J[)CJiRnt0wP.4ND&8'YA9,Z/.5Z=.2\404%n_#E&F& U"Pgj#6/\X(GnO(cnZRlm2XTC+[AW'W[8(22MjCJzV[#1\LfV6&8+luL_Ut,u;-ZR U"Rik6U#8aI60^2WICfj9DXk,b1%im]kO2[#nW8zpQUocolBrZQ\:-vZup5^8YUTd U"4T_C;?]Z1Q8hx+1'lNqg_AiG0VnU<:HKg_z0U-eH.f_(+dN*%G^H9y?)V%]y]^x U"=lZRk[+?%egcm3T2-]i:=%Yn=3TUL.XOW(EdS+fljD;l;ja'N[VjM.kB626X,Rq U"7^BGKJ6yU<\bRkCBFx)DE4>3%IsY'b($SrFAXL837WRajOANt#U6c;K+1r7-D99 U"LR^n_B'Cm_sCw'$fq4O1Bd'Idg2a.b*Ah**(D3cRoQ[>[ucZQimST;l/$;Chk(m U"h8^\jKJo(vX+o)\b]tVbW.PJ[MhS&(Ut=/tDErt+P)GLK/tdq'4WRoN$kblcciu U"Zb\>vsF21uu\iPhoBVRS.gYd1^?c>StFJg:FM4C3l.E+E$^A,Mkgon(urj;;,D< U"/e00r:0L^iF]V]]CElixHJ%jnUvUS6]5n%J0/j)490XVPZ6_&koU%\M;*ZUf#.5 U"c0-=-AChTp;GKVgM\A^n'7rQMrZbga;:.UF;:N1Ho?n1,1\nn;J3.]=QaIAjc[;RC+PiY=SGNcaEm_Q*K5>&[?+&L4A9jv?B[^I6*2 U"J[8AIQkbbAlh-NqQ1X0ih6*oG57RQvJat0r5W,/jAhhv5j=lhqC''[,NEB-5Z=M U"gD+.Vdal-U2]%[twS98NF;Xvg&t9#yh^N(Ttb-llNmH.m\$UC8,5PagEDUhJV>ur4P-KfHn\/('L%RQ84cpATZ%]rW_LsgvY'<)kD8(O)'oq,q U"+)wa+##6g4$XQ??x0R-hj9qEbvi3,[RZgP*/ihZBKgC$bDZ,+q?:4uGD4cg#fU5 U"Gg7te\?kgW2zE&xQIpcUY71HW'oRQ*qZcB%Dcm#41o\IH?sUnvvwEc7x*-kzC4< U"TjQkv/cC(F6.z1bcJ9iIUQY]omrmkkf;wmiAZNB/n'iD]SanpZAPUVU3 U"q6t8IgGXNH2c^'m(6%DIGX5\s9FJ^4V3N4KU81mJU&R?_L24(xx[1,dJ:Os U"(K.GZanpC,QK>wV4CP#*&tTAMu4dEBrEz7g0V24Vi2PzL/V,(ob(?'Gjb.V/*^R U".CqjNXU/5f<%dlh=ls:pmLcui.d^]c_huRVK=cFYuqifgP4vSv;%A_XaW$VTjdP U"*VE$t)L%]J-qa(2L%Z:n;KFpjL/kCj\z#lTJC$a] U"AjO#EPhJm;1j U"b?R4''=D]][&.\C3g*\kdjr\GIZj>ktER7Dbh3ID:ZV^^mUN;)vK2Ks6-asG[Na U"dIF([/?15>S(NeFc+\&RgR(0NK99ismi$a=/0mX*-T[sVIdEsMqg/nj0U(D:E\6 U"+Up>&y^f51hG\OWLt;?mO,#r_X;uv.pdxPupIQPUdUCk8Oj:LJ3^s#]4Bp'/t*W U"Y>aN:Y04h]m9>a1Ox3A$:Xw5pl5k*E/XHB?yCjA73l>Nmm023mmpZu1GaPWi[iY U"V[bq$\u^:'b0%RsV7H\)FE'&qPcw)D\1H2+9OpKi&RAbn&RAbxYR)kVD>.iR4A6w U"++^srYuAbs.VZVcv)j'ACMyn9>]oXZAKb09_NLv:_\fuEt]HvEt%tyEiM9_P7e% U"p;eclY8'j7/kf,f:k/-]9vEe,xP%),nYvmELWB&?2L#2Tmod7sUxbgxNka$VP(44]i5n2Xx_tB U"+HfJ^R$r%G1O#^52BJ\8::u0T0pPEp-M&><>8X#ef)nt[XTpbIB6_,zZHHVTj%u U"APUTpbLSWf'z;lZ6VLfHTTjeZAlpE8$NkrioE.;p;HSW$'W5]]*HWO?]ol,L>5Q U"qHXQ.LOCStb/HMn3:M^;.;,D]xYpH/wr):dQU&sUliU,k;UFXoE8Vimc5V8rI*H U"b>a$*Z(YA0'LS(g-J)3sWFC1Vtqh#Fwm/U'rzIyFk+t;DAb2/JFjqMQ U"v:i+ghsemB2RFkMJs.*F%-JyMpo>t^<#9wU^*?AiH-Ihle\YSWOC*u U">>*&6pIA-rq9lCdvO9/Zia[dCj5%QC)wMO=fG$w-L)(Y71l,F U"<\OU6E=;QRs:$kk;+6&[^TqqitA+c%<7J.WD5z;kLY3DWz5]kCfZDp3WM:FGC-i#4B(;8PI\&Z.r_jbW)P:,w$C&mkypCS>J U"VK3KZV5^(N(R8DjP>=jUWL%.SVTkDZRJXV?3-N/t7NP2Z%6ZXuk\]1/sKgm/ffo U"8J\4bK(#ci\Jld$$Jy3f%*DSH#p-ha&uR_sQEkGV'pn?'RIk$5E_TjP^D7D0-[j U"Kg6S),*QS59-2cb$ci?6In(SY:.)+Fg?J(;=H>(nAWzXLaW%Wv U"XG%Deszawsg)'2;PoX)KofVs4$mMZbZv?kzle]9r2Pv395]eOl$VWQ8l+jCU)v7I342ojP:>&HMBBV=tV U"6';abJEi16v_g).KGK]]sz=43[%QkT'N-Gr)tF1#b'N0hM$O.X_]PUCJ#P60#g8 U"/JVo60JejcSU>hI/8q*9kZ=>+:YgO/G+MY'f2gQqe8%-=;%>TCpP55WObRu2#sc U"GPPY?%m4RO1nwfK28s9lk;fa6?PLm4^[gj1PB:BCHMZ=t5%G$(;y5SQ_bI'$kK: U"Ra33$Rnq(^q=3sagk'Vr$VCHLmr\S_S=i[7coXs8BZOr*='thksCxVAo$+ISTG; U"l2)HrC+9m3-l+GMB9&?U;BT5:eoo+3e%9+'1%&5&Y>%[s);DY*NBh7+PcIa U"2N)0M0XZ)3U+#LSe#D0M)rhigm+f)U'Y:qfi;l)6s\kUri#_R U"PhrMzm.RW36O[fI,rcyethIU_$ U"6PC=o^$#]m/j$c%mY8GDc:&u.cvT?N(t:byMqob7V2-N&x.#u_dK(cp2:z U"iV7Y+k+EN*V.GoOH7pa*536B;uJQc=&lOOUI.2Gu7z7t:x6D\C$1c(bI+BBAw6W U"+r5&g[rWT.sPkkaT\VSr=8mp5X$:rgaK5Z-\fqQOO25-[6UT-V1$ayRKDRqHC2l U"e,VBi[<&9_vZVL)7iWHLLS]nc2O$:hC&ma6m3=^T#jyg]2G.bXnrrrMdH4k_GhC U"z9?lg.2sq64V5E8M_CH-kXcN+r].Jf[efXnPgeeLJLEkO6MRq&sMe38+-*NR;tu U"MbzdiDSHFtFKJ:3[lb#gL5Bfnc0''MQWl^TH+l'*>jw*uSESezp_LZ<78?kFQO5yl*,s(*T0q:2f*zTWjHlU\.bQMobEPcvQNq]lu7vaf.'M(iKJ_>\6>Ho U"c;jq_g'G.dY*fgY,jUYZf#3T'xXNO8\\um?X%c_)M/.kB;Irnd3\pdqXUcBp]GV U"LMho1O_tklj6ULsgi>)c3LgA\qTF6,Yh:)ut+/rLgL(UOdIff0Z#BH)N_TT[Rfu U"Fr('mjjURAX*UmU9[)Lh#tukD<$NY3xrDv\P8/[Mjcsl;/?OF=RsPO8Ym;'qKT? U"Wam^4N0Rm=WkUK-V3y;82-O([h1^n=6=E(:JvR1YgdK.(+y[#>UylWBOZ91qUeJ U"(=N8R::kVwJXZPC%RY_U3EEo(byV]vXU+T5_mO=R,,-tf,[mN-OC\O/*&b5H8L7 U";1\?U/v_5y7NQbkS]mB;F^pLvmj%J8=&Lzla9D$#iR)ccUn59*RkCu^D:e;8/f. U".RE^X#FRlXL[%e>\8N^s,E>uQOx5Y&t:4IS/wD8u\lEb.H^;uP7FtU(_b);ms:5()k7c=CjOr7/#q34TRFb9u$Jlibd U"Raf&)dy2*Qf)zGn^[::/u#;\TRW,D+e2=HDAia^_(z7J4$myEkY83AAL8TD;#s0 U"-5EXI;ULHkiTMp;Z_KlUm3^IW6(\$UKrtcc\\RImLoCMPK4h%gfbBxgngm01D)9 U"er93kWgea%C;NR(6UXW%/W_F5?$%W3_f>J9p)Op>[cKhgw1O*/itZQ[A,vrPq9B U"'eII4v*p8W80)*UR);'2OQqVF2/PFLQ9<56Or&rO&rt7Vc.f3U9(OvDjmtfQgf\ U"Ym-AF+-bia*0_X?[7aCSm:f;#,rI.qRv]4(xxC.AV?.&]AmSo1:o939Ny,Hh[8% U"r%NkMIWY;46J34w.xAPXckVZ.>Pl6DDvR9DE_)FxQ8?j>2d<+kI66?934V%LM1,,+v,l^O\YkdL+(SXRZ4j-m7SJ\OT+*w%#L U"50h+aJ9kQg3-zCY[26f8sWeeUDh:h2WZ74,J)y8?JNQkc?+OuYm$53pwg;=KdJK\qV9,O4sw]bc&?nyi;2;9,^]7?o_y:PEN U"O5:;&>EDy1nV5Fs7]EpWPGvSvmPrT4mP.2za*O.y(u U"pmKpa_fW8o)h4_'xcWd;v4-=ir;DIZuPP41+I9l1p+)Nvn&ANqMfi U"n<5xh?,43P8u264CQSnZu*RR0WVe4)Ri/JGl U"A35z%BHtALLWj;,id+f]8-,$$6,Dl20R+I,t9/3N&5QM7Hy.%B^YNcM+p2h\T$^xY(,NV72.rJl+e;]*OZ U"HjecgSw6g1iL5HD?O0DhG2FY]B+6>e>JHuSN)[ U"b1^)THa)APtAhFtAbE;c6Dp54?JrWd2t<_iV75[(9LK]+\Tpy[ubrj]+.t%i._02/plag<9-q^lt8v15a?OX9HwUr[ak\ou* U"?UHOgJCnp$gL#)Yw3RiuQok6AH+lt'CfP0Wl^:f>8'CLyF__1 U"];_t:7/Kjc#)eHkC&RY1kO6Fgh#>W$BQ;/b)GFiF[A4=j3Mm3('X':Nr[v7qC>m U"9G5;hSR<>8(WTBkjoD>s'I$T;V^M\z(W;b(ieTG>rlh^s=nRukZH*)3eaw.WneVVr2raDaOi0/mpP5L]3J^aantaCb\L46Bt/1+'CgSk U"[Ky4OlwUX-]d8=ujT4ZjZe*p$C[SD)b%ILV0.I?])F2tTHG[o2aWjuWg^1Zv U"3ihr14ixetg?-ZDwNV=B9'w1i>3)-p6uKUEA<>)o%ojEGQQ+kLXb/YjIuV/ClCs U"X+Mn%2iP($TJD.1JLQ,n[VjZ^sWQdAaCOg:,8G_1JEjv1.p[j*.yig9C16$db31I1i;XURVpT0j-sWL[%L9SlEM U"v#\^JYCe/Ky<\Bx=G+N%W=[.6a,A.rwdliD?[F,pRO6U.^>OW3>[I'DP/2kV^=] U"*b&,Ci5WPj(X:Yby1G^Yk1(Cms%%1Xo<\vNASfQ;2XbwoQ/4SUmMc0DA8Q1,a1L U"^NE2=d-D0UZ(:UTuTD5 U"hr&=#1o9MP$P]mX?.Nc9paikdqh?-Qp]vdqMJ2;/A%ZTEk_aKrSyA[b0'8UU/u9 U"40.Z=zTB?W;(3pCQJMCYeD.w4VO U"qq?$QDZN0lMSr7$JR3H)z>;7m0y&$Q3G,lH&C'gwC*%=/] U"?6*$QKtiD=x&,2LS,oH4sFw,A##(3lQeyKq,=n2&A3Ph7D=-L#/rz/gidH[09;)UY2G;l9gFs9*o9L?FMw.RqhuN6VX>Ymji5P+*T8Q+^o=e6zq: U"I3[dUQM%9zI,3z2ndWR#bd&2QbaxP*G0_y8GWbyb1b?g^(zrZLTCI=knED%+$OkTL1*BE U",s;52#3'wm?(qQ9S6RcF$GS69482ic#em'2O:$cRW,DCbs5[d U"*;c+/MpaHlpNkoNOv-f3/UnM)P>1mJJk7slS*>g[9k0)2t-]'796C.h4%M>R;Kj U"D$3IPPxNd._3 U"MgF28E;06:tiOv/YpmR4c=UnK&Bq&j+<70S$l$-Enh#Smm?cfchL-,CItNFjuqY U"br?;pK,[j#C'S/&gXHora8hc_dhrctwX:H[DZPEt\B>LPl-+cfO>LtLG1;uBYn& U"Xupr$DQL4Zz=pkHnpV)]2cI'g9\vnYZgCXc_SZYGg[[CTK,c?^9lBk?u8Te:IjK U"lc;-)BMMW9']cs6c3v?<#WCWpgiiiQcL9#q<&wrl/SgHp%a8Qx)j0[I3%bK+8S, U"9:N+H7w?%GpA:80NFy?YQmq[C\Ej?u,)]tf6AHqS1WiQx2O$O)JQG;A(HYsc;9c U"rUBhRWoW#VHFSFLV.:s=xMZt'C0$Im)fCzRG55;042XK.Q(Hs/i8/_j-M*O[3:i U"-W/HUO0&x/veB'aYgdc?7?7,$+vve0B.b0DSc)*.O=-&]SG\B.G,n4VGN?H9OF\ U"E%/lNQ7a$E$5.7^Q'^YAt]Bar?,C;3Bjsak+BiKK*719ECS% U"]AFaZv'?$L3l\N^\/$(Ny>;8K4$rQ%EMh-2AM6n,Yko-D5n7K$=OVq)AN)VgFQm U"_1V^oj$U*W_0*[\J3ve:U6aKJ8i+j=D<,&Q\^L\X9WRUq4Dl61W#(N*0?Oy)q;eh,2V,+NGDpgE8l0 U"8ess4LDb^9#>?46'vSLC5?.2RCU*M&pyHO.$#P*G_&)r\74YddUkRet)&,M]bVj U"k=Wfamg[_H]fNi4K[&r7?INi1'JNg6q3rQ.M1veUZLK7hF*[tuOjloD7QA2-50* U"r(gaSA7__W8%4T['FgIWYRRkF[\2H&p6i=aJn8TsmLQ>(v3F':/UAFB68>5OZ7E U"?'=Ixh['a-t[GpUAX%Rg0=OpHV7sfXEXmhlfjQh5%5RmF2rGBL/kRE+;9?aF U"b2#Ady$sXoZzeAJrS;xE]JG*5skF?Pu\Wa&HUFn8y_/pN/yZneYfVY/a5]rcE_6 U"F4NXc849ZA^42[VUPMacTLqK*=GVWeWU:Cals't8xX#xwvZjo(-^9,#>M.\e*_> U"-96<$rad4D>M2>YxDu-ud_9m(#>xRW-qNt[0xg^j#uLhYN2&lqpD&PGtK)[AcD> U"HJlvC(:J/9$x55ieN=>xi7Teh$_3Rw0-)EN3_>'b^Bt5WL=dlM-5rCsW[tKtELQ U"tUoLkP$$SOv/oD*U)X[bVUvCh5AOk,5&wQW>CTWPr&(gu_gK1nXLg<:^A;Z2Eq$ END SUB SUB V2 U"EvRCRFbHQd^:N?l#dHLC9=WaXNUmUUPL&,^;KcdR>J#1l0/bgt>7^bXugPRp8aW U"ethT$^F5J)nHT/K\]Xk^l;=9/PGhbS3:G[kHhme7)D2D:/q-?d;#$Uy1?B\j?[a U"0$CTjkDm.Li(#qjy'Kw^;X'%4c;vS?9dcLuL/S*G=t^;-T,rHg;G=^sGMucrc)& U"(YX)v0KNK\Ip(j/mj&C)s#>M/T6;3di+#s%zSV'[]<]Y?f$:f^d5*j-R&RaMO;) U"0UhC)po9rN3Y9hZx$Lg/$oP=?i#mLQG10\%M$ptmmWs2QR*I%#,6J#PWsa1YkSV U"MBgU#MmO]&$&*r;]#Up9;-80JBKB^QcT)ft?OQcxC*M7ZCc['SU9X1HjgaLfp$^P<;_5;f2qeUkL)sE<>q5K\;&BX4Lb[d7TNlZ7s U"7+9oYUtif\&pQ:hOV*'bdLHU?d1ffBGii0>[4S8\*EY/?]8c/^gM/SS:?=XH740 U"lqo0ZHGvqUETtLvi=J#8u[ZWh_0:hhFlAjNa=%NEN4Vkg3eSbH#8%To+]Xe'2RVL0hTNTi[#Ok\Q$?nrMXoO,c:C?Vi7k]\, U"%GRo[-Es1[T2$9.13?nL3%OqH01vjm)X+AEQP*clHrUrkcqu&OG&YxV(3cm3\ce U":hS^c#IZdscb54J_;cA$57uC]lAv1mzXp/^5XI3qz:kr?kg[xYhsw'n'l U"Ca7y+qV]E'Z$fD)<\XIF^$JyEMW,w42gj5[d3Gc6CF,ZIeBL3$G^*oy6<;OgFii U"nJVZw&#e1[8T&h6sLsjJ>b U"+7)Pt.=OA$hZWfP/8f9%jsS*tAEQzi-cQAP?XpI>RH5XZ$p8:$GKU:3t/3Yf\,G U"^0R.kn_s83A)1TV=Xk3T+TZi4pp>M^q$%qVJUc;JGs=VLdftM?q1hP U"9Q7X8JPnm.799^Q+e_YtgH7)?rfOdZQA,H/iAJoHHKIuCjVPHSN3#]Yf/ose.4PS_Dh(NTG2>$bQ>*Eq6_#7*T] U"d#vRO'.Bz0tvPlEn2>3L_yyx:INp$(Dd4R_#yK,A/8TpL>h0/9PxrIJAgLS-j?. U"QDw38($P-V:[\IWgeTD^aqTf?Apv*wl\TwBwsnua9%/1=ge53Z_CV#Ir?>v6/b3 U"Yw9Xuwmm_;U/,bq^h*?=6/XM? U"=3(ZYC$87b$_%k)RmZ:_1wLvnqu;UTrZvZb[B^b2.B7#=%j+zg;a+&FNJ_Md*ci U"EK*6;R$f2jQ5hKff-PG'XB#TEvG/Q>*S1fKF.t>HCYTpY5b1Gv>SrPr;NVP?J U"'C+(VR2AsNbl:^--#_uCd652K0#1Qk'>T U"rt%C:ASctfk^%PqFz=HtU>o=ek5g>o&BXXtFHq52nH8bR?cQYLQ5i8LjL6xGQ#u U",Y7<>QtA)AHO,1g9.ZxU+-wJY:lX*rUe$)rX*&ud1SCm?fP\gWx;Pc40p,SWU>G U"T6vXm05nHS'$)a*8[+,CQLAG/g\+;pB96>?oJWc.bh\m6e$o,[c]87[cL$;sz2z U"1q?1CIz[]GaQMcp*uhM4'7/0,5)G'1onUGfOm>Tx;Qwc$+vhh>_\o:b;MX3Rw>q U"+5F=.dR+m:LlLj^^1RBlNJp=rr_r<8ulJ,q>w$iv\>Hcc?sqa#T)vH5)r-R#\8+ U"_s.$(LxF+kNqaOw>q?q#i%4ZYn(r8b#j?jMi4a[&R$KZP5qc'DiVcx1qm$SH-dL U"ELe*\#Fqi^O5TuE?;>DT%cH/R&eKE1h^d7DUjikz[6p7Pppfkc U"Zz)s\r.AofYBZDys-=5)C7aPP9fNjy-=m9NPb^IXN%z)>yjzecx7UVI9j(^7>8) U"qu21jDe5V-3Xo8+buTUHDs?)d^OHsL(QXpaX^x-S&%A78\95$WS3Wk^Zu?C;f.R U">6EM.80?(O#lUqKo6Am9_D2V5p?hQ1gFOK6ffV?u:+?VF27qq40W,KX6g:%P5tAvaS9Z#uh9rVMR+F&HeNZW U"ZuKJcsL_?p7fHL1eYIZdz>ZD4[r3jKw&qA,u5v6[%Rnl&*^_lNm2mB>3;Z0s[:x U"jqUIiHC:sG5iE>5Uv4[iU8Mu5?<6]jl-W/Bk2v9X]vLWG7O<6(OVA4a,evc*J5Y U"#aX<=)*%.pX(OA9([.^DJhubdT1VKXYVLF>;wR2+L;2'xYOPb.TV3'KaVR\Nf6- U"fnoB,(W3>.)UJivz?]&+#(tu3.qoI'o:>g&?lk]PNo5qwZ<=zuGtI=[0GhVt:qe U"HH5Wr#)Ms:iZ&5Z&H-g-cI1G3?wRQa=U5L^=V%SAg#h+v.ty;?Qqt2% U"?q6G+4Ny;=ySIC;E>PLIe.x;xPNZ]POYUOev;y+WEo=cEBjf>2&*&1u8vUTg#O' U"eWd$3Dy2uba06QQ>Sx3(G#2b9_v&RB*55_n4v(rnr>9,IQNaq>hrVgH$(X?skzm U"gNFiM01Pw9IpMu[FxAwQ4S/QVe+4MN'=&opgIpidS;>d\/%fX=HeP9)h)CK7ekD U"0zU>IRzggma=AcGiI=Z3(L:ARDKNcJaz21CD\eCPL[ymllRBOEmyr+ofGOQSKb( U"#=fTJu>&(^b+Q0s0SjR?>/UKE?%JzWO$ZTVS;]fgK%xFET(Cb)CpQeK+QPnjXP= U"Fi-gZFCtjes?tkEu='lHVEnOSg*.WYxT7BuqpTRW61$y U"5$d*Xj#hqU9n7L/SM:,Y(Zxm-JRVD1*>cG&nk>^mc[_9'BFf:jiFO%A]PJx=Ek< U"k6,,\r^q[)l:Nc<_\H:By\o1h/w$l%lXfwupPV\u49D,5$)EvXo,j3_BM$3;8P3 U"cI?[,&c/8pY,7MhwCF=KPNCrH&a*z,B4Zw2h:?D^)=WO*]gH5eW4VJJ:\Ob8)56+uVSq U"'fmC^MGD3$oyqNH*u6Pe:Q6\z+I7Aew]9Ao9e?P+&O#g/Lo(^Vb^w9Bi^[\jpY( U"JE5&=uDsi.ieNL2Y.\rR0_^,dbP)RYVine4CkeYgsLj/b4bMA&HNjZ89ASRw&8p U"RK:'UD.MHR0KTL0DyDl.=SSm,]zJ3K]*dt-7Y&Gx5=8A2NsaA3vw;hR^dV4NH'O U"\ahRp22^EDPq&WN(T+$+^2mv8AgqE[/1vAQl?.6$=lf.\V+4$e$HUwLGHi[$%J* U"I&\\]rmqn82VkYIx3?EmR;Gq5^=Fb=/]Lr'10G%st.J5fSfm+)nmdZ)+M[)+(Y$ U"R/wXaJAaMcKY$\TJ4.M;llR U"8)7fM+T5^+8\'s_cd1':GO3cO.G5cpwSfJ4_W1)Oy_?gZb^5g;cDm U"Nb1ReYm>=NwcEjskG0;MBn1C6w.XD/NL*hzo(t'eR9ec9DpO'6]LO?JQVE-G(j- U"o]w1SHUO>kA<2q+crSn9B9k?.,jSnbi-c?TbVLocne%Er(fiBLgK+.4k6.^K;WbWVtd2YLz4RC_eg( U".^PylO'R2=_WT=*Wg.p04*%#>S8=rhz:X.IWfnKnJ.uog?vQTV<%XOlHntrny'n U"YN\LgH%m*$e[5RimQ,#$Fo++S/Gj]BE&8*Md4/E(3rO[3l31.TJ]AJS U"aLlQd*WpMbnAMBI0nS%6r/WL\(.f#G.-)()RPlgHttqikt:aY0T_\CQ_LC$6^1^ U"Gc>Qw:Ef&J[DZ[B#IGIRR57f;i]]#&]Gc[,9*z;WcuO-De1#dk..0 U"[Q%$+#hD&4rUZKZHzNbWE;hF3(r8_iB'?lXn.:A)&ON?ozYTkyQmjar?T;e1T]L1&0 U",?$d.Ocnl\m/Dm>lChCok;p_\Som,,$OJCf8K/L'&_R;9Lbw]x&N= U"cq)0*T+[n(M[p$cjI51G,+=uk4bc.Bgsw=0eJjG42\ggbI,:I=y0zOakqi'4[Sa U"AXyaqnM[\;C6P9D:=8WGJV-]uS61J?9>-X[Rr81#_)n%$-1=L0aC_FW\pB2:Cz39;2-ib(]2C/*?OkAe:o>6..M2 U"P[)G+fVmg2m+zYXBRsY\Om%N#pliq55eq_aL-0brF8# U"6A1O*:/U='E1ll]MB$IIZdEk]%RrPW(pe7TWC$ZeRkqCphJ;+ U"ZH#?#Lr%lH#l?jKU1uW+t$;fX%i#<=:j5)tT%z<;_J+pfhJ/R&58[F5qnhgswk) U"I'G*E^bOGCbSPBhf<7>3#ImVa\:aCUJ2x0ge=\mrX)grahrZt>AZg2yl5t)rt[3 U"cS([.iWllAiqU\7]vV(m?0-I%q\ilqAF1U7'7;c8i17dj?GKFy2CRA3*BGq+S&d U"36Nwmd4asZIu/ZSkXJ2jWLpIUOA*,\o&YjiQ(BZYQ1RY5tbdofY'nNX U"Lat>kOUMr6KeT5>4cWq$%?/[rSO7Tawj& U"^i?^e'+;kQ7v)S,6_f-hWgD94WA5d(sR9BLjFS:oP12#tXXEXBd9Umt<[WAGO:U U"L,UvvkZ8#s(l^e U"3qdH-X^L;\H9\.m3Ot21icGn[p<N.=q0Vmz],in U"w=quFN#DN0^In]'cccoNRp*M6Bh,r\-q_*[,4Fut)DcV(O&4J(:5B4v9IGIXU\N U"PIRJJQrc$ym^eQ#87hg(Mirv5oK&JEPo*[PE>:xK'9zTg_o;E9Y9K0))y5G-C?T U"J#(HZ1=#%qQ%Yt)QODNS6.Nq/UOin9scZX#32X-+%YF5#^^P6F#IWao6BB:s*(76-51(v5#n##HL;XWD U"I7rFxf#6L:s;\cN?e)>1qx,utKk/unNMLf&pXg-3TKIXF./=,J']wX7/JHodN]2Lj.sCXzC;^xC&<+ U"1WMmZD)]FiQwgHZ+(*34O8R.P/4h88q^R\EI3,kEy2$YvTGSL91ba(X*K?Iqh.Qp( U"w3.st#CUmw3/8G,?SYgoTO#3.u>:_$up U"^tFh8.o.?GMF\4&dK\E+LJn*j/D(3^9#&wRcOn?aFDwA3-M&uXI/kGdzz9LX*0C U"LHj$zdOT9_$2&1eSlcovY<<&8O^eup.;8&r7'n'=a U"897%XYD<)njt\C'DEs?_leoGIK9f]p4E4d*:I<'F_2Yj$UK+HA^*+:1+$>z*/&g U"D($tuFN&*etk7pv.4a'0^SK*foj;?P=+VGt3a'=zWh.OFi2/7ZY<$+X=M7qDIu]/_H7C0ZAHFDKJR0h3 U"/i,n1Y_LI(-IY1:JejM,9=0EORt;145(*]p3*_4.j:m)/fE&VqI8, U"NQV.,Ho:C7&)3LDI01^pvWDj/M6pz;o>j:E,vadUscUW([&[5oN>/I;&e;,tv7L U"i8Ej3H:+=/;;>id+>vlB[kIHOvAsiY>Y-]F^P\4RJzsC=>X9%okN>-VmtB[dw&D U"8'1%gROE)<)_rRs[MAS*JK-GXH/)zBnm5rKbdYr%lCobeqVF>vNLVd:$[Ln1gA. U"JM(5o3X]5xcVyU;br5GnY&HDFxmw0?CfG'FO.C?rA8pu7f U"1_IQrBGv]v'Rrn#RFdxJCJ#bdF(jW.XQM*ud5TZ-OoDCpC;U&Mljw\Q]4o<[_y' U"R[k[5xdjS:hZD%Yb#MACAG%Y]]=aCk[V21[CNoeBDqh)eq0p>3vh+DwharL:o]) U"h,q=8rG$WGx=ks#xJreF.E)[/(q29lQJzp$n.g=9)UM/hxn#Nuukgc3k\G(Pjar U"-ou-M&MVjV/6rZ4UYsakDI8wx5aZk4IrTD5-X;dA;lC]\/%zkkHoLHK=K)Y0zgC U"f.pIg4l>Yhi+WDsw;;3?H+qKE>Zx/N%rsu7qUneX8zh'v5L\,oTneHFmhR U"*_C&j1:6:a?,d)D4.COW.]]Md]RGpwjh'=p\-KuOUy)MGU5Q#V,W]=LI:m]S U"=YRZm,nmZC^q>5vk2WGrCekFqeXy=P-cXbVd?3\B\*:b$$p1+W3 U"U[wRQdE-&J\C_k.#uCS2mgkSO/kX>)H&bdpCWL\9fbX8X(j8WYP05v>*/fc(\eE U"(d\/[pB*BTg=hM%Cl9b8MOZ2$G8ry:#f2F]YSSZo]30A6I>-(+)Rz0QRXlZHcD' U"StUBpim\h4s248?,<:,zlMs+AEu2BqZJZ/8Tk6J:hAU7TOarW)6qq3,Fcw U"N.7mWDLCE?$67M78Q?*N:*GGD>xE&I5p/Vi1B(hx\et3ubcr;BvW8B*I3k4OzM0 U"2UO9Ap3&s#FbB$7TRpsn],[1JJ.Qchi%=pK\cEJuZO&d$$h[jcd_scu_/HU[loZ U"8aj,h-.[]s2'gEdTi+X9D*OI_AtW\ZOtY(Ym_3J>rsXlQE]XDWh)^*-F=it-8W7 U"N3R?U6EoA(yc0NMN5+hQY#P&T40M7l'=#RY'r&n4P10Vq_BJXo0\yuTX U"MeBOQiZvf[DTSWhXbP9753]UY6WL>Cz/,Fjy=IF[of[jdgB/?1q**Uf6mFZG=_brxvF)hkvbv3nnNo?CytnAT34)VdZOjx]IbT U"kTPY]EXP0C'T^iW'2[s4?Sh:x%$1Ub_p$mR5Se?Ub5)ev(3R.R]pAHo U"S8O$bZ.b?Fu[AY4%r0j<]IT6C+eHY3?%(v_;//FRfBIr:TrktXB&&BH'cUe4qC& U"%(5W;/,eqvtxq$uKE^yi^h(5V7b.uY#4li'Fa6s^0Jm3MC0c=g#=tX]E1JcMS^6 U"B\8D?6;lgE\R/uTk&E9&,>Dk-qiBQZLI+x0[gb?$Gmd6/KcPOYF67Gfjn+7u43qj$[rRW3)1&^^yt.(TCu)F?Y2n6)82]Q6X%C<)[pd6Vg U"g:9SdS9_J)m$5V8d?Bs-t;d(6LMf[i,B3nZ:QIVcVT*Upq%S&J#[3 U"=3+b%&pM_e+[Tf97f6%2u]O/]Xh9>'81S?WDA3x\LL/Dh\5j[b9bZW$C]UPd$\M U"DxoZ:g5:/F=#E?D:01k$Qg'/D64=(6j>^V:Sm7mL>3..twL]lWt,5y]x1DD6,En U"kK3UcVLj[-4hEQ=m=smB%=o(KlLH%TZp)hMXAl%j.WWN8K#DtP0M?$W5Y9bNqSA]Y&rnsv^QeMr;h0.XJen8#cet.skC4P* U"_49#AUQ(hpQVcNGpQnma#C^b:(jXkx1d\k?49^$2BcQFwN.'a>):]GM3Tg'9q[cB=$QjKelJ U"wh-n:5;mdnq'6wZ^VDzuDph%cH67e:*i'p>$B4oErE6&XS$B0jboJsDffo+c$:] U",Rzqdu,(O*uLoe#(ECX%62bycnNr.2slo'P2?4#SK[9+l]XhsOZM&]GGnbdEZM.3g^1dFg6g>1G]hc.'UdJ0_ U"59V=6$qsugE[v4?*qvb-1P:aL*\XAKiqHW9TPXTWo8:7/ZS8rdOuq_q$(3w6VBP U"[E#iX$<3;uYl4>^w\HlTi$r)Y($pAEr:ZZh4HO;)vct7=uPy]fUE4+I62)[3'5> U"E?F4bc%*>sJLkAYS?yS):;'_h>v2t.]]oPX(*P[U,1'LJ_K;(t<,jbt->cG3,_[g5)kW2$9h& U"sJ4mt_+F(4qlF\oKoiMb$ZoW,1^vpi%zMU\wJ>FAMr^$4w'j4S8wf0?,+\fC4mU U"VING#[EFuG%=#Eqq#ykchsq;(AqT%l38+OJ>lLmY;92Z5vEQd9/tVtoRkv#6ptN U"MJxPo>iMbn*;2Rsws<0a$lv_dL>STHF[9qI_binWj>^2*qL);1A93[xY7 U"5TTlN/?b0e.4>2(0C^)Fd,0vvo=\*Z5zJtwV(*IF_Sc1B)m0kr(]kDPan['#E/I U"Ic*K3_U^4lh_0FlGn[>UlM U"Aj[MoxEdq6=6;cUI[fi U"NgNAw2j8^\J?9_3G%2'KL^dKtr0x%%8gZ.S4G\I8q97S)vscn^w1U.=I&oFMn9: U"Yl2#I4wQPSQ][Oq\<7NFRy]-pBNZ)liJ+CpHAl=(mQ54 U"yv[=R3wPnjpk%\a18J#Ozk6hIK\z4cY>=]ke62be\qC7l$eT6X+1;F;k5D4ZQc2 U"pQKB#W^q-o]_5y=mN$9%1iR\i\k7+I,8wpU3,H/HHun5u1G3l>#&#pOYcG=B4V^(>EilXSqCvfR4 END SUB SUB V3 U"Ov_([A8FKA)i57ZX\2hEY=fnue'vda5jWy==2Yh(0u#,aghji3?'MDq_bjbs*tc U"Z^IUM5CV/>ED;nmnRK/+:zDsl%b((L1>:B7a>hPD-.Eq5MEEHo0hLLc1+eG$ig^ U"W8Kj-A_#_6a/SOUDVncFhkWGH(Mb0Ym=NZr)XLpPJa5Q(3Je)'5+p1rw#NImZRMp->KdI#In*fo4l6&IVriarEUT<%mxk(r9Uom5\pm= U"4Mi6qU%0RwAHIHuRd1YAN?VioFT?nc\h5p?li)7+\hER$Z(nH/\37q,\F>RLud0 U"/gc(8MfhcU>8gkZlR480[HB:E*+'kFQp>V)I_ashQ%?p;GZ;nc<80,5Wb^_gcT- U"q#SBNw5Il:p/eT24%,ScupCy*il1LC0H8dQLE0S&KC^VI[/?9ZQ/VQ03L,7EW,+$z&JFzP4u_diZ59sm[*w_drQ6*t]oLK+bS57rT&Q=aHeTKiRM?w;1x2c3\7pLoE=\^;pUSatte'LhdEZ6r4UI^Bd U"Kv6c-:ElWGz[^fRXO6Od83P&Y[Fhp?TEWObC[F,79Za#d]MEFMRR9a=EuGdkqLT U"Le;$?wu/D_Im>]M:#gLXq'tB$yM;'i6LGFVg9ch=8-3&2CeE>lYrXrDkiaMXht8MqdIW0>A*cnRbj(>So:. U")04XIavGK?l+8qTj&\fBdVC7$vkT+fYC*)3V?r+>,-5WfNG=F+5U_X6$['.Td\: U"qn63A=F_Z6Bgl:IW[)5IH)L^MVoNds6.?iSV'pD:omZs$ U"Wft,_I7xH8I#.ltVR$4+T>H5u*;.:]_bjGb_S;RxqYB/PiOF<3Qp?YV=Jc#1&4# U"Z%37l$Jwm.a-D_swFh9$abHEI'P>Bm4q]'FP5Mt.^1vT/b U"*qBWzMC7I)5r?Z0Dp=SCa6]S5K7S3hlceXDg9R\kHbmfzO<*y:9mqs9*iA'J_WQ U"5p(J)qa8g)bDWpRK+C#$0W8#c(MJq&H?NXY?43cqdb3Tz%x9%qxuce'*QmP_a_h U"lOJ06mU-_UNvEAd[r*872Hlxub9q1(22E?ec16\EJ68u3Hulc%#sDS5^Q7aRtSo U"U?[QeosCHH&j(Z%c5'Wp;gx5gvX1]UxflXUdu2>fIW0lRqE&>$B^OZ7jaK?dgbA U"mhJYDS^1\1=gYJHO#U5?;n8GkqP#GeM,H&&]0ze>gDCNYAh5)_cux8vr/?#UA;H U"b7jK0=5:Tlft[0Qd?F/mQF2J9U)O.FcG4E[p2VUTBu=NNjEu]c]H?m\4;&4Es$> U"*JmFZ(m+A_2#8aDlj-XIFZ/A0g\p1,Yke]\KX<28WD$w((b2gj,+D1T(h8=<0kU U"/8Qi[R3i&[Vay/FV_?i'W+j#D:E=w'g.[gs3dUgcsADS%+5V'n:N_Y/iRl\2P)$ U"0t]6J>B&GWr73[?fY5M'Z0c_EFt6&Wo;?.dE/g<[Pio+//Qr9gP$2u,o>6Lnjb6 U">z(Wf9BWJj_,#nh07k[ZMwf]UF.'nsq4RZ3X:Dec*kQSb6_k%=^*5rghY+YI]'] U"AHtlp:jwU5+a9T_hso[t7ghSK8&mXhnQETBC2jWo*PZ;N5_j'$Ixi%59?B%R#i( U".*]XRmuJ5_%#'v\]CR5DfOCxU+Qp#RO9[_0(f6TX$9flUOvcm997UMbX*c[;DC$9,5GMk&:b U"b5MiKAhXkdfag<.Z,K7eoPXS).Flq0QKVHCBz'*,xM33(\\O2,Zhnc3 U"W.ZD%up()%9%%%7-%PV9%Cur&d7i(%%%,H%%%1%%%%fx%hnnZ&'\SkRsy6h=&'T U"Ud1hl,ueO4E.s[/(l/Zj]tr[->ukJwMN*4Xsn3Lrrl\t)drT)Phu8(\sltrBwrh U"ioJo\Ox6TPz%+ijvDNp9_YxTt2DjpS:Xx=TFvQDcCntvUbXX(P&xkXLacdB5t5qNuHNPe8HZi_t U"d&GP83V&dkxB[\ZtrPMF8x2RkXx6#cUxST5m'QXrGk(4cCSqEP8swHE&r-#o(&t U"QW?PGKP-xkHnY_,TcnLuS:v%hXuC,spYCxQ9q;zIg:XJVX>m6uq3nBewXLW'60e U"FptNSDkIW>:Q3BFEZaea_)(T=tsD*w,tcGE/]6r^Ju,[ob,$]qBNw/-h;tfcZH+ U"H\7lb*qB9RZxV/mi,IXbo'w.[D;sWuQ3Ym4Ze$n>lp0^h-jIoXrf).>GD#HEVU7 U"Hit&HO)*L[G1tFhm0_rmqjZs8\kXQ]U9k*(JOOI3vJ6Ub=Ff,Ld)M^j%cF8w^1D U"5i]jX5YwLZ(Sq#n,qH+s]$P?rTy20A.t:m6]8MXo3CDGqM9/^22m:T3[>)JXZCb U"M38xmU21z,XeY2J/?tYo-uPH&xpcZc96rfFn>Sv+mPfFpyilMxgb6td_>b?UPuE U"rYvmWP:r&&q#Wpc.GwHRvdzjQ\&mu2VhA[MlwlZ63.7pw0b0sH(ClTHPn>T+fry U"_WkU?Rzk69u,HnH_H/C,YipjL>&YaLSI>Vb5ip-+[Y)sfV,e:E6X0HGudJm+]p^Z%lUIu3x\jY,4Ly>EouTr,xfx1zDMjL>g%Gq U"rDp-$u=x#[LG8xe[eJ,NkSNYWp8uFHu U"pburHJoMWpKvAZX_$%V9P-pWf;x:'uTup%&'9%%9%%%#-%.[#fEj,P/9G%[%%qD U"%&%1%%%%%%%%%&%%E%%%%%%%%%ijkj%sijw%Sgfx%up&'%9%9%%%%-%2*TqCE*Q U"),%c%%%%X&%%%/%%%%%%%%%%%E%I%%q%%%%sz.rX'Z%Sksy%up&'%9%9%%%%-%9 U"PV%C0urd7%i(%%%,H%%%1%%%%%%%%%%%E%#%%-&%%%fx%hnnZ&'\Sk%syup%*+% U"%%%%(%7(%%%I%%E)%%%%% END SUB V2 V3 CLOSE:IF S=137AND 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