'===========================================================================
' 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'<dBSm=7x
U"gOBx4B&#Je:/U&EO5[DzaH?MRQ,g]JJ.J.+xPAXJ2mR>>,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-<B12xt'g1=>'t-(-a9LS=4(
U"kI:)o(GV*&xoQ]Q*gxPyeM67O1No<?B9l%6Rh)>8U;9)\TqRoEIb*(00FVHaOng
U")[6olB;o:bDgSM3We'#<q)t8\ldT00NS=\0<3U/k,:Z7DMWwEMM-VlZ?BxUj(Ab
U"*?[)r3BMg;)pCkWiO5O*d?C.q>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<d<U(G<DtGIfna,<.-sOxZtiG4:MtRwf).X>+4DpZ)q]f-B5
U"2V18p4U7<xBU,V(usun(_))AZpAYm$AL>cX=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,HgB<SZF(?[#
U")\:%6:NmBl:K^1-]OOFH6\%*6,2eTe1:3;-EoW=(Np%e/0fc%&(+T%MBq/gHK$5
U",#Da$-\oDuqAB5UxiQ5f.DLlnylNdz6U&#&:1*ESK,)54592Tt%xJY6prmQ<g8<
U"S+4Pi:<C[5YR_W)YnU$\a]61<8cRJL^B-#^PgPP4]K-Eb<O.ekQWa3/OaO%RN;N
U"rXBa8EZn[H9Wv=l'jn4:&F+#uzrLnlsKJKmj9qxa^%(a=tAI\uxT2GRfp-8RNXs
U"b'DbH2NVi[VZ/)&U4<A-./&B[32g/Sa[:<YrNG(p1gL*=h*/3:ika7a=V3rZwLu
U"rvn&Wu1L3b?vW2Cms+<T+Ch2l<UyoZ1;6,&9YKJpq4GHE8%2Z,UTYHdXsG,B,\I
U"K_+[]S9*2YpAGj5a,]1bM34;[%MB]#NnMSe+z\u.h.?=(-1>GT^)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_<O\':NgW44P=pE[Fq;<YvrTdzL4;ul2M?N;+z3WB
U"0B#'T)aw#f7/zSC_Gv1+4Zs%-*vplMN>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]-HF<ar*5Lf<1Lec^GFLUN
U"vaEuslOdwL_IWbG7C,G2.X?F4Z-h?rEEAQ_oE3$-3pX;MVY^Z8H7U=AhBUy1-G9
U"beTG^&s);nfX)U0&rRhbq*b8&d0lVRk22]\:m[Vgqf+1\,DB-0S+:uGbjMQKo_l
U"u+1J^0Z=LaBot7D72VZ);FcSgC7'f^aHsJxmQ)*,kaHbBkW<8kj5=ht2v-*Iw[G
U")blna_=l$H\rsG#0astVelP,cKQBo's,tqEQ*?XB*eQtz;B\g5kXNeL=NVC-bpg
U"1QllRjTi-blx%*up(%)9%%%%-%*A/wEqosTT*[8%%6'+%%1%%%%h%tsyn%szjS[
U"gfxfk,VATU]e7FGdX&E&uOszBOJoe.RtHb.*6VG:HaI'bsNonpr>KVRxZ2glSWv
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[,<iT^eP1M(g:D3>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.WI<YW=&
U"=>T*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<fYEUj_[t\>[
U"6l*u57TEMCSqRAdSr3s5hlNLXF]t]EF[aq>^)Dz(YHrDqtBPj0;5_]u,(Oqh^-S
U"(A6AtFmCffJPB32qBOr4(*JYq\:PbtzOw+9>R1Pr+A>c12p:udpu9#$/We)I<W0
U"k$b)-l>L1QXL2ubQB9Sh?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[M<t^oa(uJ]<fHh
U"JI^2M\qa/)jbsF0l-ipxni[tvap_;7xgKdpVl#(0gsic-;4hP7.W>GbAAvCsBG9
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<oSmP:%R7YgvNqY6t-/HPp5u,cH5$W;LiMOZ0H.t,lMu%Dr.;:.\+QZ7w0Y
U"g*civCTQkrlSY-(kM.&o^m6&s-w)BIaK7>]?: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>xfbuii<i>XN: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<?1r9J_8^NJ:z5soUY)HdS_&rJ^&[D>,?eEM]=
U"1=iVR:x2^0g_1YSXB[<_Suq,L9iL.-&08p(F2<j*ppKk1/?f3?\ew1(rzO,EL_[
U"qg=-10/.zeG'M*#RZuT&c,HRYUK4f1/Kqv.=cDFV&<BpzN&lLEqBR\,O]V[I7=k
U"odA2y&A.\Iv5G:nIFI(Yz9*ATQ+R(y$d'[q%\\TQ'>t0f9^3pQ$n8al8).=>s-%
U"w)N'&[A:k?Sn$*,w'3&4G.42#K//m2d</gOF.t<EI-_+ki*b]lBnm#/#oP9cmN9
U"F]Jx1V'>SSS15_q4)2DMQ)qa#/*\:GVM-:%hS5Voo)a*uT-65\mhcUlFZGHgvl,
U"4$q&q((sMc1R,(9H8K<AfR%$_UIm#]gW>bH\j/Q'Gw40S_;Y'>2gJ]dz_c2WLPC
U"IIrA,o<CWl.r8+q(=U\MPVMzp72zXTVA4n1Aa$Ak2B,H]\gs55jZp?*+R3eCFO/
U"Depa*UXI]MgusC<UFHR*QjN#KL8dm_j_7kn4.S:QTwO9&HauYlWWNf9jA_310IG
U"I#Yy3KFWcIc9Aa^lz%sAQ9fY#Ej%LVrQ7#JqrmDlV/z*ME%71[>_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)&#1MPEZ/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-'p<d,n%k]U(-o*E$Y=WpZb$W+VIS\fM
U"1$QCOvko?DwullXMr$n^48ZuvPnsduk#VNMsDtIvh8$u#n)k1sQLbIA*uj>8kjF
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:<ed+Z^[ml7C0,D2ZZ,XMAa[wB4nSHKNsss<JoAq
U"9k0Qp8dmlpOA)l21#vLQajk-L85R3=Ghs'RMPhcS>D/^9J5ck7oOv^<f:=_8CAn
U",I/j:-HF'64wMt0DI$K16's/RLE-qt;oG=D0E<><FB8*Nw)>>?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<quoa762
U"Jm^tcd]?)R-s^N3r*AHg;TkN#jXZnntmMCag02m]9Ft4oAJ1Ahl*+QeA>;.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$i<d6Lh'WmrX]S\$o
U"-a[*SdhGl27^cI\?)Tba>1: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&<f9R^eJUEn5Z<dAaZT$09Kn0dR#2*rrPklSB&BYc#qt59[P
U"E_$xQT,/9ee'bZXXIo%4hf,;(BKWXN4xeLD(CX>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-,LK<AGA.\=6YgKct>M9M_6%:ggklA4XB>v7
U"c7d8SSC(fjeW,>$%N[[Z2q5xyC?-[V9\4.NlfXLEYfDq/i3td[ZD?lsb[ZTeS0,
U"SIpTfkJ%.S\<X,J^GnUyHM*iLTK)m]_Jspbbk-EnnG'FKBj-V._?>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_</ulkui<qrK4iO&]Hfb%O?6<X
U".U'P(IfO2+j[&u<9uEW'CC)m<CR2m#E?mrfXNo/^PiExuv^?x84$n)=hZr2LE6S
U";f,EKhn<[p]\-8e76+$9uQDKV/\h+=laLL9[lSLII.VGQR$]o3r:adajAQ-<IKU
U"lV4r.wpuw,'.sxyt%*1rd\kWaqA8[w(;Hm;p%YIZ4oI919To][M=J0\G>BE$>4,
U"XlE(j_Gmp6orAVxl?rqs<kABObe4O'2Lm<DUZtJPPu95,^GcmP4=c/'EM%JKHLS
U"'56&4\1T41HV%IZ:xWPmb;D?bUu31:fNeNE#u.[^/tqm.h\8=X;s&cfRt0nZeLW
U",>A8Hxqdq2;X:Y#MZl[mt*GhEM9L\%2*F:12R,rJ?]q+DLu&)2'e3fc.Xod2%rN
U"GQCSfD-&pe<[2TR*3<E%\#N79'^iL;G;Fo$+SC0&z_na'IsL3XHoaMoZfo7=MV9
U"T/IdF5m$sTrF>ODLEkAi1hMs&duGLtG><J/_$M1H7CKF$eA1C/,qxI.CqP?Zimj
U"4<BHteK+345&P.N*JLkfHgb<;EZ#,;.pW$Ki4l<P<\L(8[ViKF?*X>;+2R3X,.$
U"rjSoR+0rK,\IWYc0^dUzC#r&qQlpV6nkE#TpJKqiFNs=E..fYE^j_Ge=7?F^gWh
U"keUEEMJhTrVwQ3F/X4)imH-<I8>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(]PK7<K]jh^7)o3p)'0S^sj3EdTIb:;55qkOSQ7k
U"PEGy<Q/+mtBV[,NQ:SJLc:)cYpPAVt,/Yv#r\?.]4=CrN?+0njd>VsZsxmZ\2>n
U"5D7d+E?&s-w).N'5BLZs0E;)m5(YG.$Qj$A0bb<#1Wp_+t=5w<I$[3L(7oQyN.#
U"5u3<W(k&cB%\CALjF-<M8=jB?<\Sk9Hc_WJzR1DT9O2+nrj1#qxTh#G)9VS8Id2
U"bUy?Y75L0?>1yi+xG#u)*CbPo'-9ZsB0t%<8Ium>i_?Uo)omN*>+<eOXlFiaGn0
U"IE+]Fcm98EUD.Y5VKWpnGGYVvcPiLu#$d5DNsTWl'Q2s1%2h.x;&wHfQ3GMI#SU
U"#BfnMCIf2YqbHNK<(BSAhp%]'eQ[y;TU(vw'jljY1Qh1M<>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.<TD3z
U"=>OlP/6K#%&-1S_p/iWmMg&]fFCeIs]:a/G=K<G]:FOc'=]r1svv7gavg_,#m<9
U"1eb5(y8%u%p()9%%%%-I%+JRFDBvB%lg.%(%r\%%%0%%%%hfx%yqjW%SgfxWf*V
U"A]So77VFdXpEfy)w.*j/$Q#_kkaO)jE7N#5;4sOJ\%m(qQt8AEAPgl760p&ETWo
U"l/JmI&wDRt^2b[OfdLoVXvnAKbH&kz[v\1t<Op$WUsAY1x&JtCQSWDykURk^Y78
U"HZg\iT8eD<ohB/V,.9$>_0BtBU=jhx-Y8c)UW\;s/1e#;%jpa*1W]H7d'peY_F0
U"Q^A\+Ra&OhDgFn+XE<DxV&>7PIq&6Qx(P5?pFY-0$X8[G259B9qB,Z$6,Vp<<ge
U":(H0RU6Q^AhV(xH_/B\)X3Gz3E[_.&invgpI%Nhn1PwsW<z:X?LfqUJ-g&#k2Y[
U"XnqulaSw*dR>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<v3Q,WC+eAV;cGg+mn.$5]qb+g%J=#(58<[Z2UY*qBlMS,>/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;F<qOI%<xi#pr#Y'5z(pfYv=+qhtIR7]S2n
U"gzqpJ\SOJ27?rWG_J(c1au.>Oo/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?fL<y'R<%wX_B(pViO_Pdqg,,e
U"j^)vi;;Kv7o1S-^)AFN\\j]BQ/ABu:qlOm0SF[^PsL783P:IkK;?Mj6wg'P1HI#
U"6.o#gO,hGNML*9z?'#WqHq5sCWbB+&^G\O-URu.'k)>hqY$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=<?SC?V[11v]mLgf2g#
U"OL=?GaHHH9MY,N6Z[3fe].e]0gKULGXTKB;Uo(XCe<Ssl?7hGK>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^q0s2yK<Lkz)oWE.[^LM2r4a2(p1T%Cw9hD8ZW[>WlKesR;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-<LQB7q^s<
U"wtnt(Qv^^)CAIo&qM3^f]167BZkIs\g8Ikd%JS'uJT<vZ6_F_S4WFA3KJ_VR61W
U"k?mgCy*KM&v\mR.DZs2RUliW,C8eqX1UVts9JNtSkS_12b-v6Zt4XrS8m_e4xQG
U"L;X^UfnG%d:-6+6[Z^Lun3c>#]gM:G3dR1tfXib><h]#S;L7ZnVp&MjFF&jmu?v
END SUB
SUB V2
U"H0F4FcXx:6r^VaV\.S6x;6KpB7a$QvLA_vZ(8W8f0q*XyiOO_.1Ggy8Kky\w^M)
U"g0D<$S)$-K'fl18vWh9C2jEcKchYGWLji&y:=WIe^7PRNT3]aymE0^>1<nSH?J+
U"NrWzbfcn=$=ny63L;lp61qRo]#M4*1ENG0<PVa02Co.d%eWF>n)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++o4<WMT1:1d(zAT%TPKK:-u:F),r+i1O-sp-KRB
U"ni)sl,EcKDI(z,YLYbNq\fxnoectr&o?&6f##Ci;MM^$,Fg2Ae)ND7_ElppiTXF
U"b5-<pqbLd_hLt=+V<3&'p<VtdADctvfj90=Z6Z&JxAs'cBVQ7[V/BW#GJF.V%&9
U"^4tM1&tbLk#$*<UAdym]t5]6=Z=1DV%/7MrGzy+V>ObtzSb-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"XB<A6EUI]Dl[^f-m3%+#>1iD]&,J;(#KsW$Jj3E2[Mm'G,b/<(whYK_g17C3Q57
U"GrcMfP:>Z<g-u#DDkKw.n&V3/>t)Ec\=s^IkOF_k>'.Cv\QEQ\/LIap2IA7?U]A
U"joJaKvo,*CIrUm<jX$&QY__HFSIg$R+W<:f_H9E+j#-XqxhMUK=EJ3P&f\=JP;a
U"EOgd5$tJ8m7WcgXTk+LB$=A.kN2xgO8m&3odh5KO#voqvA2I=\+w;v'La3uaJgV
U"XS1I:0/[7Bc1ClcVrAMpXmXe&:*;#SWK8goqMOL#V2\#vx'lhI;*&c]ad6L]e9M
U"8xf6&6-0982FZ1CTT]:FO4B,B05[H'O92R7nx_VEX;nseu)he]hRkhe?uetE]oE
U"fORKJ\tM(+B#UF's#sNYCr8dpD$dDSF:j6O-?H4STiEodCez-]LP4GX5Z#G0#*?
U"OJe1>S[k*HNm%G\9S5LuIffU\>?a%H$I.c)Jut?m-csJrE$/]7kV>g7#uWBPoZc
U"S99dO[EAuLB-9k*rtDL\^pk<dAYoLO&Zw/-1.iUObpTJ325I(%'R208bxW<aqk;
U"F9KHX9y=jsUi-M#=Dr'<h\(uAt8NJn0#P+N(3qSgR%=nGj=#AVURJkgbn]bngP-
U"l%VL*YwbN)w:XPQ)oG.sq_,:Y[3=e4s4gTHopENLxvk]3D[Up)o<Z$#fP'NYeVK
U"1/_sNg.4zl'cHF=fdRJ-WC0T&/Z*QXR:kHb13R>T[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=<C\7[pwPPYgK-t
U"G,d#);:]4;D->_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^<Hx$e/>eSi[VtnOWOu#/6M#<jV0QraJkfneoeOroH%/q
U"w,y*:aPz2%unz;L;*.5ixt'TP2A7R/zH%cHl>K9,O<pZPePLb3y1*-i2+Se(W6Z
U"2_rq>sCHh[<oNM8u.^VCV:QRwT;fn[jaH=Qq]zq5fG;:5i_:m?jt(MP/m6\5M#G
U"E>WWxq<9?,5xvgb:8%MYnp>TG?<d=v4]2'A1k$,A&)OQ:8e/4]1AJ#-pW6m^CFw
U"otX'5;8tu.Y;Rj#KCX:MAY;D*K9c'5kwL0kRq^4wR&^i9V?]lQ(bUaqSw;$'hdZ
U"xstF[*7P=[gw7\C7XZl*7'Q4,I-I(#RjyC[Dz3&\1ni)1m8*hV=H-Uu=j*j)v;U
U"-Bq%llB0H7u#G*5&1&*)hnzciprk5/+KTw0xf)y'RpbieoT#\e%\zi2'.NeI?JU
U"P)7cA'u1dl#'T'dG-f91%kfdN+xG]kQWOX7n5^Dx8'8q[<hit0dgQ)gi7q9K'L=
U"+G9k77xgG1KIF1jc%JQ.8hI9RpPX3U2Pch]OR<-hX67JUhGQjQSHzdL]JrBT\L'
U"\.Of+Zn*d*%$guT&K[#c+l<t45I%]/n9XT('>?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$<GLhr=TZ%TICo,Juw&t&j
U"\6DDIyz)L:pv'aZxG6Pr<]Mf*B]4zsJO0WH47oMkB$-HjAgUW1YPB1AVBND^Kmh
U"VttPKx2Z*l9CdXbGR23vc#_8MDR.,KwM.LzhL/,NxmXz*I4BgO5SC#6:_rFd/ua
U"Vv6Phhr.UdOpPC--Y5[-TipddVW0(*e>HPYP>U-jsc=(3)v<p[apx=BBt6+l<cb
U"Y'Ml_n\9vidGjvlkv?Y3EF/vg=UN4Dae9M_&k-8H]S+(S\or#-BrF)<\It2SSCr
U"Iu)6R[pt;'o;UerQORr#)8Gx)y'aO%D_\D'[#UliSWEF^H1F8m9Zr$-PGi&96F_
U"AK:gIRUd(QmUVXDmJOK,=JUWrq](JACD^kK'kjD^U5*A9ejD#8ZU,?;kt;w;0x)
U"P2j0S>1Mv?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\<wsmGE
U"coLe?YE7_.5j%GFiIk^1ff.KkEO0*y'OW%?s\C.v>y?I>(%KB-iw%Lv0;>Q<=E\
U"VT-X-oOgQnzgKFO;NdxAoe?&bMf'LV0&sRFPv<>6Dv3]dw<YM?.iXd7/ecNR5H:
U"$:EqnV7ewH#P%u-ARHG1Vl:x;PY.tppKF,F5$wx/5\l1]9%?jZ(AT$#U+\;mig^
U";IZUu49#H*#(o/m]xc&c5?f3Mf/><ZT\,$^(/7.A-A8Fl67pR(rAwA%[8/2[q;z
U"VVWiOP?7<%[$GV:]3i=v&L0mbBc*VpVD:;/Sf'QN7%p,Xpjt0[p=EF_$]QMCPzi
U"TE_X:j/nEd*%TSz5E).<m(9ux?YF9Q=%J)EVEA[-NR^?5?-&(+be/[pxe(hHA,+
U"zu)L^>Sd<>4(=_E))zz>[cU5<5UWQ^GvE_XyJisui9t:C1I#D;iV$ugkQZxmDvQ
U"4<87w0YN9ZPl1G]$En&$pnR0;nXS%W#jb:U,,7Zu\,V<Xw$ckt1P*x:7XC^Fwct
U"Hxh1tqX_1srx_Ws$(]N,7u]Nl7-tNFLdv.;(Zna]$Lc]TE(1Iccmu07DHX?g$Wq
U"Vlxdw%ixhw-HUA3h^u9<'ZQK]8'kZW[IF3\qGxw</#5b]1A]qP6eBI[99>;6(rR
U"d/,?j,9(08GGOh/)2th;1MJ^uWH*MWYdKV7#UGM1hvU>:Qe5R/0^OUO.dr08tnM
U"ubp+C>:*9ZF_tJ9cu<J8/0[c83gdC*\zrDpJ=[RE)XLpCKk39(gRKQ55;1K.Q:e
U"/CpTZz35Y(*?=GQW*?qKQP9[XwkX/Utg-9q.P,K2w)XxV>dsQ9;&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
