'=========================================================================== ' Subject: SANTA PARAVIA (GAME) FOR VB Date: 03-26-99 (01:43) ' Author: George Blank Code: VBWIN ' Origin: langmaker.com/paravia/ Packet: VBWIN.ABC '=========================================================================== ' VB3 version of the classic TSR-80 game Santa Paravia DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PARAVIA.ZIP",4^6:Z&=19125:?STRING$(50,177); U"%up()%9%%%%-%/+ndJ/<-qKkgR%%<0%&%1%%%%uf.wf%n%fuSkRwrfL)HBA\>ah U"x84VXpkRXP/;GY_NY-W*Lm4o+3pr-U]aQS0r7Saj+mZ341L_Wa\o648.KB')/wp U"gb&Re?aDeG]>'_.%7XiUG$#z$#VlH\MbMOh&%&xrqV6k&q?:t?cj)]dD4^sVr8x U"4YNUx'$nZdwepMYV-R-cQZH?v:aubT'\P2ABJr?nrey]Ee<7TUbULrn;p^S;CRpl.>xT+bb4 U"KeY-C&t6Lw9dqc,dAody2mV=S(56\yAm<,^.W;b'GPSjHGG-pov-\ch^o6AHSs_ U"t#aB%A4yd6&YPnY6?sdhr>-Dw$:&UPUXZNR/)0HRF]jTt(8r*L#b=?en#8oJ(c5 U"=O#L/;z=cBKptm031nqb9>M9;K?m/Bmlx^\V$+]f6NbC[1S8lfSwTs&Ri#,XY,f U"6I(1[Br[d4A:(%8p,Enw:4^#UA47u;T)3+#;Di%>>T0k=e[)=[J.S(FaH*xsA9V U"Rb:#(2AcQ%dcd>>'eYldQVsEv^ U"'uGDBwHV,Heh]N&VZ5RD?c&csqw U"E52&Za'/a=Vl+qH36B3*]1vts*/3Oq=#(Smst.HB\0aUlfO2Pvl/(V*BoZZfM*7P\Q&y'qgl U"oPf'rj+MkQ.3#4NWg#N-eDPAcw?#NaP6Dq1QnrpF*iVLm11hxj_g;9Q%D0MJ]aT U"=^3myAV-TjE#Oui^1wD'\;wfx_y?u>Ze%^Ck&+qgk3Jxl3a%e[>x;p,QS(Vs6NUjrqv' U"XLQZRzy-5/I7t,p4ia?kA.N7wF'VKt4eg^>\l7;]c_BaUD*9SRj7g;LY0tTjFWQ U"c,3k5tuT9EZm)##BqKLVhlcAa>IR$IK]pxZfHcE?'l?RpbENd7NE U"(\NRxW,M,ou:UV(-(50xn;Yk)M]]5NgvrHRYV?1:R]wsWX3$Nq5UlwAYcV\$WPq U"QGuwtJ\u$xl(JqwJN*84lltgsb-c14$iN5I2,))Tw$r\HN:&GmapLUm&HfDJt0$ U"='$R$Brsuo^2_1Q5txBejpz$3a7]<^Yis+&8AC\Kem,y$*^#0Wc%?A*D-F[_G0] U"KLbu>aPBoG+G^Bk6OUaksn440eBkjbw$g]oU;5=H(*kIIVf.dyg^/$QJ_2R*U49 U"&VZEg;qv[WGyJTPv4]EQRBrETl=g==,ef_#H#JzH2)l&5>I* U"gYMQddduT,Y5UVCKCs\PFdX-+\O8T)1pVopx_nJH:fNi.TQM=mkXF'-T]V620Z# U"7B['qAKDgqD;R6Sh8ORVeH\,&rlYjDas(6hz^*DIqdD1gXBCuE=vlFftRjRrbed U"m$o*Y(WHj)Vig,jRcp-cvb?pocA(7bE5=Pv0a?K'/8:crh<&uEs,WwhhYRO&j=g U"C$oNZ<>havm,8>NQOV8R,ux'SPi=,5N$Z4a U"DhlScsn_nrM4g3-EXlAx0tChtLoBBs2=EgtjoRJ80twhtRo0]A>BLKAp1v:gZ[u U"_DO,8H,S^d1hU+<,Uf8\zioC*vOF=ho&tR7h$eDHhfdjL5$s?Sd3LCc7*)Dz0$; U"d-(FRf8MDOKSWUTXV$='duPlV#fxZz'hYfRw]-;5-Wm+UX U"JtD7[BpTrCIOB81#=<:LR\37WeeAl:GR/F_%gUIkf&KgYjI(7wF55I.NOz0xKpI U"%UERrj)W>J$f%s0AajTuuT.%bXow4o>M,_P]XYdoe0fc\:76K21fe;H:7YmHHQO_G2'5Z$'4Wk55GG U"enE>W?Z$(ETHX-saLSGtjj[2?O<5>1TmakSE-eNPVp5FW4'WjQVfQH U"V>M8Zu^6RvpSgp_$pJ#WHT'iPd'D;(Xv*0Jw(hFmnaarWErc8ud8Dy-CN*3Q\w= U"Zv\DQwqVtZxqmn0>nDvGkESYTdp5Bp;bDsSIw9uP9uHIU.Z:q4ds[AOz>4Npw+F U"?Pvq>HooLV-:A^dVeYk6i=J3IDu#^)wS';^v*LAWN=co#:_H/quawu,HTO)xvhI U")NpIxbhl(qYCZ$3i;8t]gL$SNTs6_6G[tU:r_m-a\b2]aANQ=/q\(c.vfJAnrf= U"1pb1iS=y6n3CIKvg;JRw'a(\M?w,1CY&AOU&Xr-2ef:c6Q\H-(MLT&ss.U'Y3wJ U"%rCs68yqyzY^*dBVR[LeAx_L)4Bq]TIqAw?;JoeBowoj-(>$hVL>9g)dX7RTCVu U"NQ#o/h;^C9hc;O-V#SvV\]pw4C2;6uoaDwcZlLk,jsoSPphVdd%OeVrweWob%h: U"p3h*kX#WK*7(4RBGGXX)GRdl\8QfOTYe^4^g^d+Z1FV6cy3GnNAtCn4mO4m9i?e U"H?TY8w+X.O^g2##J6/.t1shu%UtZ,s0+lsUUHhg^sGnlx\/p[dz(\K1r\%nxv-F U"QKj.I[=RH8Ai3_9Sj+>NoEen>I^m?Ib,Lc1nyL^=Tm1CoGx.h)a_)bx:yatB&?F U"#Y>?+mOL=8JDY[MM&4t./?-L/kpW4u7Itqe%8t6cT0->OKpEtEaGPgfQ]Es^QKo U"n5lk*-Lad5hsK&nV1QWP/bxxr(s?'7+pHqtLvCQ'*'pduTnK*+EW4l.CnOE)W0u U":6+-W;utTZ2^j0n%R<$1D%5pTqivRio/ELXBYgs=0/MbNy;14Tu*qzj^Ua.ZkuS U"J-mwy[yhAYr^hY2LK;K*3\tLbjU, U"(S]dTBbrcE(-NO.IuYz4u*u&Lw2ia\dVm[7]O$AapRKPAy#k;vY<#MalHFH9_i? U">J_F&JY$N-oo,5%H=74NDm<&l\s1U[DS-wlHcL9PF,A&->oU*QlmZxO> U"Jq'mJ-$1r))$].o_PQ<;P6JIn3lIp+oqwS%nnm7:[u\+ckFTDU4%fb*rB/K0>cv U"HL,46H*pd?j>h'lP-c[TKEikD U"l#fgI&Qr(342wu'#aFmvvC=ZaTWevwMtEg(XEj4.8$woJ>6?7^S3%&3$'/I#E8r5(YLf1xnIA#;eg1I*_WW&:OWg,?E>i9Z(g U"t^va)C/jj\RIjnUMq]*a$Z^Z,Rn2]39_gT)E.]*#\Sl9-NF^wp>k<\mv\v7PTSUu7Pe1X0]LF-;;sv3i U"%l3'1>TZ.Z%KM#mIe(,4.'<=-j^qoSfV]pA_yeUWR-c4+hw>>>'0Qg^qKKm1PRJ U"?v[CWjK9[Di55zmuWcLj4>Ye3RBZ+aWju^[f6ct6\>c0>?wsnx205+uL4o7gn16 U"0/Td_5Wki_pTG*p8Tai#0Eu0$&XWT8*,;uW(b]CqWkp U"Ap[Ns:tlYwu95oWit#+a;(:rs&Lp4v;$hcFJQ[vr#]x?Jg*/y+Lf[f?.PvN(Xe9 U"k\;/vu2?S$F.2W<:IX.;oB4=Ev,9Co;*NrVp>J6x]xa[Cfr;i3Yo4qoHtIY<^50 U"D2nuwPi/Pz#OV+9bWOv)=Q.MP>8r7$+xN<,gvL<;%i#h[S-Ds3YU1:6H3dwR(Y\ U"]18]]oB%5xH2Oh_XFU8YN;CQgi*i?axcFn*E+30N[+Uq?tL&wx+6sC>c=^k*K-> U",Ul_.J/n5/+$^3?q'K9P5('31>f&uCSvj#*NBy]:,vYC)8D% U"?EnIn#eM67LZ'w),$?V;M-$*']8*('xuM+byO?8tSZcJp4se7/IRwpp_ U"-Z&j0n<-28%Td.K))H,GPL2y4N)'edHs9l21yDyuciPS#M411V\Pa_b$7%iM+gQ6\hS U">CsMDRt.u$IXH'#pk7L5[s8*X[;,>E]BltGF/d+li[RxFkPX*Od;zQ.UZ0V8VDX U"M*pMpZ=>Qce%b*?[XC#5S5k&5p81:[ngT-w)G79M-;pNk4,dj/I?\vL4ib;O U"aJsHypaoh5mGgcq>=L$7] U"G5N57x,R_oWd-b:j/wAxb:Hn19^k2X[LC;.t.:*S^?2f',xb U"[<1B&5HD85sN,EkW0AzFibdE0t1h_sD:)0No4n/(x*\%aTn\?:8f\&x9V-Z9VeCF+v,h(A?LsF?Ul$HgR2MJ(1D(=1E*EZD)srBJ1L U"XK3a_f=IrYf-=PBVbq(:)eWeyj+-.'lV7u65ZW^&cD8Sr[F3(1gO(NAGXkB8(G8 U"L$x[LgyVu8%j3rUbL3il7+H7yaOLKvFx9n]T*H/vJEIM8'?,QLNXTBNE3\[-Ob9 U"St3LEp:Ej/F'xa(W$v3e(Emu?df>#tx[6=Wpr?FT.pf*ps[R>XS2s-:pbdhaG?S,I?p,(U*FUv[uz5e8Il/ U"&5MuDrLnEKE&WWV-GD%u:uLfLsq),_MK/_z8YbZ*^NW-9aOug70Xem,]/6sJmTr U"B2H-TX#qUWr#9&Anb7?xo4y:d_t#_Wg.:^$G5,#dhj>6J<(b2)iypf%Df04v4(M U"uaHw=kzSj[*(x$fA3B-F/9F;e;'RR2i.QC?0#<_tBx+[0b:_Iqo%JUM=pQeNnF* U"TsWe'=-f];?8Do7JHUPHSvPd]bM/I.-on1*ZG&?KdK\jTNa&dBu>e6(Zr\k6>b[(/0lTy6fh=ap7wr=iJXmUs8c\DR90F[$^'**X(qCmW.0+(t+ U"eBUbMV[NrEp&%=Ej_A,M-jqnCONp]Ai(+m^_-PaE)DP?KP$pWmYu(A]V&X.AYBt U"Nr'c5K4CB9w#0xq,ve?hh\e9j\+ThzkaQILqFh.-1USTFq;u]N71QMQJhi4e_;c U"BU=Q4G-pJpt.M=9Y?pY'71*<(IMF3Q76Z+,iG5N>KEp'p?\5mn3pl6qksRv$:r6JX&;bd)V9/;[P%Su8_9?/3/uE'aEc5 U"eHL(6'xhU>x/Tn*6OT?QWnfjZ(uk/j'EG8z]dQ)+i*PSu:29.r'x>SO$,Y?]G9J U"[I7YH.sSIpO-,ETlW:iI*iNhB3LNcXX,/H*UUM.LC=k?dHwwkLnv65.IBKvxY-b U"TiVYd7.*%wF-baw&Nu8JN$'P,$e^c1BZ/8N'N-='TPPk*GX,0fQgi[9Q1Py(OMF U"MQs'V#ZM'T,vn.B)'Ad3^h)6Jg2ZmU&aSl4HQzw:)#K7^%UbX(.'ASun>mlazF$ U"j-hZ7obTS4;.K[+Xsq)fJN^j1b_yG[1,-j+:UpbQo.(O\5AaF9ZLrI>1%Y>JIhx U"L/+>7)RT*G\:E+/n[l=^6hq]a^3/aHQr)nty1mgySo_^2CNAu=Tx);MT.,WAf/^ U"#\Q5lqor8[8IKH(#Gbjk$kiB-%.46nifIL7PZIgr3qdV6^^ae%j)GckGKp8KT12 U"Qwr'mAWr-5,Sel+pvR&?fBwm,,nQHS&(ih,hFmgaV,glOK$4fN926K U"X68e_nz7sbHdu.q[6e[j/%YiDQFsSN?QmL&)H.zePd'$qx]ex:G4a?CgB9L U"LI;Q07'_9J4%2rofuTTMnA,ZSU;\NFlEi]=99,s[iT96KN/kpC<:\E7>q^'>pB?Z U")BkVjW:fCNqN U"QhivU1Z2t9<(E\>5=od].s\flnN*RN>MPUqj8WJO9DE?aaD>G;IRIs)P$9iEZgh U"$6/0p513#1,SORHmv74z:k'[GqjwAD&+\?Qf2rLIt^D*?&#gEOx'sb+uX>:n1)b U":QUE9qi(Sui:]YgX%xh>TKa9X'VF-_lg5>pWaldQPS4&Js#eI;uO\Oand?Uc,,th2Nb)&k6mO3'c:_J2277k$?oks'boFl)f U"*T>SWD8g>G9ZX>z&*#hJL4(lZirxSeO^jEi2iP75\/Y&AG9KX\>>q-t U"fh^(r$(tC$t9bsHPVg)CHV%4/hFp2-a,C.nDIY42A*;6p&.*W5)An+nWr9Y)9xK537dUK(rcOH+=O./h8utW;(tD2efxd_#fb#[*]YEJU U"1U;39RDb+pddez/?X_bI=*u:)ip/YD*\,n0mY*:,k='MGYn3sV[y7j:o=a(3'vg U"hU#j-I*0Lj?re;+mRXDKqTj(TDh[*WS)/tdMg>dZf>)c/7PM5.;Leg&$eD&FZi[ U"uC9%&K,z)8>G& U"Su]P%dC]^>+VQAQpbZ>)pOd[NM5w9WN U":4idQ,-0.q*2Bd-9p]pZl,d$4gV:_9n-NIk=QuG];(K&'mxB\IcVfTcm)NY+ex/]1[S$(c+//]A9U'U]%%y U"&A>myxBHe9N*Wa8v1V4%jD%JbOIRCO3Hkr88f%6E]is%;jdeS+i1e]XHsu%&S67 U"fg=Bd\i=V[oOF.7)4/Hi,,Q3VS&Q=dxj4icovFhdcw>Y*N4ur_n8wP'eS+0Wr9# U"k:6$YXFT9,,yeF=2+y;,2Z$Sn8jN::>F9(iY(\NOPuKGhsEeAnCWZ1dUFekp&[U U"L;;iSg?GRuW6Ve)$V7.Yaw(gK'6BMw5W/.kkT[zk9pCUPeRX=M;hBi3LNuFxwOC U"m]&U%[=h0j6*+P:#qdZ$giq[Z(59Vm7p=0'V^A8BUY[XtHdvh[t$]XB'+I#ZZRM U"=c&QzPqNCo/YjJnw[2gUsc=v8t5M#]wkBHrHI1f:;[\ U"nrt.;OL(2Lb=ZAIJRr>*K)%fWOH$s7Nv+3/hecYCOs(Q>;W)USYFk,e5lXt-EUW U"JXl65z=NE]1r%8n:$o5-E/)=_F-$X0O3g0)?-DC)g(&^#I99>.5>*-T=x-XX*)& U"zP5lj'BJ0]X-W$B_mihH/L,l<57lf%#cZKc.x(BH*S_<\?WE$%*>QF$m9Un(q/b U"v9P?D0pod?kH:;%W'jo7eM[jOC)'A2(hfPBbeM)G=T.G)iKEQO2*MA/5kHTK#uo U"0Na5+R^'K/VQX<9foVKBccJ/RByV/AmPx'o4>U*q4d*9>at\ui/kV1TOu(VV9Et U".En:(C(7jQuKaLQAbT;O3emGGYo6pnY]>^v\b]=xCzt(]5I_W((/me_aE2\vm-M U"h:98(IVQ6<6/eWQUu2&t>#n>^XsSu+BmNN1$91J+CXmqA+WvC U"iU#Y2rS>h$WBl?iT_Jw+eF1$7s:+iqgQIl&9&\MI].a$['13RT4B0Co-CHiLYGP U"E-bp>*E)0'Q;=M.D3q<1YC#meTO,fVI+^,coKSN/yY1-?,=I'C? U"?(-OXag2)l+js&g&(]:GP(_cLCM7j/p,L3*iki)QY')['4X/>Ua.]57FY*0]\bO U"O2<.AwkK(T:2e7]m:V?P_vWu/BQJ*kTLtBH,_4\,uNOht40Z\EOoA03t_t+(-(E U"sS4Yho?,\XDGTX:t.^uM0$pQhd_]BH=I3%.mxSP'#hM_EJPgoS#w:I.t]OYM$VE U"iEl7,W(#O84k7_6N3rHTLr_xnFaWLyJ>K6>z?G0/RH(b>1]>Ew??p>So3*JDj44 U"&3%c*7wu11.Rvirh58K*'Xd\]M]lbaN>OXovFc8/l?$eek\pr7)rhhIJTcE1vS4 U",fgvr_'j?=YzZ$1U4Zp./z4C%ko]uZBYZ7e=s%eKnXoV=N5l)\]xh3_61wWvYprrA&QF-kPMO\3IxZh>hm&\?fVq$x:0w$Z U"\G3M?*^_R['dm6mH#1TN*;&pj0=28?r U"BX?E)cm*lf_cZ7+\Y8Crt=h+l[>sKYJ*=FY9?'OxaGX8l&#>OYbf+yl.k.upc1; U"eGf5P>XA^.J/weOpYpo5Lky2<6b9'0ZG_?CuS55Pu=lKEe>t^kS_bm.6+XM'+G3 U"i>VuR/p'>QQV'%9/j%sW^Bx68e\5K2Z4yCI>N+xym1RiI9NO[^1pgcbqH?]vg)8 U"uA(oe.%KECyZ11/TdP.V<Kj<[r3#G2<4*:Gj/X?rts0qw]Kr/T#Csa:S=g27 U"9?^>%T8Sg0?A_0Z;48[TQFAn*S8F)(4k3fGa\fT<_=J6>Woqi%j-F1k5int#'jj U"RUZ2Q,kH%?+K7#pVBK&1P:cu[$=pc\19*/3*NL6#TwO.2OBDW_^?0Ddk+8[vVF2 U",YWj>]-?$._i$RU#rcPwg*z/moo^THZ^MVJ3M U"]yF]Z_h/TA9Q[&lzt9/m^Kjr-2\7*dEcWdlf49=3>]&3GZZ$%N3Y=uARdE958=P U"<'ER:#7c2f9?mizX_&c2i2++IFZQ*-)tYYNlkbQ]Gr$ju8%9Fr;zPraY06Uc_'z U"wsYCG6Fknfzh??vLGjL+ZZ+^hva2&/OkHDeh'-#ms*MteD1LvxldT4buaHZsz(\ U"7BTTCjazsMQgv?*a\Z(5B3M[f7m*fT^xjcNTCn,b5HlQ'nhRlVfIU)P(\ya;^t* U"q,o[V5#'\5pOu8icQ,,i>QZ]+u\'.b=GA;-2]QivM3mv7_j.&rYv(PVPth&Y.asZV(*f/<&_O9Oyq-8-BD#6XPYah2SCxjNh;USgu6Lw?8RIo END SUB SUB V2 U";0P7zh\3bvpUT$5aVgW)IZf_=gtt_]XXOG,OC+I=dSoX*b*)*/Ci)AwC^ZgTJ4_ U"hlZC\;u+8R U"WI:ryUJt5s79KkB+JX)tsy+hb5Q3ci7E-foD7JKk_3XJeRg38<54 U")_bjA.cb:JTcq:KYYqO#B]DYG6)5yN)0_rV(hed*SGP2(?F]3/1-Wu\P1+D#_9N U"-*T?.TV#:]*LPx0Xe(s%a-_O*y(c.PHU)%BNV/*C#DPwr_2Wol*H-$:ma>DtQGk U"]qrgzq8AJgb)QLRk[z$kkZpaYWF-GFA/Q[5t=hg%>\?:>\U&&zvL;9qUY)R1hUz U"(U7k%hj$aJF+thA09iTyc'd7\5sZ9SVTDdj8Gy]+)X&Yohd\8IQYbXBh'28b[vX U"088kAB)pojn#Nmu#\FvdS52&W#%#>'.UCs:=-P/Qcim$(0ASir*,&oi[8jc\9gA&cBn>)V'9hO:)4u((4^Pi%V&*n&iG'+#k.'&FGS'N&cBMp]':NmK,43kR4,SSFS27Whh)^<8QRMg U"Z-BdiB8H1Y-rVIW\gZ/;maTk+Q*1hbt#O%g?$7v>e>p8Abm5(\]?BPk2H6WGbF1 U"Gm\cfo^.5e]6p.,.j=6D$Kn6iNh\O=A3OO%8\=UG%a)>KYmpj=c4MU+?$;:(egJ U"hN]GsMh,p8[GwDnE4a[+mIfUN,[3j^[Jcqz5V[Yob=X&FvjX:3j/vdKH/5k\-'T U"R-n.zo6lIQcWyf:VjZ4BY%U%UyF5JWhPoFuG_Y9<<+2N>'#FB$-8GDaywl-cI4Fa764WbwKV;6<2aJAf/080%D=ZulgAA8\4[ U"TuxWCTX30*9BCtr59fn1$)V%tR,I$g8S&EUQjqfEnWqeN_o7Q('9-0p0+M+Ms5( U"X(^&Bw\-PyL:a=rPq&MSEPMj0j1+?Y$lc7TCf3#lGEVPD&^_.v]cZ+Z,*pNgx#* U"ofi)o9kZTTp/5sMGM5.=,^X:p#9Gw#x9xt:pm U"?(345R#ia8?7/PiV_'PANyPH$kbgQ>Q[U=1iViS[r(EqEmu)-HugS[3AAm78;Yh2PxuNV3%,oo[7d U"?0TW>WW$$7a$.Rrv8*TGl:'_PHKvSqh)dI#m3B[8P7fOH^_%fFModhAJy9'$+4) U"&>>bw*#FpbvO?EvqCX8F[PIGZke:h?sfrZd(be/sInXQ97W_[Y:hI=i<]SVJ6u[;TCGG>?No(T7M3Kx0AR5+CkCL1(Se$bI5]tmCRKS3bm7$f6i_ U"G=_;-&ala&x+f&_jYKK36at^Vn1$scLfPFoi=rJ.rC(N_hz%qFeZNj;.r3?)Vxe U"?[)FP1TAIKOE,$;XF8q)#k*[R6C?dX76KaXej4pc?a4nZvCjMTsJ_cV5A.jwb3b U"#cr\1sTAhG?(TIJwF'U%D)gtXO$.Vs_Uh??TI,t^:1 U"VUoZ:C%afar[OMYdso]W:\lot(dw\a:I=9:JU'=$.6';F0jo]_&\C]>(vF\e'#^ U"JT$5yP%',)9=UxU;4]\=\Tju6&kJY2566I0ims9I'i7X'=vhMTuVoce>&3Jb-W\ U"\Ha]mH>%JaZB[abYrL:*p+esv681>?'+T3p>4pP1t\5qc#6Co7md(I$FBXBuswh U"B$r\qm8:hDAChFG6l48nGt;bX2=;;doL8V9u8\kuTw7_z75hq_jTt2q3_T\qM7Z U"m1ju?9o&Ak6*li1aXnLInWhFW;qJ-' U"nIF\*B2plQGHUlLm]2UUC[V-5Q)\5^EN3K/ZJ3u:6y;N/OfwaO6rBWksiP'?A'- U"%.sDp%sgvuFAhq&ote9<7NC&?n0k:7[e6(=4m-%S,Pnev[cjM(3'WHsCk-UtTH7 U"'.d9:;k/N;alC-1%56RF%1]S)/<[<^;7()ju-(aIT^/pRL,eswXoBarz4hCcjSlI%2^0hk[Eob0#M+ U"t.TiF.N8LA[^?9uB?4/aoKq=n_aXd8$h\J0Y:zRW=._TItAPj-mc;9G&0[CM5$J U"pZ[%$o,[+HZN^_atWoN0]yOQSh33doHTYUs^mgb7b:?.H4sG]g[*K5sIeH\ik?$ U"U0xK$oWa68CCNmvA6URGA:w1b^0D0k,aVyU2F:$v4bhLNYkC4ppBTI]W+BXd7>& U"R?or6wMdTJ)K\-G;]Eg U"/;,P]A\)<7m8^tKHZm1BJ4%g?=MuXqdU#0DhxUUNO]]1JygyeSLJ=A]cOz][t\O U"2#Jw3H4[e-Q6Qr$k*pQjEcF#>UmW*Gu1PQvILm6;['=-tG%TOX'OeeB_jVj%Aqb U"Uu0pem8.i/KI*3LP#ci&bSh/zGEjK%sU,$MsyU U"mu2U0e:_]+1xTWEJ56'1*$Zw)3J)9]xTQ8C.>&J_*%(\-/#fTDUgG6RL2A=aRm^hO;k22lE0dufA=lt57G'<(oqIL(1e+(<0GH:Ug U"U0_JME0G#0#k]^H6lAX]:&cB( U"SPRPDQi[8#?]fQ#5Bry\Yj_fYOhn U"Cz;.LN::mNTB=sXx;Rpw(n,JnhUhV_Pfil;wj'R]iLomJN(4S--KpLgz8Xwrl&hkbY1 U"):2o=#6'/#rD8G\6:0;z.e'kLl'TV^Uf;'o,+ov#I2;.bJ3mPMB6InErl;=on9_ U"NLx%topI&DP-1;8)opKiZ#fv'j6 U"oKo4=fomjWQD^:Mxwp8uPUSUY$TVSd3D2Wlwo_TaqjHsWvuQ%VJGwo279JjOJCGCn+wy/vmXpp7dIQq2D0/AQx=>ivmK^6Hbu-J9 U"fVG8Km[I\T3sNL:&dMerb7[0Vgb2T\b^R\;QBSMJl.4\9nHmDC#lJNaleGZ?nv/ U"]\?JFUeq'C3ClS);luDG[*rBOfNcNA4]Gfi=Bd/vS)<7QAq?BYiNQ=S.VD2-aVt%C-*kpP7W'uXY?u+Ju31 U"1BG>\d+jKfmDDNmF*k*L_VWH][.hB3M8wS[Xy#3OeP^ha#3GhTEVLo#:tCFJeJ/ U"=8YJYDAF*mF$3kE],RSs9?+C\*6lA[;&C;&m+YFn,c3f2A[fpM0%I,[V]HJ,N_4 U"RAml$Qy4qqT&3O(b%lg1W=4capB]f%jfA;gFJzHT5jv/c3mWilox9J[Qk3YSgub_\fR$+ibv]X<'=-X^uW U"8NfS8sHp-Q:q8&a>7j,Vwb_B3 U"zGw4t%VG<$jhSX>eG&WPu0UYr:El.f2A\YUB%t8F+w__i-IEKMu*(_wTk3%K39l U"*7RY-.TGQo_k0u/UaHrvjfUswdhFCSZ%C[0j&CdJ3-JJ U"ooAgcL\Ids'=NcN\n\P4N(t1cKJ>pm1x^8N3xv$fAtq+VDlnd=l',pG7_TogA[, U"<^IYJY.a9z;ERjqo4nlSe.my4M_o?18(.8v9]v)[iET4i_$-gJth,fIIiYDq;Cs U"ab8>VX%?D89HHa$#rzot,Ah&E[[*32C-TD.;C2%Nd1&mYMF+jB.m'0f+KN%,'F:)*S^2? U";[8X+CoD.9Ak*(y/ZM9GU\Veq_qmK=l#nFK^JOc8<'kS\:T1SgB0u]L8-E(7Z]r U"j9/T6>a>6Xl]mr00V9w1oJz+iJyGp15o=KA)S56GLEuyOb)&73uUgocbM7DjbOHr0h:]:K(W70B_Q>mHL/RcV6eZ^jK[_h7j/Y^b7*$'76?+a\;,N U"mhcpP=d+PSs'_]/d_v%LLsg9w7*)4.C:S\I3&Ck%&CaJVG?e_6]7O$vcWe*Z[L:f&]p9I\M'JH8cjdttUY]jGWmW[x4DAaz>P7\' U"xjDD&*/tW9Pj:.)Y\]iBs+eL*,fIs31u;0?u1,kgxir57[U-.k4YoaUoYO#GR?k U"DEsQd-M1fTLYCb(K;aO3,f\tqT-:i6/\hkR*0cP8oUiO%ok+-*45C-a=iDRQLxW U"fjt9144ZG$qJFy4E'>v^^FA(KcT93d>=*54MoURVm#qB]\$a?CsMwmVm_'1F078 U"jhva-f98c[k/LA9*^F[4Up+U-3oS;dVfCMogLoK---9i^/='cVIY47[Z,gVW3,Y%n+l,Mhh3ZK>2T7jXCBUYY6m2YcPtr] U"0_V;DL2/2M$J8L2G1E:s_0SnV;],JAhi5z)(-%%I&oqa?^kmP+G%k]_x-j;rSqI U"SWw7#JE)&k+XWO$j7)VnM1q&OHb[EDP+[p8X(&BwGBj_2ro>,]sdOCvV.vdm;dc U"Z8SqxNJqBRnbj=L.Ekt=s3DK_Ff:YJrA:SRU1D55O$5slWF[\\FJ:z>mnrlqeqW U"SM)iUv5fS;d.)#Ir#tkFm?._q:u7D8(?64'b>\W;^EQYB\g;P7^VDRLoBdzaJm' U"oVn>%uN>k&=cNV3%F6<&i*gB&z=I3.NUZ18-eqNNK[,f? U"Of$r4a-.2tOzg51URraq%>s]U%*,&N)pxo1tsBrC\igjL-O1,7LtvHiWPSIXy(e U"h.&Gc^yH3s\cn2J)tVy&O)=8%4VtLID6-SMobHkZRT5m8%\DHG6LLAi*jg5:QwR U"CX0u[WQj>EHFa^IFk89JTJ_Q\vEN'9?U31,/+cvHA2Gnki_D)b(%Og?TrM\u8l4 U"O?3/)&PcvA%xzu5C5/YqqsVr'2adDQA U"E'4LZGLbGW\OEwgU3C*$5Ji8SE]_KIr7;7ujc U"OEP6366l/xtTS>#S,UeYI+Xi++z-A%c:e*:f)K?+HXTbIQ/(5U:JLSDp36\wO.M U"gcV#Q;_\BU-dOJ>zZIG?khj7Ok[:,&IEc:Q=ZZCj[oGbNhRS:gDh7&F5&SSoQ=m U"zx=bW[/E7k7kva#<01gg7Lka#<,cK^Mj]9jq*((TI'(3^O2\KU)=9)\VwVEJ/0F U"f'+Fu9E.o5B&oI/ueGVljj)#tWd6OGQ\_[5J>Jr*C9E]e_L'l/w[=+ba'a5iE2T U"8\'gs0s,2e7gYRnB>#=gJ%zIyWs&RF-58_]/io2qS%0qj:8sm-Yu?PS317I\g^A U"Yr41q:nnS=spd]-Aqj3vEv(MNRu^G'MDtkS_$mcJ,ULH=6%EH(/43S4%/k,$fYy U"iX(e,saS^7FUEu0$cLiCPRMREIC_28B=j>.8t\BYlvU3UF)]_6>J\u^ U"E)RwG5^q'l_5)2qUBW&P+:Iq7-5e?,9 U"4lEQEZJ<+foQ/T[h;<_DuWK'<2bNgJ U"]J0#b'5XR[f=1kB^khLUFV4#EZ7tA9qB2E2/hVs-l?K]%KrM:[K)#0qRn[3=f/8 U"b$V0A[=dPOSF92:\M_iNDGiDxcL\7\bBDIB8c6n.2mL6I9#G,FLwo_54JsJT]Z< U"d5mIViHQ:,h1HM,T*j5(y2=>L=i^oM-Daa''6cnc8+tKJeQ1>cZ+W6sTTCFsll_ U"uH6'$vN':6Am?CKUeSF)F(LF#8.8F;J&2C?n$tg,h:\a_O)u9ilbRJga9l8/l<3 U"%lkeOXN1myYc'4EU(ZV:#$Dz6*fII$(gS::DJU:;LGo'%7]j8H U"4d=dW_IP>9A.YH?-tX4fa8UqLMPB1W)kndY9QhtkjV(dhJphJS(qhj4-xQl;b9H U"KjQa+Q$>HPo.20Tm3%+Wy?r7J&+:)tCc1g((d\La)#>b:JyX>W?UKZJOrT&^foici=hiXCw:(bi, U"9$59Fxs/g9^C5b[$Yb^*.snM5jvrD:Nvp<.0F$fY$Z)m4fd6n10rm3ycD7T)X_q U"Nei2R8uh+hgBZOY0xak$J&:x_>=nq_Ugbf:DA7dGAg_C+Dm+u%p()9%%%%-#%/+ U"dIJEn+)(H%%(%$%%%%1%%L%?0AM0E80J?S<0/:0?1SA1lC41IB0Zk^^Auopnn$p U"Z4I_BA1_]^/MCoH/HE=0G%o].ZYLaV/YNmVW*I%VVViWA4]fTT?jAnHK$$c2^<^ U"0SOt:]^+L_&dI+II;Je4RKOjAhT3e]GsSOP[j:5;K':xMGX2eX^%W8mJ+H+P';% U"up%()9%%%%-%.&)dJZ&I'U%P)%%%30%%%1%%%M2><=.?LS10BJlz<>]T[5wq U"-oxZe5)Z6MH=k1\,0SIz2#Ir8t,jlJ+1Rl4G.WN_yt<$PhOmcTAfe:j8Gg[B U"HuHVlUBj_\+j/1'$U>^2HZr[^Z;wg:^NGYCIRNxaM?Uu>Wf1u9sbSif<&'=qvEn U"p[+WbCssB&RWYbZ-WVHC[X*'/qb#%%%3X-3SQ5duNxCWF:;0FdZ;DT*iq[J:(Vn U"J3'BxS5arp*mZ1XXa/76B;qDH;Oy3cY$[IO$;+O\V27YB0I7eqS;e?#2pO8U(75 U"-qF-2FC6geGCHUu3-HW^k)F_iHkFRMf U"FZq3P-qEK^%[hn:fWnzhaaF0z;d)Sk.pF8hN\4_.cb'j>o>\7P3Sp>/>FC'[$\)RCeMgD]MdEm;'c)(0 U"n/1A(mP#n>WRDoB;r6oP]jD-g8O767d4NT0#^b$5bfC4x0*_klltF#bWWne5$I='Slrrlc67 U"#TWrdGo2^RJ\FN?A(usyA.^LXv5eG?hgy-qa*O35*3OnIw6A+uzWp(Xrk%P,%i2 U"PY[8e-uMG$2JWE]3E-Ou$_upog+3N[_Z'fZ7T#Fh8.TPhMyy09x>MYAS3VeMHA8 U"H[Bfb#gDKsD3nmlbZN7bJVwvs8Y+)tn<)hW_bs_&Qee(e[I[*b&C6=G&Y?v4G]c U"w34?[YHA&77mAAxopOrC#lS>hmt6^rzU1aB=\P=LzpD8Ig&)9#p U"YmYS/sW]3$(qzisjXH87>CZi)\_vnyHm(5Oi]4CoMsIL*1ht(]NIy/jvnIT(1Jg U"cTln)#Q3Ybt?D:IULI;&v06o/VgVBDeLYh\w2aR,$/KN/c*l*V>6Q.t9&kVuMV?AnxY#3zZ$$Dy]7QmX:UlYUxvZaO#M)Q*/kH,Hz#+$id U"u%p()9%%%%-F%=/c:Jv>0,?Y%%+%w'%%%1%%%%ufw(f%nf%WSnh1ttaV(3RU1.j U"rdVIw$D5TeV346BQrEh40/%H3mM+/PFaZuUr=q6l(Xn;VaW=.J?S10&Bup&%'9% U"9%%%%-F%=/c:Jv>0,?Y%%+%w'%%%1%%%%%%%%%%%E#%%%B%m%%u#fwf%%nfWS%n U"htu%p*+%%%%%*%%*%G#&%%L%n%%%%% END SUB V2 CLOSE:IF S=59AND 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