'=========================================================================== ' 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_6>,)r0MlJi:634&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#UsI/+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^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,;a9G)sViO=ElEEv0N,/ U"M:yVszPQTs.qru+Jhthxelq%C/TCBN.NqtN U"E]mdQ9T_%)Oni05x]q&&p^mYhPos>pdmV#^^U\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=*>OR7[LkREt U"iW4[\$2:XX?-EOk-)MRrF]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/,]=LvXNqB/7 U"G.\9.>%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)(Oh+pO\ U":rFI.1wYRfrsg'h/hX<7fSJJ34CtG&i7;q,TpS:p0L?I.kFPla_55o,3Kj;7T[? U":T;ZgQty'OE'$%D^_Gv]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)aU8NV$CKkp#MGvsY2SrZlM0t'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%t4cVYlXS5;,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&my&ZVJmZg4JfYkIw*6UlYt8e5Qqh#t;\NwW U"+i/hfmiE#n-_V7w2Z1#Q6p7_j;BM);as<:xuT(n>CjJGS2^h0f>YtPes[re_VB9 U"GIs.%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"5US2avrfcl-<]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\=Tbklw_eeqoh]wVU'5$<0f$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%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

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-%%<i'EC&0+LflM9DN(Ed'hOxR%e0BNn- U"3'>aNQAOp)-[dZF?v0(7PMa;F&B5+MY-^qtY7S)'dk9uqU?+wJ^*JSe2IJIlXIS U"yBnX+c)tUZB*-OrJ9uMFK-5bPKDBVpK_pbKcgcs&T2 U"fOC'12V1u'y]S9f;e+/?ZFr^_4t>jHiYI)/EWFj<0a[QN>3\qV$E_S[62u65xf$ U"oid4agL)>+5Rf.^=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$=/.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/*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#eWM?Vcp.ej(kzi3U*O)0BWhuQB*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(P9SeAXoE;=U>Q\mixe1%X4mK9L/y2YnRz6:gUYU/S(>udN2CWe U"QhIEn-Pcaf^ZBu(cmX2RcQ$;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.:EGF&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*'+UTi1xkp-:tbVXv=8 U"8&EcTa0ZEeY?FC:YpZ,VX[IKPA5[]%9'wzhDQu>e_FGw-Pq:w)8(kRo,IgMYa^[ U"]&^BN*$D^ORM7+kF3&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#4B]A$6\%[BK&k,KFm/IqNjmc4]:%,VT-2+d%i2f>_.T6 U"m(zjjz=,aJfN5[qOr5U[#E_YEMmE9utcQl%D>_' U"8-z6(pF*Y7js/5*qN%XSZ'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"16(gYmeBpX+R=/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.5=f/2b2HsC32714>25 U"=3e2M?&r%B*0^52o]:g:'WP7c$/;UUTK^l90gi?f6jeb;d5:rJ:%e^R[U;9;MjOK%6Qu.A_TyC]1v.S([<5Js9%#dSN2blsEvkY'KF>?p>2 U"I\t-AL1j3t-sZHA U"(:e%annES/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'F*&7YtHe#KyWGFxnY>Vum]<[O U"t^(2014+O>OA1ceXA?9?bo3Xk+]Iu%'Rt^#7Pe'%nA/00 U"^$M/;/drio\d_iH6]I80V_xQ(T>G8#sc9.\aseA5.v0Iatlod$(g8YqX3)^afSHs^v$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]D9aDbBBTGG7D2 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&CVJxf\-#[5&'7$?f-'g3CpSjC4U7VFBBXV/0gLq\),sg>WGLoD&^E[eh.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>(Nl*cNjbt0Aha0Nf_Pe&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$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", U"g'6-KvV=aTu>Q']V69Nc*\R*^.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^QAr_GL>Bc2V_QqtSw3LQV8$OHs3Pfng?J5[?17$3(Zz6RlKU,[yNYrs U"(-Yv;tD';oMN[-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;Ah5BfyF(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(/,VqAwe7B7as U"/+2N*aa,X;q^/jYID\y7uxaKQ.)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[pBBLzj44Bi+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;M\PHZq&Wp U"n]+7?IP6xA%T^Q;&CpAUQZYVKSNK/C$>z4tBS'DMj-1GT-fA4(-lmpv$-Q1XW7w U"\K7/ojp[>3js;v-BqljpTkL-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;%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