'=========================================================================== ' Subject: KING ARTHUR'S ESCAPE Date: 06-02-96 (22:55) ' Author: Mike McLean Code: QB, QBasic, PDS ' Origin: libolt@goodnet.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"KING.ZIP",4^6:Z&=14224:?STRING$(50,177); U"%up()%9%%%#-%L$&fDVk?1(l,7%%h<%%%1%%%%hf%xyqj%kfSgRfxf'>,N3vD^I]9[s+Q$eL)( U"z1IrUdNvgoO9?BEmB8//Sr7*dG?NmZGHcVp,T')9m/GtFOWntoo(M6t5\%bov%6 U"gVSet)Xj-uSbTw29\&n==%*0?js='b#J&vS#d%G-'t-(-a9LS=4( U"kI:)o(GV*&xoQ]Q*gxPyeM67O1No8U;9)\TqRoEIb*(00FVHaOng U")[6olB;o:bDgSM3We'#0d.'e%AH2&)#Fh1Yj;vT=%Wq8p2114x]H+5*n U"fdv\Jf7'KH-]Ypaf7R.)i:6j%1w/BUQd/U?Pq2:t+CbjE1,J8*8x))R>WLW8/:< U"j#Y)NHWF#C3*:YZ?j*qO3F1;ewmm_v'dzg1_Ya[_:(1sJw0oQJEdnfQN.O9\zLF U"ueVm)eceOmsZFmJ+4DpZ)q]f-B5 U"2V18p4U7cX=U:pT_G>g*\UG*><&D'To(lYjEF? U"aP\h-.HGn:PR9N.X2Z(,0VX,\GwfP#QPtSG^qc&W4s.$caChv=AJX#+Yjd6HB]< U"[-jz0-9%s7N=?:GPHAPP2?oIqCGI4jApEQq=2:=5%2y_IsNFGeh*oVudVihZq0j U"sAFjgU8,=m4[4WF9^=ZuwjF\H.8)bs6Si>i*Pa'Y$bTn.;0QW;Ur2Usb2xbjGmB U"8v)lphX4M#[*M2G%0OO3P/a%JLdb+Eq06'#=CdFMbHw_(-BwIgS,HgBGT^)UaVtSZJwad_ U"-.aD^;v9XQ:iU-s\GGolLPh7lXxQ)eIR,];[HE#sk&Z^3GXfob+Ga3>*xdKbK4d U"\?=pJ=+[;b40sukgG:QJihm&qp7DS5ralG-u/6)lLa94g,o],AtucLTVZvf$kUR U"<;HVyAS=H04a4Nq-A.FkP1F;ES8O84/>r.pGTlrpXmh%OG3OPPMELR)6ST(/MqL U"=3B6S/?2X=Twef=[:4g2[,G1l5%GE8?6?2YX;.Z]3diC_8)+ri%X2VWi)aEZ;5l U"c[bXg.6R?LJVkZw8_uhL)Xtf:TBGst93L'EZ>7_7EYcWlmio-HI>BD+)&Hg77D. U"A$dq&f8*:QaL>Q9*tKbu(Kh<#'DpJbvJEJk=G4'_=E4>7=1sO73qBrXQUYR-M;f U"F('2Jfo2wsGJ0AvBKYw7*3_C[L[bVB2cLseEJ1Dj$P,%k%)ox5Ch:9 U"R)YJ7^uz=/W4CRDJK5ib?WBCw;12O($HKKxIqm,jK*E.SjFhxT1N$7urqZMlL9] U"5T;QB:Xf;QXX^&TGVQn7J8u6UocP=TzH(J?jWak4*7&/Eog:PfbuWPNBLu[1t(U U"UVqOLFBmGO5-.ASNq2lfg'+^8kE%:Ew,8+*>fFek.%jg^$Qp$W2c,&es=Y,)_#8 U"GC137dLf2WQeZPLj.wwZI?^>q[tcX?v.Gk\2TCNA(K_dZ^B0Lc\h;wHB92.GP3* U"8;u[ReL^Qs,P8t3Tk'&WryWg>jo1u$P?+qI9#.b>2mwjo%JWU318a%[c.%Yp$B5 U"N]mwwk)vqWp'Zik7k;YqUugK-C]O>UWO\nJ=ex4;$8BR7>$rhocuOouTGex.6Di U"ZG4'&ep:\%34Y+O5%Xn.c]kqwFGY6,Yz86mtIKhqX]-HFKVRxZ2glSWv U"DTg(e-]e$RG(&N%oDAa6leZ.+V%/j'EC3?iK-qG4*f=^&9kC63*pQz%%;P,6^^d U"BT9^xetp3G=t]&Cw/rh62m$3o:FQ,uFFZMGMuFr3Q[u]EA^0RddTwu%%7w(DENI U"QTBi<-2rwn$ooP'AylKndeVxQO(uchQ(_Y_fsTf$V6(2x=PukL;Bk)_T_?wCtTX U"X)2N4fy*vazN)c;JrW.jr;,I)I[0e;kR;5ZlXFQGy,u+DqHad(^aqg>Y$;D%'qZ U"4bna,:L,QHCS6OswYi.4hJ[tpY8xEib'P2RpYfSuwXxts,wwdW+zxh6?%_ti93H U"F%=tOuP[,3QWsWlpR$&>LTMK$[f^q=qxF/Yg=(r:px[R**MnW U"[F'Gc%\MGLLQcOuegec2Aebq:ePjO_DFG]4Bpr:8c(PeuvAe?IYw$tw'R0ov^nx U"]$D>8cx7AcJms4l=0cW(](OC(=D*p*1N-i.MG3(8IIQOdf9:*g?Q+ONG7ON1(Qt U"sb4z-6mi>;j'kaF>hq]c>T02JvvbCHEPt/83sJ3?0#T'lOu;FD*F=zJ.WIT*O('#ER*I9zW:;Kok,&c2MAPN>l7L;_bK#Sl+#WDl00gW)Y%(iksBAB]Qwu[ U"UbBuf<)(2pmo,wIQjZcP8^E('w+o)y\k]Woba7YbQ<:tXqkQ&/r/zr%zg$e8uU* U"4/xpw9id6#53g4WGAn:dB:0N7Q6VGM=fn)#mtd67C6%KrYH4mS->03eAhl,bBwi U")bIcvdvb&L9BiEzjI_bUFAOvK4xH6o,gxHa_Wm$cq)L7QT0D6'0[ U"6l*u57TEMCSqRAdSr3s5hlNLXF]t]EF[aq>^)Dz(YHrDqtBPj0;5_]u,(Oqh^-S U"(A6AtFmCffJPB32qBOr4(*JYq\:PbtzOw+9>R1Pr+A>c12p:udpu9#$/We)IL1QXL2ubQB9Sh?Euech-[rKJgIpLifbZo]>]$fwMx:t3S,/%]V42'zXA U"QOCiZi,N^NbN[eXx&'CTod,Dx;2S3w'$.DPbiA/%oePTI:T?Fz6f/_WvD/Yu4s$ U"Bn#7<=?&9(PQFx5V*QfJsmig_Nw'89TVR5g'VtBU\7F2/D/dHeu2bQvuAQ?o>hj U"CB#:i[s.b/vtIEIuh%DsVOi;:kVU2wECM]z1Ft#j6)[.geA.HC/n&_Gm6Ss-)3^ U"y'gDuJb)][%SF;Ms,A7U>sf#Ih_shMuTSdtAD+c$n/hvQ'Od<]?yn,i[i,j+R*\ U"'f[q6++a)^cp>'1AZ;cFVu>(lBnNi8\hVF3wKvRiKG[w_lhL[MGbAAvCsBG9 U"7sjvvf5m6b'fij.)MGlh5e>]yGa&wkh]Q<,FO>V&Tvwxo00wXl=GJ-yLVwlZ&c) U"9cVD:7*;[SNa(/;?jSVpS%Ubip5(cB57>9ar>F[i7Iq9S>7b9L[P1N0q;4zl43V U"Wv0(5XiH0f)fG]-bbx;8&wfQu#fY_t6x?J3LNM*)<8eSDez)1G$-a/PSCS9)Ay[ U"AguV]?:G_V[uu:.':*,o&MPOZSsIXOfs: U"Y;2&TNcHY58;ikJ;%=BPRH%*A(?IP?#'pzfM^;Xj1*(&MN*2$,BtaAljEU7TMB0 U"2Cjdj'1Z7%2PD.?_#-F*-K-)k0r>xfbuiiXN:E\F'-5)#af=2_/-D9EJ5(4$ U"TZ:i2\5&W$6/$Y;8>(Bn:oxb205r8f,.9:/CW];aAM)mUj#nkpKjE>,#CZ^GJ5J U"?7m#VgmO=G]N$PvUon2ZvY%Rr&T*'bNcLA_DJB5r7,S(:&#y+NQ.9fY%#Ol%d?1 U"uEk))M3=F%2GvoERHPA3LkZdMTT'TIHB+'GauW2+Emeif'h>E9AN$Q$35]FjPft U"NQ=d5fC?c6U[GD]bc5%:#/xn3azsJXT:<#ubW&r$%C)E+0Tb)xH1W%)0Gpqk?Jc U"BC?/9Pu+cSpbU0Y>6RCq.6C-J[\kIWxLlt>$Kfo3-Zl4>CZ&qz'OHQ=081otE;# U"bYb>.+'po>UG3eMm;*xNOejV_PuEQUE)d*]oDHG5AHPjOGQ[R.9fYE#jeOrIG:) U"bq-/bj;[=-78EEZR9,k]=OUKP,?eEM]= U"1=iVR:x2^0g_1YSXB[<_Suq,L9iL.-&08p(F2t0f9^3pQ$n8al8).=>s-% U"w)N'&[A:k?Sn$*,w'3&4G.42#K//m2dSSS15_q4)2DMQ)qa#/*\:GVM-:%hS5Voo)a*uT-65\mhcUlFZGHgvl, U"4$q&q((sMc1R,(9H8KbH\j/Q'Gw40S_;Y'>2gJ]dz_c2WLPC U"IIrA,o_7:Wl$j(d><7 U"e*t*:<$e9,sdes[jiOo5M$guH]^*H3(2#e6)0*-I6GKi^wLR5p8(k:4Gr0rPtjF U"^(*AC-Q[7bKHH#4l4a,-Mof5(^gB7(&n:Xv5AzD#[z4C.;rn(qh=>oUo8r_moT, U"IVV(82RSDJI0Cv^>,Mi$W7Le?AkNBH(]]sYcJ;yJdt,B0oimF7<-8NPc2i=FH4b U"B5:dpSTAo<(h)jm4R]8aneAS9TQ'7crdJM1S*&_Gm6Ss-Q:B]9IZ[VqbHo%AsX\ U"9isKmSEhq*/B6g9(VF)SN4[t)MPEZ/PKup2];9+6Qp;SEm:w(HTt-R.6:Z)3 U"prtC1-:t*PS+xDXepsVDsWmg&ADYs1dANfE[WK94ed$c+(dZP4N'+Wu[GKSFON$ U"I^NZVXq3%1+XK%&5)NAQ9fY7%-?*^)FH1A#2;oPM28H%=i+['Dl((GAEj4Q7njL U"=YMf#tSK%3tGr&7Q'qA_Hx;nJBZF+hi-'p8kjF U"5:eH;l3F'a75&xGfp[#6,F#bJDXylI[GJWZP^CA\-e>lCI0OJ+g\S;+EM>PGxn5 U"*e49VJ(^W^.$t]^Een]St3S>rC'C;&d+QdQ<2^cM;C8gId5T;+uH9'GSjmG=5XW U"knX]k+nkQSI+;uFLsBqp1Q5:D/^9J5ck7oOv^>?q.I]#Y/'V2w)C U"NQ90IhVA3rA3==Q.OD;aT3YBXyd6&6iKi=C*wQ-14%hPt60:RCW*Z-e4[1.olj0 U"R+8'l&>zH$e\piL3gwkk]p?j+Fu&0BjKNMg>0%9Ep+I+I&3-^ix/zAk;.4fFs U";3ScEc:fG>V4c)4K]kUk8C\(HA6I3[)3_Gm(6s-%)1;%V#D8eCgn_7*V:&Pgq>y U"Ss7a2,NCBW)wXwEZhdhwp0tNd<5'-^7Y<]X\G=[%he2b:eJ4qP#1:_xlKcwFY8g U"'j)-Z*?f*0Z/+E\F[nfP&54:Ri%lrZ=*/3EQM5zAb5>VgD$i1:2_d&hsB1YS6n_2k*a_T[;6BSpAwq&=lmPYBEbNd] U"m\4'Qw&lk?VsHCB7[ylu7\rct6x[lN#&r&c,-<&s-w).N'S#X8;V\Q6Q'JX0sV. U"65baT5O)HJJ_S$A&vptL\k]pX07&)_jM_/_9I\le U"Kc6GiDTlZo4Z0$kGtza1;NP8Tu*WheRxUnD(R[]:J*j/rSf7.*Rv4+SR9UI8B]: U"DIrZ;qtxm=dc5SDI?Ho>>5cleWg9yi;27j)m=7Sp?3,DX#Gpdxvc\1R5Z:vQ>,J U"(c\o.jgqE5#m'XxT$/cj=f]YM8i-,LKM9M_6%:ggklA4XB>v7 U"c7d8SSC(fjeW,>$%N[[Z2q5xyC?-[V9\4.NlfXLEYfDq/i3td[ZD?lsb[ZTeS0, U"SIpTfkJ%.S\l=YAo-8m8( U"dIwEt6+B[#Z-Kba)2=M-<6L0*B/X-Y,)o0Nxkq])oss%JHAEf(fYEj8_GeSl#U, U"[Xo^St_rb1LbJD2'^P7M9C:T;_P:?G8#B(#',wcwX)(&hEn:Vh+'ON_O0AR&gI\ U";7;%^P/5a>(EX;(f\&UF)m-P#f\8Zv\1WHB&2xCwa0jCY?THRo0YH,:GU2Uu]hl U"c?6sgntwrEps-d%Pj_;#hMUg9Ml$b1?Eo69[J_BE$>4, U"XlE(j_Gmp6orAVxl?rqsA8Hxqdq2;X:Y#MZl[mt*GhEM9L\%2*F:12R,rJ?]q+DLu&)2'e3fc.Xod2%rN U"GQCSfD-&pe<[2TR*3ODLEkAi1hMs&duGLtG>;+2R3X,.$ U"rjSoR+0rK,\IWYc0^dUzC#r&qQlpV6nkE#TpJKqiFNs=E..fYE^j_Ge=7?F^gWh U"keUEEMJhTrVwQ3F/X4)imH-Lf]A+pC%+HG\3jADgkxO7g-dWLsVsNr0GZ[, U"PAbkc[8*'ke6ufp/pq*UvyvvN:y-a2H^'S,P(D#PeGpe:xh$$Fd4>lL^a)M)#F$ U"d:wggUTiM1F]l^5;B9+kn9tcraSzpq8g(#TLrI2O+SJXLPS&z/PYVFMFKtTfhVu U"s8>='Iu;So^$+AW)_)[?D-O(]PK7VsZsxmZ\2>n U"5D7d+E?&s-w).N'5BLZs0E;)m5(YG.$Qj$A0bb<#1Wp_+t=5w1yi+xG#u)*CbPo'-9ZsB0t%<8Ium>i_?Uo)omN*>+up1R=]-0=EhWx/tz U"koHjF+SSfHghL9#'4kxcY$:$%MoVOQ6?fX6B5)0Y;C+-UEj&_Gm6?9iANV)?.A7 U"G?xD%up()%/%%%.%%iu0pCSg,?UK%%%%K%%%%1%%%%pf%jxhf%ujSg%fyej%hmt U"E%tkk2L/#102B82T2AD=EM:8=6M0AC7LS10B%2/2/%up()%9%%%d-%v*%hE-v0- U"9U%7%%b%%%%0%%%%ns%xyfq%qSgfgyBDo*i&uuZinmEC2F1A=zim0p3#mj:v?o4 U"SW1kC'p-vU---YhoA,t4;TSt,SH,lA,P-gmc1'UPDo/tN%d*hbC(-S-CS.OlP/6K#%&-1S_p/iWmMg&]fFCeIs]:a/G=K_0BtBU=jhx-Y8c)UW\;s/1e#;%jpa*1W]H7d'peY_F0 U"Q^A\+Ra&OhDgFn+XE7PIq&6Qx(P5?pFY-0$X8[G259B9qB,Z$6,Vp<s8dePTJ[:73/V6g.]7:L:VgTLAG1S9[-I)A$)+B*cF.F%\qia]% U"?CE=)(<]CZ7K$4Klz4sVrqTQtX:/EqlffR60m;c']y*.]KWWEY/SdcJMkpGliq[ U"6Xq,,<&,D9I=33q%],H.(Qcfe3J6Yw\=0;MVre9>$2y(LR5n-]$$tqJfEy/MF'> U"h0^ucaDG>IwgPA#Pym[W[R'AH)E,Bow)N,li\cmo;5?YQW_rjIv:I-_\NZKnj(l U"$KRWlNYGMRD3YSUHW_g,xi:y_::&x_yZvhRL]KVA^dO00qJngg:N-N0Z(Zwlwc$ U"g4j=eur>oQ/u\ZRi:7+3=fqHg)4-jK,/=B[o$b9UEhn=>r3#fm\a%02#b6wp6Hh U"p[KN=M;F/rx>e&UTS._h,#p7kE\^gX1[:*Ie'&M8S%htVGgoVeF_J1#9&.(H0HR U"PvW3a4#3s'?In50s_tPw'A$lHnR8ap6/0AH7e=,mKuNaxo\]48#g$,M(RAG84s? U"I-)01-[I=2pDM?O'4%]LMbciwV+g<%<&724qJ)b7._tlLM#R#3:[dJ.^WBUo6?2 U"_bQ#9:qERi2E&?'qRtq29b%D51eGG'gmaKI/Q4YJMLHuFg>Ig5P%Wi+HaVOOwX: U"*_[I41X(I(S2Opf5eX#Z$DQu=i^uKC*)ObSqJsg/I0$LfDtk\ZrDRP6L%O?Kq/p U"(b_UU[:+'BVk-NJ$U7-tpSVGF:MT/]QdZVEUJ2,I<7rF(CSD\Anq%D&c-u3Ku\Q U"d8-b$R&X/B:L1=a> U"X*5N],e_r8Nk9MiAmTPa9zZGRRYZ1NPvb,03(+tV?ycGR2P8oxmUY$9h[,1r9k& U"CGcVJOF'q/bP-[\*P,x?t8hclw.U$=TqId[C2T(3ZIG*^DV([XJ5hkqJ?frp$C9 U"tcZi)wp=EZ[$%B2iiPuE$_Lvd9X+(\JTY8(]tV$$W,/]8aD7t/6&1QHx=(Ci4<. U"2'ii9/gQZ%tn2ahtdXZhp8FCNbdd;FOo/IK%3%K/oRuOL<==Ar<3*G(_#S1ak,]tY#uX3 U".$m#4l?jV5Rw]Y'Dh%BCcRTXGr-Th0?)6F%$=hD&sL3_m*]K#CF11^D6TbR(4Zu U"TvjLjEY)LjEeL8F,NVC[+LM\f2ZKwlsM,&b&2eiXeYqm<=uJa#^%9zuGvDFQNx, U"p\eRv>gqt(4'W19XbU'*&,)US;=#d^teiVdcLO22N*4nx60UY'7d[gpEJA<1=85 U"WuZET].)d/gj(avZt'Nets,G1Z%ZMq1trq0r5[Cxp2&\i;I4qU44gZ)Qg\IHC:' U"7-X,#Cf6bV.cHGr8ih(tnJ,28rprw2=3g?iNsk0[u1'ZF]op8>jdLMbSMc9R\iZ U"U[]f8).[/#Y?3<)Q+lmikkmIe\'ZTan/6?h9t?fLhqY$k;zx;c1(0ee=)NS> U"72Os>w#d1e#UM_r['2Um/6R>xTN5Dgq.>Y<^l0gZy*Ss2d[n4Nl;g&U';jl-X'h U"envU,D/e^mkpJ=Md%s8x.YnbB09m3$AQDrzK#$Qe]V6ANu9k<$25\Ij(hkkkZE, U"F=uh*k7Fzgbr4Aj*C>$_70t0p*ooTqT&>(flg(8gVQ318RJ&JBgCr)4T7/.6:Ce U")^K?,Y?MXb$-F_8pm\_.MC#k-5CCa-/Mfp.*4.+?kD-DMT7>T/A+AcofD=#ALGc U"JrrEh*]_O]HN=5>T/9*]Xc&h2EG-7E>)i'jJH0*/Yi6N=iwN]K=&=WtCf U"dbT4c+]ot(ptb1bSeQw0LQMpAlBZ>]oi4?rKT.+Abw]uB)pahJAVo3d%AO^y;Aw U"]u3Bpah(JVo3&dAO^gyAw]OuBpa.hJVo(3dAOI^yAwT]uBpAahJVeMm$=d\z;n% U"fOV:\XRaH=okkwr^q0s2yKWlKesR;5 U"o\,u^m$Q#%'3lQEOV_nSq]hVHIOP/Oe3l_y+dV5Y76\q(zLed$W6rNK,QW:wNrg U",;XuINELA69cm-oHaMrMMHM6Si$o#3NwaP9KY10vVHbApG:v,HQG);'-CkGBmfd U"Q[,nMdaV_CjkvqN6,>>yUphP,csV\/r1H,o*k8p#qT\M(Zv.k_ksjg7c4rWShd; U"kf,;5Y1V$7';mfrJnWLYNPSst5w^m#Z?-u,E>+(NxC(ed/Op6RZNC-;r?rV]Kc- U"\V1(H#;u#l&X7<:qyfl:lDQ$Uaq/_[>k4++'xz^'kf[%k*n91RRB-gn4:'>V//: U"&^:[0tiJS$ObbtJE)7wXNE=BV:.TDgBR6Z?(^nsU)?$e>_WxeY=-fUv6SCYbB]t U"J>H\9CR\]E+uMs,rq9l*6Ld0QNL04zm7diwo=dO>x[W=^-e%8mM#S-?-V^'x4up U"%()9%%%%-%2'w0E$LdpP&c4%%(]k%%%1%%%%pnsl%fwym%SgfxWf,V=ce/67O\Y U"F/8K/]=h?+8.Hkg+]I0oq%Yy2[Q>s5RE7\L#dC.1YOWTqa2?^OB(K-#]gM:G3dR1tfXib>1n)WnSHMpKRU^pY U"5pk>gFL6pQgEDaEG+DjahX,Z$.Vn2LT8.h#gB8C,'SwobF$>%m+HSXH(.)1%[jy U"VU3lLvq:63%U3lwvn$HwvyF6r6=j-YfY(qqy:9/1i#;%7F>dIk_&Q[T-gp)lf^7 U"F#?HS,psno;7s+0?B*_iAk5Ap=ya+$.T0Xx67:*imzCYq&K2B+[^hz'EU134Cn5 U"cre.[\Z.ZopIbe^,kLQ3(gN++o4ObtzSb-A3Ibc>f%#D>I%lO U"]#_2H.Z#xa93xxyo0^]E*P4fZu(bbb\'<)vMLU1dmqXn^^acNDRiz4*up]V4lDD U"zdDj9g(T*0KiOvm\1#oVz>7s;&NttGC4ZrU>?Lkw/$Rtt&?CbkX.X\Dll]?9ZT$ U"XB1iD]&,J;(#KsW$Jj3E2[Mm'G,b/<(whYK_g17C3Q57 U"GrcMfP:>Zt)Ec\=s^IkOF_k>'.Cv\QEQ\/LIap2IA7?U]A U"joJaKvo,*CIrUmS[k*HNm%G\9S5LuIffU\>?a%H$I.c)Jut?m-csJrE$/]7kV>g7#uWBPoZc U"S99dO[EAuLB-9k*rtDL\^pkT[Zp:EwC,9=ua6BIV&qI*cJ. U"BpsezERGW&6AaF&Fqw'$p=>\56dWOiNgxSw<#C,QXy_dne,#m.GPBqLV420HL]8 U"QrU\KhVy3gtULUpqGsw2)_?DoCztckQfrx&FPQw0bx)y5lo#kAAvxLk$lXD2.93 U"4OSn+Ml4]&J_R*PScbVYGib+$-2=0$i-&HOZ>eKW(enKWXrt3/lBcBGL7AMwOIk U"/qxFca'X3pK=-x>eO6n'KUV/+YA5Ib(7qs_iG1sBKvJhC+;^GFHQodJzDD4X9]K U".#R1c^V)#IZPdb^8L.NHDZvw_9]5JhHnGx%SIotl-f&#JGDHuZ8$1R7?%*Nr$e< U"3O7$#*v%$.\7Gdvi?m:nBBbN_Y9'\T;.D;8sB^2\\H>Qq1)F=_DkU,EOf$Or498,RljB$ykI9;BqCUCyRQoLU)/\T'?&pyC4XQ* U"C(qq)[]J0mSWSBo0t#.S:W;33.B>2Ntw:X20&^[/AImpW)aVo_&opRYN5D0&jEg U"g/D4(sTEv*#;eg41sG^eSi[VtnOWOu#/6M#K9,OsCHh[WWxq<9?,5xvgb:8%MYnp>TG??W68O0fgZ^WY##&rLPZ3ueU;ZW U"CS,\3I%l3a7P%s;4.ja_90q:^SNaK,?&UrE0bPz(t)OQC:e/z1t]xtqQkb=_gPf U"[W>=Yv$RVoT>^*4AJ^3Vt9g.?6kOqKXgD,e'Bi^fxS;?/EcR+_+>CQ-z'5&+Grf U"x;.$##YN'01cA1[GD]':)7bPv>)<;s,6pH5KcvL=vk=J$m&:CoC=8U4B&AZBfSO U".>0NB:/WUe;7r3Lu3a>LRXiLBUw9c.j=^UAh?_$g*.HqyGn_)R%x_HI]K_RajSH U"=$knt\OO3wLM+9d0tQ&aq%,shdE6K0i6Q82DLc$hX$HPYP>U-jsc=(3)v1Mv?p-h7d-2Wg[P,OKqHqJE<,XoXiogstFm<$)vG76//k_9XfZ?uC7#ZB U"no$hvQudLXwYy?5R8&pIrO1$me2g,;+ekktc;T:u=>%sJ-vN-LbucjM0dh<=:ax U"fiB?M1rvrP.y*xurHYI;G6,Zmm>8[QCl\fVA$Tng1pq,)IMH.QrxmdN?>T+t/ba U"*C)]yZugTIBrqU'&:gw0x)py'&Z_f824WmUBX1\ySNdFTzS5f%FB&ZePMWer;gK U"6_9PM#\jDVx(B=aZE(&1^$A00AmeZ%vn['9g>_qmUo5PMeXRlg=e1,XZa6r+72' U"Msx?:9g5g=&k\Lv$e(?b,-CGIU'#npTgWFUi4Qg3&q%r:%?6vSEllB]Eo33VE]i U"P#ihP&P6e7UKAWj&TrD)F's#'aQ<1OL_)k?5=F3C=.=in.H(YA6BbZ4-sbGt;w0 U"tx)sLPww3_Uqws8l9P''&RYVC;]]q23mI*b#;k3DgfD*61Ef[:_ibk_p\y?I>(%KB-iw%Lv0;>Q<=E\ U"VT-X-oOgQnzgKFO;NdxAoe?&bMf'LV0&sRFPv<>6Dv3]dwSd<>4(=_E))zz>[cU5<5UWQ^GvE_XyJisui9t:C1I#D;iV$ugkQZxmDvQ U"4<87w0YN9ZPl1G]$En&$pnR0;nXS%W#jb:U,,7Zu\,V;6(rR U"d/,?j,9(08GGOh/)2th;1MJ^uWH*MWYdKV7#UGM1hvU>:Qe5R/0^OUO.dr08tnM U"ubp+C>:*9ZF_tJ9cudsQ9;&qKQ:Ae/pTiN U"o-FjV^(M\SjrQGx=w0tx);bK0Kkum;Zj4[lrY/3W*'M*>=MjEtv0)>-+x&%up&' U"%9%9%%%%-%1L$fDmVk1('l,%%'h<%%%1%%%%%%%%%&%E%%%%%%%%%hf%xyqj%kf U"Sg%fxup%&'9%%9%%%#-%*/dwEqs=TT*8m%%6+%%%1%%%%%%%%%&%%E%%%%B-%%% U"htsy%nszj%Sgfx%up&'%9%/%%%%%%8iupCeSg?U%K%%%%K%%%%1%%%%%%%%%&%E U"%7%%q#%%%pf%jxhf%ujSg%fyup%&'9%%9%%%d-%v*%hE-v0-9U%7%%b%%%%0%%% U"%%%%%%&%%E%%%%mA%%%nsxy%fqqS%gfyu%p&'9%%9%%%%-%+_JRDB(vBlg#.%%r U"%\%%0%%%%%%%%%&%%E%%+%pA%%%hfx%yqjW%Sgfx%up&'%9%9%%%%-%2'w0E$Ld U"pP&c4%%(]k%%%1%%%%%%%%%&%E%.%%1K%%%pn%slfw%ymSg%fxup%*+%%%%%+%. U"+%)&%%%E[%%%%% END SUB V2 CLOSE:IF S=34AND 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