'===========================================================================
' Subject: THE SERPENTS DOMAIN                Date: 01-25-00 (18:33)       
'  Author: Thomas Ally                        Code: QB, QBasic, PDS        
'  Origin: Thomas_Ally@freenet.richland.oh  Packet: DEMOS.ABC
'===========================================================================
' The Serpents Domain (RPG game) - BETA A2 -
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SERPVGA.ZIP",4^6:Z&=14113:?STRING$(50,177);
U"%up()%9%%%[-%a-%bGsR*jZd&7%%%(%%%1%.%%%n(j&if%yfSyA'yja4v'SUR1(
U"x&KS$?OBv-r)cCrtoR=$a8p605;m.sHq8#rg,=t$hqWgQJf+Ettfj.Co0?Hnva5
U"tO\eL^SjFXM?DG.ZSKMi?8kxmm>XHI?hm:QUo-r3]90HjQr)145/kR3%&gR#q)C
U"y_TspJ%6K4Q2nHSLJG6U??Qgr;S0[SZS+yVz>bB4uCMVUH_^1A?WJGKbe11r0_c
U"*(_-WGaw;hV&O%oFlZ4s_t=hlHC_/#>JHi*dHUgsR8r%+rrCEE:Fld-8*apqgR;
U"9r/JgL]f6==044U$2e5R;Z[Wobc4U6PTRZ[WW;5jP\WL+u6RaL#6tohCpXRl0pH
U"BPNHxA3Zb)$+NS;e&IXz[4OQIJkQH;ulIn,:tSS\b/3'c?L4Bed7MUsRr+w+5RV
U"SJ)3AiMJM&Nup(%)9%%[%-%M_iBGe^*u/,%*%%;%7%%.%%%%i%fyfV.Sy'yN&f<
U"=#KN1S9xlCBos%u9VKBwbW&zC_fGq5-+P&i_[2S#tVPutL_AIon*8S$Z0h?>odt
U"tJR*5*ddD7hA7Pa&fBuRb2vWcNWn_AyCN-kDQPFQnbL*P,]2qF9P_<liTra3NhR
U"2foIYnrg7F]xQIaP1w_o3dDdu&o0/y&SXO4X.3CYj/hH=5A,9xT%/aGbg_6D2fq
U"<&AR)R_XfZ&jAo:uA7zT[+5X0-*d37>6>,)r0MlJi:634&<NM>zXl^mP79H-Y2m
U"8q330DMqnWUm]w9;nYmB-.LXutQa[&(f0)'#5vWGF#VT%9GEA[pmnVc#?;L:+5Y
U"aVR4LUSkK'(C=66%GQh<:I(YOkgr/XWEV5<(?+p*^=i/#;elx74P0B1JW0ohM=8
U"%4YHQ+U^_ZN*e_]\+910pfYr)&j_SQMT$VtO.X8N,4Oa4iD*H:P5Ni'$+?A(Ga,
U"apq,As&pS;KHZAnMlTn:T]sTSSnp]#8F6w&YGY6ziiB\s'RKh#q5FJHAFbKfRlt
U"BmY1Hn$a(IhKg:5mNQZLnTAM'A'S*+e'Po46vOK++TCc:VQjao;8SASFKs^pprm
U"WgMhDPa*GI*vC6C-Kkm7tPOER;#EP89m,h^Wc'aZ'QiUIl.GFlIEQ4%f0a2-HK3
U"63$j&YYDag*,hZ^'0Y2)x:$#(P%Val$4YZahg'kU$DWO\E3ST)g'#5bU/:FEm,)
U"aMfV0(3Z-Ik-B%JMRDTVv%_RRCQ+bMb9>&?q6]ntPK,CHs)X?QJ&=o>&_3C85)G
U"a/*A?UxZhX\Gv=H[R$oY+[7RqRo4.([psurE.('N:RWp0FQdmEs7u^;H_pJ$C&\
U"sl7kU/[c5L]qAo$8_Z#C1&Bl-jiNieQ;$JdB7]V]n%1,byyM_RDnB/ogo#U<oWH
U"L3t*btJqGp[e96K3t*t+-dmf-8+P$<jp4wt?heg=9E>sI/+qdfhLuM+oCVhqzsE
U"U&RHsP?),g&_*v+oI6I#'b$hU*E=8*En(ITIke/PQSj?sJfeS\_#+pA&B]$aAdT
U"yS.+wj%Cr3\o)YDS2J2<1/uMP85O$]:&mT]Vq]rng,)FW%-yelrdZB9gJ(tDZ>:
U"&9L/NWM7gp9CDO_(LVe1\ds9K=*P_sPys0tg0lH:F4NAl4rT(PUA)%#OZOR+OvZ
U"1IDbn0lIP^z[ek/ta(J0PWN#HT;\0ByIPyEpGY'HSpqG_hB]vfR/-^FT]j4*l><
U"+*?O]%1v0at8O&;0:-dq+p&u)pGy8I:M4A0C:;1]HXW=3b^kW<lRvf]O*tmJ%:i
U"6[#:4+LSGm$H\_lt*ed?<5fUcL:sM]+h:vQO/pa#/1FJ'L1:64[]06x.B64*t#)
U"g)(c+J?/FgtH_pJ&S<NO7N_j%3lo9)2SDjq(Pwfrv?7bf5^k2w6uFN8:F[gDGcY
U"P*EGxckRA>^Ljy^ew9rW)Zl=[BhBt]n1yo(=1qrm]DuC1gTELtO.C^H8tXg=OSu
U"5cB1V?=#>7,oOGiR,av0G]F8+im6r=b173zRZ.n>$Cb,K$IrazMrW:+_&]*qglM
U"^*;42WLsAuCK^aiDYScBKiVZ6X,;a<ET8R$Q6K3&zNMU,hSxc=NilBLLNx$#SBK
U"4HjTun-id/6trj$JJe[na_Hxpbchl4*n$?$[JTdu'pWvL>9G)sViO=ElEEv0N,/
U"M:yVszP<PM8j6gd7;bsg#rrSP\^zY\8mM&9C%Dj/(%8TgpSxMulMd)K:dkp]<3p
U"lk8l_?0jpQ2N]Q8(a(tbt(ktui#8qFW8%l>QTs.qru+Jhthxelq%C/TCBN.NqtN
U"E]mdQ9T_%)Oni05x]q&&p^mYhPos>pdmV#^^U<?Mwz>\d42u/wrj-rj4u%p()9%
U"%%%-.%M#^:M)%$&1$%%(%.%%%%-%%%%xjw%uSifsy\^;8S/?e2;39&#IrRP/S>[
U"m[oQNB7nr%m.*WZ7JbxZY&P7;kFe;5W72e->Im$_dLwm'c-?D*%%up()%9%%%#-
U"%EA.^MHA8+W5-.%%#8%%%/%%%%wj%firj.Sy'yDD'pbcU1278zox&idRLb3b)vO
U"&fy_zZ\Pe;CzEBJ17.AfUp_=9SYyqg=CrP,d%JDHYGp[8%wICDeO4o8#3cIGHh#
U"6,I0DKbClA.b'j3_DKYPTX.\GN?QJ1L,-NNLGC0,EQ$]0/?IJmRX/?[8%]$8rQa
U"'XbtcICtLc:eX]pmK=.'wAzq8,^Ob7Akxmmvta3r'qHHN/D,&eSV,fuC+'GEm;x
U"eDDd'jPIINfifPkw09e/AaEal\SI=I)sV/H?T/QH_8<4irBwicF(Kk=/brP(xDL
U"3YK2gFO[PIoV>BLxXood.W'o#>23LgU1oI%\Aj2m?kQ&x62_%ubQd+Ke_5WebQG
U"6E,;/PA3(]Ph-zz=*>O<Q)NkA)*\]7P.<8q5%\%cnZA7Smx_)62e$&>R7[LkREt
U"iW4[\$2:XX?-EOk-)MRrF<KU&tUW.0K*OB#],)0G,7[B1Z5nU[,$]WnmTWYv<BX
U"Z+>]VwCaQ[DT-C)6$9aohSY+Y_ftpC\:y$if147t*%MLC2UUB=)rGe2E)]XqGiJ
U"+f>;*S%nk'kla6>^l(a;v%x67-D*ev&m7D\abOIQ.(EMl.Vl+a#%I3sw\0^wD\)
U"t1tOfw0t)[&q9io&pW)PM#bsDX<8gHxoGX)o=X4]o.tiAE,vVPS.?1gEOroivU\
U"gj1'*Ep=,8_mw-2WWeM:oNwv-.CS(v'+jc7.(2Rn.1OJ8g=UR3:KUB/,]=L<I%U
U"_2k;ve9ASf1l.M=C2E::+'j/ag$.<^o^#BkDESt_[=jE-qYIZq-gD5R>vXNqB/7
U"G.\9.><Dvjii$^FcXxHc^Es8K'GH&neT]of]Mo&MzgKoH6I+U?<c%Q-mQH+c<Zw
U"b<2oNx1OH*ecIvjfNRVb'&wZx/bDBBJYRB=3hiG_\R0=uR/dVwPO:.-;u7C*VCZ
U"s8N5dCf=3b>%OD$\NF&,NznOwOU^6^spik&P*S(O^19/7xZ?>?;oOQY5Q7VI]GD
U"U+=Tqe3c;b).;[6%CNiH9RJ>VB[QaCm^eI^/c(#=$Jm[9AJYgxnl4\Kn8)Za*R'
U"\Z$j(2ALj]=7W+tA%1UKjA)(O<CiNCG6.Jmp;C8Mmw,T/<&:j+U-KhgBQ>h+pO\
U":rFI.1wYRfrsg'h/hX<7fSJJ34CtG&i7;q,TpS:p0L?I.kFPla_55o,3Kj;7T[?
U":T;ZgQty'OE'$%D^_Gv<KpKn<,(Rx*9hBnn,=CT<E;;HoAjhPwIJjzdK=SB>]Ea
U"1yQB[dRd:^/=8jR4D^Mllnl5*(x1mNIov>AZ_^2P/c1pQSvbQ&eC>_NU8FsvquN
U"REi#Z/&?d3ATk0#LmFO>,:hdwu(&XJ62adM9)a708UjRXl+=&8h_l-jlv3I(_,,
U"n]dBJS8=EU9bC)aU8N<U2]r<H9_:ID5u\GQV?#vc/o:c>V$CKkp#MGvsY<e]YN&
U"ecmfkhKpwqBF4OYem64(1JHfBPfqw2'wjF-HF%xhoc[-,^t\HD*7.r_gsZ3P3ic
U"^0OY)%O$aW;D,<hk6>2SrZlM0t'Rnp*^+y.M>Y+DAG6KC=MtaEKOfKTPCOSNqJE
U"O5cFgR?E\0KR'*l/Q.*J(DYFi0*Itp&3KgU:KQDRU=?gp,)r53;_/$7*DL23(Bj
U";It+.N3H:yK*1OK)N-LeA$:jX/]DwKpWG><[f/:&NP$R4uI5L?X+A1lE(jpR?*I
U"cmfmh(,Catil].Y7c2%m'=0B%t<BGk.QE8I3G)0:Ds.Ex6O)swmW0QLq.NGgipr
U"=eJs$P$(V=m_$vZlXJh/tQxxj+fF2\^d7o9h'';1iXVnk:lgDho8)o(iIt.8uGB
U"]QEm;vh+9\m;hh<MIsTpMmO?&iI01Mq:S*D,uCix+Z3W7Rs#Y1w:k7ZxjeplU\j
U"-^mH[ebcj>4cVYlXS5;,dJiAGgLeKKH4>u]L\%,8.UrBi^>vD'93XWHm6;Z5d%8
U"']bFjmEK)caNqcYY'SbD0)JV]6GsM],I7ENW4kW5j3bg%0+ZP?Vh6p:*vkvCOqS
U"SepV,G*&J&#fXoLpw8_EAh/QU'h)4'zmQpi:]58j#>=P&m<t:RLpW8KRN*1L5:e
U".dMrsQ8PEf'P4ijW7xE)d2y[B<L8YoG/;+jw%Z-fvDUel/'=TJeJM-#ogv<ma#p
U"P2npnY.9Wi:./]q92Q.9Z;#k(k.#3s5go6m=Rg]_<+Usu?hmi?xZHH8NtH1vfnP
U"24v?fg\tC,<^)XND4/F(Ki?fetXx(gQr3#1#,IJZ0:XXn5p,s^j0xn-,fwE#oVK
U"LWC;Y2Et#p:x:uY$x8e/%^wz)XFP>y&ZVJmZg4JfYkIw*6UlYt8e5Qqh#t;\<sj
U"kA8Jf9<Hw>N<jN4Umu<s7\]tcRHQ5.ieVVl7OQuR8^uS<#xb4/fi_\3$FMmzU#B
U"M#T5OUJ)&Bky]56?jImJ./0tn1z<sSm2gfLH*rw%Pyl^+=l*q92S6x^A5XE4]r_
U"Y5)CaKXgdVj(ymY_*BH6ZO;wd'I/656.N;rtD=8L1I$D7dUAFe4/R7Mb5Nvn.)D
U"triQZQmQc4D%7\DOpb*ko8LlIF1#<'ClMGqSqE7p0;Yb7QDQV]b50-^LZh4O$^Q
U"U,1gJh]R(_J.BvcDN&?bGkh_a9mTabUEJ/3'v,1LWq572J70PY)+;)0ap&wi>wW
U"+i/hfmiE#n-_V7w2Z1#Q6p7_j;BM);as<:xuT(n>CjJGS2^h0f>YtPes[re_VB9
U"GIs.<wMp4nG+=(4CW$rV[S7H9.OhyaY#N%l^pD9iOnFc,$O*sLv,Cu%pXU[EL/?
U"0IZ3*Vs2NN6s-Q<f10'tJn^1$\neoCUGa[)$7/hAu35EOTSu>%wKs9Wk=sTx,%u
U"p()%9%%%.-%T0#cGIT'xrP%%%%\%%%%.%%%%rf%hwtS(y'yPHCEp&=mHHpu$^CG
U"uEBZ^-CBtq[vmtE=r^^O#sQpT%W0pX:pG25%5%up%()9%%%%-%)9A^Mn0'69'2I
U"%%*CM%%%0%%%%xjwu%RuiS[gfxfhL:FTU]aaFVlrxO?O3#w>VjiFcc:IVN#Xl]\
U"F7$#_E>t_0Db_-RnAlp[FNpC*(.y&IEfYcqlCXV66p;sK0qOw(gpuM[9/*icok8
U"r.AWiVT[Lj8ssw2j;f[]PCkeY1t3/#$mQqOd4bBarL_63mNq[GRe=,o(QkL[3JH
U"5US2a<ac\_EKd1Y(uQ]D1WTl]]Y\7m[D:SN_^_=FDBc9R5Cf5%m$6%OUvWk.Jg\
U"9H8+3$bm)rt(0Lfq++7t2GMJn3gMJpUGiw:Q<Qi=s]>vrfcl-<]<aqrcXrouCrb
U"RsVa_x=:(njd)z/.Jil3bxc9Bcv9LVc-ivc=,5HC'qZsnCGkM;*V>Nt^dKGdaZj
U"%)Z$pT%j1mPD8Qu>\XD?#X[EWHYMH_mvdO^Pi,d[:pnx>mfk8kRu\f\Ntwxn3%u
U"ekEWL57HC2bu871r5Cn^pqANnbZkOdE>GdB#aW-bBU'm)U5m]Rqm%Xq\)cfsgZE
U"]>$XPuRDab:?wFaj)JqoWTfPK5HF)MNnQTDE/2F5LHnt>('hgn^_44:nbRN2[Be
U"0_YWHX;$]B9CWw\NddoE+BmOKi$(eE((i,n^qM4k[:^4<[b,suBFAWDtG$)cMBA
U"jS_[K3bgcWf];&_r0ZoA;3WFKkE'(f44Sp.2.7J6Fi_tNFx;m_0Q]Ex?p957IRm
U"%ZAt.:HFQ\,h8B[*l7=t6]^TQDtBAt=8e6EcEOQKrbAx?srP#+F$4Q>1It;j6rF
U"h\=TT(l*xM8?31xe(KufkbkEkj$aEo:NgE5c05F]l55Ma4sXqTfH]B[U+Cp-rnr
U"8wMidH3D)wI1DZ>TVilx^D>d0&n(pE2.o^]LK2H1siQAkjLL]DA=q[]TD,\+ad%
U"lsoSxPllA]9>DuYscbT\O&)u>44Z,?E<RfUKu^hlSW)5'eB=fx8LPxk#%/Tq*N)
U"cQ$NRDBVV;fZbv(LvWZGY#TmEn2Fs-j=XThg>\=Tbklw_eeqoh]wVU'5$<0f$<T
U"+b4q#^$3MYLrpJ6+dES?GhHnW?7/1;071W82>KQRHX3hkTEgAWEH+-$,c)jaWB2
U"Daw)fq,'_;-baILjk5232$ZgWlPnM63+B)^X.Az?6Ms[3HI7X2wEkqIXgjez+Y'
U"A_H33X3b:Hdh,dYo1X')qxMj=YO(O]Y'aa(It7t9.XfI]KEX.XYWZ=%r10qe#H<
U"Cq_j$NreTpWECeU;aeCx6udD$hWpxi$-wPVo=^acq4qWR<_g5E\Evg/poq,FhXI
U"$(F'/MO5G/,N6(6??45225W9Q'=N$>f.C->i^?L7g&Ep=c.D-BMiaxdQXB^b9wt
U"zdH8<Vbl$ik>%0#XVnT6>o?wj84pP'fqrGu:wF;G$Y#s>c3+D\uSfY.j*l+,hm<
U"/P;ZP)?224iC_yu2-RH]1+&[yOpadJf%-AoiFoI.g[%AY;)Q15Sf]=+A+F1uH')
U"gq*7tVQeBrE%N-Akyb9GZQ[Iuu%'&mdMu0w]&4iT4-:#WBzhbv15(o$'HG+WA<p
U"LmTGU<Wf(f+(kda226d]aRLI3*3TApOOk(glExEgHb%rb&M?4+4uC<Q?N4U*eHk
U"7CIa'BZM4hD#:F&hfFiK=3YS5whtg]w<c^.iiujkvv(nNS:/gZGj/I7$z\Wxh>L
U"uoTqI4Q47:+5%Ee9iaR=d>5u)p='To#eZ#cDdcigv_xL%NEREU(ILij'EsI])a(
U"Y^JM&KOmPDaN(QGHHO\UEA\peV&<.aLg?zI6hES4Bk&;39>uSoVo/6Jw](Ex'R(
U"Z42e^mJ[cd;E/pOGpr?uV^nnNaZQktqK>$Z4^'[Kf*)]d=UTYY*VJAfi6\-vWPg
U"[ta7:P+?N-%%<<pGmYdgu9Rt\H4l$-[:b>i'EC&0+LflM9DN(Ed'hOxR%e0BNn-
U"3'>aNQAOp)-[dZF?v0(7PMa;F&B5+MY-^qtY7S)'dk9uqU?+wJ^*JSe2IJIlXIS
U"yBnX+c)tUZB*-OrJ9<s/_4y:AgUzfdrqggJOK/k^R*5d.jkym&.=ec]b6s-mqIT
U"1m\E$PO<;[g7/1qaVED)\j3/(dLe2&R,iceVZZ^ildqL87ccbJ+_)XQRTMo))O.
U"IWdO'T)PFR<'eRX'_ZN5N<QSkm?._-.-6,Jj4JU1]dP:VEj4BJfwYFTw&'3?36n
U"\:7uj.DFIIEXQi-)-R]g0:.oUC,g.ihYmOB1,>uMFK-5bPKDBVpK_pbKcgcs&T2
U"fOC'12V1u'y]S9f;e+/?ZFr^_4t>jHiYI)/EWFj<0a[QN>3\qV$E_S[62u65xf$
U"oid4agL)>+5Rf.^<D2#R#M<R7N'DqP/0:&X0KQ>=NaM/i_stYLuw*/MuGr'.9Ac
U"4'[l+U(x&UO4%SvH#gpz-k:QC%_$pNI00LL/+M>#4mVuB'9bi#c[R1E=FoBp_77
U"3$(ru*VIom)X*Om02jPe)vC;Q;L;Zq+K7MT+&a\H*mJkKFs1EX+h0.NKu.uOcZ(
U"bT8[wa_q$=/.<Nloq$?Xa.wsZ0Pk'#h0<S.F6Ok'L#0<S9.6Ok/'#0B_SD5OCf'
U",01BSD5KOf'6g1iXP1Ghc>N]Yv<^xY\5DT%5NO&Ejk+kBH8LhFv8J+q*t[>Ly87
U"[$7f8b3?*K+r/R,.e1V^,)+E]IAsOpJYkSpRArj*gad22#,pkd0w5N#1=Y$)?'0
U"PRjmJdLwdVU_\4_Q+kTa_X:pg&IYLM_FWmL_IEH#a[8?8/F0kDILCxh$N'('vZ^
U"q_DS$]>h[swGPM]#yf1?i<YIU7Xhg/e8d.1Rvj\iiatF6F:gBx0i/Xd;mY/EFa+
U"t+Q&B3H>/*Bw8U&MAPbU^%e+i3s67qVzXmTfPbvY+REx?<=3>wU+[IyB0n$we?Y
U"q$>^>Y<+IdI%.\mm-JSZ+wi+e:kCw$sYXc]2>W=z7K(\_S+*wRkia?j)(N3NJL'
U":01F#</.Ns(u7Y\4aGVR4W^DU$\]n9tc*)02e<dF#]NZ5frYI=Nbt(6/D(?Q]t.
U"IfF;f8AXs]=lq<ztCr'y_9[9Bq)pAF&./<<=3ruFLi.3ela9xf6Yw68_$hL+<1'
U"M$*2Qd<rqIf=D5c_j5ML7hP5a.sf*EKgnX-7))bN-=mcI.V\.uvaW*ZIuB_IuH)
U"Lrbk=R(;sgN)yYK\YR3[plxBNrE/R/GX^0dC1\P5J*./WNR%Pg)2xe9Wi'Q[*Si
U"4>eWM?Vcp.ej(kzi3U*O)0BW<Kq_)9m]t%DQ>huQB*Tp/Peo(m(;(u*NE'8j&JG
U"#1LW=*YPnnkzrb2is5/M*5\Zhq<%:a=POe]U78[[gZuqKdu<3^^w22fkR_AaW+3
U"(EK4*6IQxCOLq]uV7Xm&\O6F=o;(Z>/D]Rh8=sGd(P9SeAXo<UxD#iLa)d/p.;E
U"%2^b=bk/5RVXJ;CsO0<NDFySW8/pu3YI+;O#W89ex]9,LMm7&[yd*DNotQ05LlF
U"o7z^';i[v/=fNU/%r_&w7WRfJCU8_<8vmE1bYBY(O-42i4ajXQh(]xS#Q30;W#m
U"OTsga=KnyM#1#5Q,\P##H1dKTx\$NbExepoi-N:FZa5NQl,0C+,\]4jzTRYPPqu
U"/dHhjs,IHEgs892&#SZ^zXkMc0NMfPTeVue)R6e3O'NUp9n]s2G[WkX*P^)GW8]
U"ufMZJXSAKQB?\BlP[TlorC;#qz)Evuhm2QCb:(zS=;kY\O#]smiXIYpU3c(kL6b
U"7q[;U5bO77r?q*0+inN>E;=U>Q\mixe1%X4mK9L/y2YnRz6:gUYU/S(>udN2CWe
U"QhIEn-Pcaf^ZBu(cmX<q8486g8XDb),x0OqJCrtJf$FrbaqfObdMC53i:$eVNZ$
U"m=WZ7^M%*x)\RaWku$pYQPh'f*d])wkT)kIJsBNwZq:Oba-d1A?_6<,<[:8N8/(
U"W'pu<+ql,Kk<aTLY*$K]8;$h*aNA^=RI$v#7Tne(i[I0GkC;[N_jc46Y_5)_PVR
U"9:N\vIFGpNr/h%Pr8IYt7^U:6Q/<&-)jVGlJj>2RcQ$;TW$74we2/'rv=05j5hS
U"p$Lci:M3rGO_$(YV>:b/#R)$hRY\1)QJ;&4W&+fG[JifeL8H5:bNO(M]jvaZb8)
U"\&nPI[;'?IJk*ZP'Jyy'ts[MO=/q4W433lw4O7z^fxHo&3JC)KT?ES;ClrE5/_a
U"5,;3[:op>zAOn;CI)FWSLdsZcd;&z$zcCxL_wO^_iy'TgjY-#Je(K62D+FXQIKH
U"Os;S#:6'WgsL4F,NMs]bg-fLCtYzS9+%_l#Q%VP&o.UdDgTL50ZlhPi4J143A/Z
U"aeZst=2:sAY^*d/l\C_jEW;,/W]cp3*&H;:k)4dwlMpZ/V:fGd6nlHJR1ZC1#=T
U";vzJ[LwoSj9a;#t'0Cn7rmL:jSa]k5j7DhUt0N%L%#?P9,^bKWW2P+y%'F&.b3v
U"eA2lKnZIf6i[w.:EG<ifKa6H'pffjSH]<p-09H9ruM-hL_%DoOLnaUJi;E;7NB0
U"#m0$UBi(feVYckwt0XhwUN)Q<sFV%eBz^5hZo_(dWOB=i#MT.K(^-h/&xP0_OPc
U"?TI<WFyed105+1MAsad](0dW()qEo3.1hiidMverw06t8p&v.n_4TDIANC_fSU]
U"etPi7i<[T8n2HXoD$TJ6V&D2GGf3/5S3,1Xa:VvVssP6a4ZMcxe3SSKmLt0R?-;
U"EuuD?;Pcl%aIF-[Cg'bgwrMpQ8/G%-=bF*FAWpj>F&9[+1)[#dTY$)A/5OHXW0Q
U"dV%v^A:-/W:MYVeT=yAYk]Qj$O0ilYhHXulYdIcX38V?A0[,(kcPujOR+D=Skan
U"5*1%R:;Z;ADqE]Pzv4YT;B^Cvg#mTUO*'+U<?+'M$YLox-*.)j%kDYgw$$6y]iu
U"o9xCnp0j+sVV[,Z<YFz,g?fiil)*U85lA6WfwFh$6&O9I&k>Ti1xkp-:tbVXv=8
U"8&EcTa0ZEeY?FC:YpZ,VX[IKPA5[]%9'wzhDQu>e_FGw-Pq:w)8(kRo,IgMYa^[
U"]&^BN*$D^ORM7+kF3<VPwg?s62+tOeC4Tpwwd7MnwD&,qU6mG(7n2Nmn>&I1G7R
U"5kE8yp:YbMH=X;bcfP)VE./at^Qu)%9_9FhY8wuo/Z,;wCzE=USVB21c-em)D;?
U"#V(h):m;v)=b%j890NSdQEDto0-M30:2G($NA'OnCyoB>Z'C7VBy[A5=4\D<kCL
U"]I&oP#EfYFZ#N0<.M>#4B]A$6\%[BK&k,KFm/IqNjmc4]:%,VT-2+d%i2f>_.T6
U"m(zjjz=,aJfN5[qOr5U[#E_YEMmE9utcQ<Q?APiw-^LX\JD[tdw9ZIsp?f6m^NW
U"nOdE(n/ndvc&.7*%ff.tEX[]lz26*/RHPQIp1O7(lf+f:P,G&T4/)*bW>l%D>_'
U"8-z6(pF*Y7js/5*qN%XSZ<IOnG?e\13gBc0;]#I8'JvO-%2wfKFX_G2T2cddNZ-
U"\1;A\6&'L23-qo:/R2R1t,BVDxAmEF>'a>O?LVvI'H&:3_v\6T^_pZxr4PFC;V<
U"S^bVR=x:rUU\YN-2Q+;PdkpiOvp5I)\J/Z)&/z,UdV)+I7+]yaqcj*(YM+nr#K,
U"1<C]^oYj=B%>6(gYmeBpX+R<W?3+c0>=/r&WmQyn0^0#F>>'hLwQ%bn.Wxwa1QT
U"8(C0DrtwRu9jN,eecfWRpe=>(+?er$6ImjAZdVM(b-,SElHcrV44eu/Aa$1)Fyv
U"-x4KYkU03NA%?BHoI^;tT0kY.?S__T)kYIJHPBToQ'\b=kVx7:J^VSjI:cLm#yv
U"vJ9Rr/^^[jp=N6y7:%k-%:kQGjm7rxe4=Z0M\C-Gt?\rG;'VH3ClhX2+)HRqax'
U"2S\sKo:FL+zb&0G]r7dmH;6HMc3z3,,*kR1x'RN#cdXs69/;6X'nu_L'-'Um999
U"#Ig/?YeHOs9'/3g/X9kO_+'Ww>[v%zM[G/%s#^6*T=x4Co0Pym\D\&WHb;0DBgR
U"&./m*(Z4bFt&52hG<H<7ow$6/ZpjoW8fsl(WU(?IM52>.5=f/2b2HsC32714>25
U"=3e2M?&r%B*0^52o]:g:'WP7c$/;UUTK^l90gi?f6jeb;d5:rJ:%e^R[U<O[Sy&
U"A6g$;xNrUgDVSih;A$Rb%4DD2RW*=<kw*R*iIrDDlG%up(c4)2''MIY;+akwz%:
U"O^gV%z_gi/?Y>;9;MjOK%6Qu.A_TyC]1v.S([<5Js9%#dSN2blsEvkY'KF>?p>2
U"I\t-AL1j3<CsgQ\E2/\PlV[07&_XYK[Y7AbPiFEyG]/;#cXbD+I*^(_zg4k+;mW
U"KeLOC])\i2E2'ELg$;EED#Bpl\2\H?Un2<gCYBlGhqFJvt?S2S^oX6gg>t-sZHA
U"(:e%ann<WKU1cO=n,9S&BJXzsMf_-dKb:s07Nv]enQHG.dg^eks\j+AnQ)]*;,h
U">ES/EDZS[Q$G0K7B?m4UqAR_N[c/7?0/5s1;1)v.Zk>XAkUY:.Oio%elNS0f%a;
U"6]Vv_hXZliEp2dNik+mT2-p41n;Fb(8(KX1p7/l363e<,(Vs_kVOqc[aRoisqRJ
U"V[sNOZi\XmUT&PB44Z2yKnP03Q7F,m'<QI6))>F*&7YtHe#KyWGFxnY>Vum]<[O
U"t</6E/wXCe0y1+l3B->^(2014+O>OA1ceXA?9?bo3Xk+]Iu%'Rt^#7Pe'%nA/00
U"^$M/;/drio\d_iH6]I80V_xQ(T>G8#sc9.\aseA5.v0Iatlod$(g8YqX3<Zndu^
U")=>)^afSHs^<W'_0j[b_&:OAuZ+*V4,$FG9vHW%,;L2q:?p*9i)M3g0hvS#g8&Z
U"ESS0Qx/NmiHjgNmR5[Fq/,cn_mT(C-0][G-i=/A6gW'JP:htf0^N2^JN%rgT0/,
U"X?Cw<iGcOhPZB<'-NKk4Iivgjv/:(VrWD;q&#PHEzMcH<s_G\1j,?('5^gg^A]9
U"AbS2'#Q)'U,Vb'FE3BD;&*)D/_f39aI2,kyg_k^X-2qN#.qf;0m=VhjBS1W#a]w
U"_NbIC-GiC,^t:i/4nL3(.&vOV&u6]9LiWeS31QbHLY)V[[mGn=+MqX-OKHS8Cdk
U"scmx'';uAIfkH9oeP6QiPLl-G-:L.O7NXwUUo4N>v<I-NrM+R-43U>$L[?gZ*2=
U"hU7$);2-AU)HN&8OR*R1r#mA2XzJ<.e2]ua2k<]TmU%6u>Kr*&\hu:\1XPD:pns
U"_^rA[#Hq0Y2?Z[emTYu/qQw,:_&jxu,M=XyG*U2:Q?;vJebvsKVM.y*Cf#uvBkA
U"l3IFx+.LpW.*r%(n[W/cOm,&?D01n,7=&Ff.5Rqgs5ZE#W-b[Ick=r$OP52(Z*c
END SUB
SUB V2
U"Fi]'GMK5;]W0oi[6/sr%7AxaL^/A7K_ktZt>/mmu(%X:10'RfVKgR20bWHlosT#
U"^wt4dO^WQ#DlEDyBpJf?hv.p;4mltQM;MjY]D9aDbBB<z:vq&?++?%[ND&SO\3I
U"ob1(t[AjIYK;X&/=GPSj2k9FmhxqY?v?)VcxIJ=IfyCj$X55;Hr5xD(M>TGG7D2
U"V+Pk5LD*mvr*=y*NGfJK7X4r&0t/Cd8N;w&_^B4hrG%2PqlBVGqlvuEx==8V[_M
U"r>OrA>PvCsM0TlS;=PD<4\)YOXA=U*B9=m=ZXFWe$tVJgbA*\gRSwt8]oQ0us=(
U"Os*vM%*##z4o?5P?0>Nh?XAg'Swv5n&8Dym)k/AVnGDfBNL9h0(y>rJptZ,BT_N
U"SK-HXoP74F8M.4F&zK*J%7nd(B1YC,f$KU%gQnHG(41WTr(+%DuiaMjy)VcW8Oo
U"?zqL(?txWA4Fgbhz+Pl]XiCNVE]gwcY5O4_wQ&0OwY7BA\Fx3(m.Z8:xyn(Kv3Y
U"p1/?DQH)OmHgHgS&Pl^EmHZ=+I.3;D3=_*vY&WD3Rm2RS#(N]F_#[u)_D%,r7e*
U"+d&CV<oElC,n4YeF?1^_]8.F;&wKe;lN2O.P7A[.m'p5RYX-SDy2M$)uiT]?f::
U"JXLGQ*qpg1)GJtF+5l&7(tF';[b9^iW4k'07>Jxf\-#[5&'7<mb/MJ)F_SWcrvT
U"5,Pt9Z:S_R>$?f-'g3CpSjC4U7VFBBXV/0gLq\),sg>WGLoD&^E[eh<D7TND',H
U"L^N+\oM5T*iWhA\w83j%I:.E=OJH1^'uh*WfECjE3Y8'fFS0*?NCJ9OloC/0mBe
U"nfmBeBS4Z2yOKJFwS6m$0JhFlV3sL3zO1;H'S5m$pqePG<:W\GhU2nQ)k9m<xcH
U"m6dcgYk#lj,L=ATx=GCuC[-bSiD$sDtZ\qX?4D^Y/h(04qBqF(Q%_?BVsiE>.hA
U"5XBdoc'OL;oLTL9F=2BoMAo,ROgX2\fIOCe*D[9poAh>A3#1>8.>Mq?c^uG_n1Z
U"lYNQJ]f[=kvN4ruLug]3)m,^5a\,N_5+(yeNZj,7<5-Z(C<2Se3FWbna+;[A1^M
U"?vtd*n)[xqzFU)r2vb6YRsS>14z-bZ_[N2IrJIn;oP]bY;&C?4WN[LGiI7lAB,x
U"zcYbTkcK+WKB_E9vt$BNvECRkf&J6,9.ZVD-Jb9-P4.0:>2?Pe&^,X11F,D%v/s
U"&v*/\CS10p1W7392^+_kcY972MGhnQ<#aCfSw^YRKMOE&H(Ed^1?Hj>6[;%Pa[.
U"3DIr,:[#H%HlJ%BG^\/A4(_G(_u8(_/2(5iX(]IOWD.^,hl.aFk8CcD-,_\bR$M
U"-4c*8dFC/>;UKWYqqjN3r>s_)6QGa>QtkpmD/_/1V&$6a,tQIL-J;d;kQli>tN;
U"t22>l._k'82fP.C_w#yWOlASok[Epsriaj5>'(_f#?OuFEFniFux5_/2)fAOOtc
U"#TK^VD<G/*J(rL;\K6nb[(BHb<Q*7?66j5p$t7Nx0Uqb#q-M7Q:m<M9MMswz(iK
U"'07_X2;/_$a[9EE&YZY?6<K;Cq0&=\^('tn05n.Z[N0'pkx7$KVLDks:2LRM&Bp
U"b83TTMOvF-=[w45]EFcD<_8)+t*x^J,N[Iu,#U([p:[NS,''2dmOSdV53E?25jx
U">>(Nl*cNjbt0Aha0Nf_Pe&<YiX^*F\.T0_?]'Yu+)2;gU^?Lh2jS10Gi=EOg<Sl
U"T(WA[#([w:$a)X</+K9uJ2?QUmbR[Dt'HqI?#G(%Sa_-bv'VoTLruO61qN[i(7e
U"K/<-oSBw\[uN?eu8h_s_)C6GOPpD1io(guHO7W2f_G.A>yqKh>LRSTf9R\K(RUY
U"O4aU2&M7F>DzaH^Q];qv<9*<^kLI=u:(Rbp\Ew7LJ,r+Ah6=HB,A2=*v)2R;1++
U";hH:#f+%?JC/:M$<m'1Ejb<iM;.WZo*+gcUAs5uxEDeDRB.En_u&+$B1Qt_b:'S
U"^:KI&\BGXBNiCV%qO;K?q%):Oel/JL=LX,7:L8A%%_G>4/A#k;F,1?e0#?,Fu&'
U"33JRkZY-xe;*V]8P;>V/h(sfP.H(i4FT+Hjt/oY<=JDO1N'R#;.m4,?[?^b3M^?
U"uak7&J.W2NpIxbF;L]E#dKnc.tdfM.2.E0u=my]7]EUu+jIE\vZC*>B_273zIQF
U",<a6s5\E8Ak=#8/]9Z:ZW;I)-YGSBMUY5+YHhk&FM/HZ,1NJL+y-cW]\$\.WyJx
U"]33iPUgRC$I'7kT/C4+7si1I1S1]E7f5t1n5=;xWmp^pZ2otKL;)-oH3eg<gSe>
U"g'6-KvV=aTu>Q']V69Nc*\R*^<qK>.eEO2Q*1I^a^[CUX>yC/m?RFC]Zi(i,gks
U"W*CHo]WYoccP4pULL10FCf\#o];W3>I--;8&/a5hxzv4jB19.E_NBJ>Se7CHWx[
U"OEKeaT$Q^<Y0SYGn<vE96lUQV.\]q-?)T.%5Gt.P:C#&*?7g8HdLg(WD7mNUAVR
U"B\eMUGri/C4[rUFZ;s3=9HJBI+vd'5GD.$._o(.IG%\b/h?G:EYkvY#R-.%.$Cf
U"PSwx&=TRd:)fiiC3Ir=jP9%oS<Kh:vo4CeI.OaIp+VC<P4d%(vo_G<:;p-&kFZ<
U"H.5F;$]>QAr_GL>Bc2V_QqtSw3LQV8$OHs3Pfng?J5[?17$3(Zz6RlKU,[yNYrs
U"(-Yv;tD';oMN[-<S0h%IOS2R3DDX9OlrlU7>R'/Q=m?s]p;klRut5AVYdP[4?iD
U",'VxPh,Hq()6win'Hd%>:#6Hy1Sl>5o/]y%Ti=G]]NZLmr('5s&>u/eAL_R&ap$
U"BSfGkCTzl9FuqrX?=xnFUkW+a&CZgwD^ZjIck[[Ltaw,/vMmc^r[Rq0SZ4F40LL
U"3jl[cLT8/xm&1b?1\w++AW&BVm'n(1V1f$^-if5cCEPH'*uL&j3j\z-5$q;Ah<g
U"GFm#yY*6*mW9+as6I3a?Hcu-m^rS0V%nJfeC2*&+POo:Vq>5BfyF(UK:4aJFmke
U"'L(heUVwYSiAEC1^?mH%,sz3F97.=PSq;lJ3&+V=+ta8rY=3%0E,eNP^$v#0n*K
U"bsiAp=N%.e.l2^ER\Gsp^>Y689)q-43ZEa#.\umT?hXka?QA27ppcGkx-r^]x9l
U"t4AD69C-\]XZ:gQkiX&N^3]mHHrJC+8RwJsz%A;GVJXcIR:[Y*'XhkiXBvg3V97
U"JM,-K-tn$A>yrsBtGj8Plhu.12M69c5Lv]M7XZx0?(XZz&9k'5uixInj$9xx6Wd
U"F)j*XIvR3UvNQ(Xx,]8(/,V<GY*-UpRy?.aKg+j9ZTHuBPD0*L)Srh5Zh-7b/Db
U"-XD10;,o0a6.Vv<F&qqcTg4qVr&qC4$sfxZC:X=OIN;sONG2Dd$-A>qAwe7B7as
U"/+2N*aa,X;q^/jYID\y<HXk0Lqb4q$I1PvDrYBs-yQ:ltbW/ZZP_,a?Q3ca&880
U"1r/4c6CI,Cnub7eTc)RELjA&fL:v_TY:FMc9f)j4.G0PrSq'[Tc3a/D$1tG'4F8
U"1/kj;H4#r>7uxaKQ.)x0mnQ[J,&d(DD[<3YP_rFzmI6:6=Nqsx7/cP1up+.9MI'
U"4K]QiYO-+e&fiXye^O1A4w\61,]mb2K65e^Aq$B;;]5)W7ejc+DC#]&#wMqAPTs
U"a1SfWU+\RC=hPoB?EcI\F.0r0H'9W9A/*#%IQUob<(c;hWo?+=0odVqE,/%H1W,
U"_fc*KRpsDpxLtoncD[/gP/AgCetmeb6%,td6-dE*zqfo,E(KN*PbraK=+-h+J+f
U"QWB:T5m/7A;#V9mojf%76lHi[5YC'c),P#A7b%GxIc%Gp[pBBLzj44<bdf.S:qu
U"K('p^Q\eEyWXPfELc-,.5a785>Bi+dDAu+h%31WV?ATpC^N-3#u>dZ1CMof*TiC
U"W]F39l]8ITYl=?5Q-8N1Q;o7NQkInf+EFP^byK=#W^oO>]hO[x:zj?^ve,-oj[[
U"yL\D*$4)gkXPh3*1m\0I);vG73)Tx>GIYz2blp0ZXBZ4UAfP5t\d&?j'G3%do]b
U"BD0$6KA.,pO)F7WOL>BHL:&.DzFboLKp/gUVknX.6rdEWV2KSUp(UP+co)pL;-(
U"=P5q:Hjn<UnZ[4aj8*orZVjQ-k)'OQV]IBV<4N=J'mypeB'W/Rq6>;M\PHZq&Wp
U"n]+7?IP6xA%T^Q;&CpAUQZYVKSNK/C$>z4tBS'DMj-1GT-fA4(-lmpv$-Q1XW7w
U"\K7/ojp[>3js;v-BqljpTkL-<PzbH++-bOVH,4IHbm&t::gjY(cA^HJ5)2]&4nk
U"Z^y%$2K8[]F*dCM^a0ura*n[e6WeXJFPZ]^LdG(Rz6JC?q3k0CBMG.cChSpbH?p
U"n7CI9N;(v*u'(sWvr9*5*If1n6>eXpz;.:?I'/#dG_K#x,ceU_Y9hD'ccC()l=k
U"Y4<-]EYL+CrB2X3b9RdsvR##yxTIUj=h>0(clm'7>55mYV:(8F%A6=p*x.-=wJ>
U"M8wIs0pA_nC0W9b\6v][AG/OPL$>dC-VXMioV3a6^c;X5(B_t\+<=;bG*%cY,yX
U"Cy7Od1.uN:7QOP67.KnNCN;e0$d[.3[et$s=$4a8x3(&qi2?#?TWjcsPf]NRKkZ
U"jcs>Df.i/Mn_dno^,;>ffTN8B3LE:1D>=c%8FwJ^3tu#Y'x4^PF;<y=Nix)%up&
U"'%>%9%%%%-%+a-bGRsRjZ%d&%%'%(%%%1%%%%%%%%%&%E%%%%%%.%%%n(j&if%y
U"fSy&'yup%&'>%%9%%%R-%Mi8BGe*8u/,*%%%;7%%%.%%%%%%%%%&%%E%%%&8&%%
U"%ifyf#VSy'%yup&%'>%9%%%%-.%M#^:M)%$&1$%%(%.%%%%-%%%%%%%%%&%E%%%
U"%h%,%%x%jwuS%ifyu%p&'>%%9%%%%-%EAA^MH^A+W5#-%%#%8%%/%%%%%%%%%&%
U"%E%%(%s,%%%wjf%irjS(y'yu%p&'>%%9%%#%-%T%0cGI,TxrP%%%%\%%%%.%%%%
U"%%%%%&%%E%%(%W5%%%rfh%wtSy&'yup%&'>%%9%%%I-%9A.^M0'?692IR%%CM%%
U"%0%%%%%%%%%&%%E%%%'S5%%%xjwu%RuiS%gfxu%p*+%%%%%+%%+%t[&%%5%Z%%%
U"%%
END SUB
V2
CLOSE:IF S=199AND 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
