'=========================================================================== ' Subject: ADVANCED PRINTING V0.5 Date: 10-25-99 (11:48) ' Author: Solar Software Code: QB, PDS ' Origin: mrianbarker@yahoo.co.uk Packet: MISC.ABC '=========================================================================== ' Advanced Printing Routines v0.5 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ADVPRN05.ZIP",4^6:Z&=19379:?STRING$(50,177); U"%up()%9%%%I-%I?KqKzD7g\v&.%%\(%%%0%#%%f1M>DCDJBSCG2CAeN4WYY'NriW/,sjqnI?]/SCBu#ts+Sam=1ccpKYfS U"2.(=lC9$P#*f7SPK+;76)nNHA%<.K5&+49J.AT$.o0^tmH&(NDZVU/Pm#3B1mDQ U":EvQ>#Zt6HB6'*B4=Y[1XiW)7q;Ubro]tXaL9XQ/IU/RgEHEl5QLjMFY%=TZ'>) U"AwP8LBJc$E6_/vM]-ZYfO/+DF&[b^]mKD,39rTDL,T'j0up%() U"9%%%%-%:3#qKFXj^.'^&%%%n)%%%.%%%Lk>=CJBSCG2CDbv)>jU9kTX$qg4&yMJ U"uwQaIQ.LXmYRbO5%FSo*-F)4ITaVV(kfMr79 U"+t(gguA-B.Ygp#YaWRBs&.90FJp[lOP_vFJ7f2fIkx1P/3B\Q<9w]+z5a505OL) U"gJ0Z_Tq8BdU-RTC%(HXr.EjP>jf:NRM_u5hIPNx&lE5qOhy%i1&aq1I-LMo-R?# U"Gd]D3q,EEu)td^o1GW[NP8EhX.mALI2R-/:$KD(X:mpOLSpe0[y*m3bEZ0bHf-j U"nPzZb85IZd>#o2jl0QL]).0H?e.6E-6pSbuXlCWNTbygPSJMfu;Lgtone4krS>C U"Gdi[O*MV8uHIr(GB=/(J5OTt_0;_?C3$f7KCtms(gcX7th5+X6xVwlM>uH4frc4 U"fz-icO,%bI_hw2?w=0B2l%saEoFHB9#4r'^^ARmtVHicRm9pgAmJ58W;$)kETtX U"2#bp5foZy?3mmZT0IssF$&]-(uQGiN6>NI9alJI7RCh5M\%GD<(I-0lj$d47tTG U"SA4A.?H?PptW-xudP&Ydup%()9%%%%-%;x4qK15I?%&6*%%%v1%%%1%%%LkA44L U"h>34LSCGCVD%T=BU[5L7s%x(cXK'd42sg%U&9(T\>p9Mg7?UWgCq>=NTZ059$VVhg2fMjt4n^BnkbH8z(wCBKn,Q0JB$zJVesan&r$mI6tlXNCiU+ U":IDif&\c,:idp\S<$s-r^9[$;bgVqOr&vaW:JGKsUa$+C*M%2c;i35x?u4kKJhO U"DH9rnVF2Zl>nhLp2/ki&rs2CH(rbMpVF3#uOvp^NK&(Cr?'2D5>w3BElDjcr2If U"v+M-k:Nmq5RW*NViZ0r\9rq:&oY_$+'xAzSlqc93&BmZkV&sp/D2iC1+:_AiU:: U">*Zk^aH02FsXV7K]*BFt?iNvb$k=12u/W%s?,KSm2AzA:JB^O[G8z85=nXAnAHb U"<1(YxQr;E2EZ7fLo*Z8rTW/b3N2G#Wu1okSZo[7TtYoVAte>Fc(4MPF%?4]%[1^ U"_3F3pd94wi?*fe;car8Wf[i]-hs2+B<=nU)Uhcoq1,mj#'R;3%>T_91SPdY+1G: U"xn\h^>u.eF\oN872TC4O*-7]1;*.cF0KAs>*yO28f>MaesC9cqLnT4(bEdyBAIQ U"g.W2.r-=KD71WEPhL)ZHTy(#wV,lLuoSI7aA U"#/;BKsQ?ZNG)Rra6qi*Id#6s?javXqF^.>C^uVF41gvF.xdy=>;?\nn8T8^J-k- U"MX<.%&(qQIKn^#ZeNv**SfmMMPmx&+,L,*:yYc=SVS9_'_H].KA8GCZI9-1u1Ps U")'&cymLX$J8r<[KE^PNxX8H-Jtmk1CGxlFy-GpYe%=0SXj33M'ebJt=1AsR8A7? U"&,]K2),&<(jeF8vYu)+6y2$[RyHcCJn6WY\a-5Vl5?XD3KS(rBGi,8OX+JE9J4?wZD;\'4'M.49P#% U"LTu&g^$Pn0Y7?Ab,3DX1:M7:q79ui9.-,o,UDBn^1Rp,Vf%oAd%5xRE;cRvMqIs U"0/MTHi9soBo[#Q7pP6%H,QM-_(^Qo=%O&69TblhM3HX;c(#[seOeT^%?/6tXU0h U"7ELdg#a>IWAejw-VtP;:-E+Q(3FD-p2KR9dZdz*/APS6Qg^foTlE\2I&0'Dx(U$^VYgoa#EH+Y>T6SMt#Y*WM4il/_u[& U"g1+m(^U'(qRLc.1Vc;4$GRz-cuKEb3XXHW%d9-2D3V7:1Tj9>qBvIES;ScSlM/) U"IBLifq>ox+1.4l/-XG[>\*fhQ>LdlcoB7nN)j:rfRIKA3WDUdqlDKCe8d(*oYP, U"cULQl.wA5KRfXLBZ)%l+,<1V0MFLbsY$H%xE)hjzGPX]$3.i^LzwDpQ+=.=md2. U"vlhMF4%u/iAeS#W937;Y=C.0o3gj218B6CCB-cgIN2erN1&.2U;D2FBkJ/ImWnhiE%.$n8Im=;--xDu%p()9%%%%-j%pGqaKXTr+#I<% U"4%p5%%%1%%I%lA0M?782JBS10kBM,dS=H#d7+1<3hS70qF&e?((?aHwS5\(iK=k U"G8+nmuI%rwHNP#57$(RXX9P*D=][k#)rc*8+s9Z+[G#wpfb_vGB^$zv.TzbGH.j$BX[+?sp\nEUlBeQ5u/_G=;m$us)8LRjPA2> U"qDMA^;9)d0QD3CeS\LV\(9'e9XfKW6=#cL(Jt9GZpi2J2GgRA8FT&Q2hW1f=-ZE U"BMC+R#jNrhG(9I7u8V]MAW0Ew2&Hn.bF-B2bLObT#liJKAf2a:c/066B[7KrTJDVu$nW5.KxMS$LD1[hP575o U"t%-<'TLXHI<-/Osehbo.re8hjGLFx).tS,qW(1XA:TJWnT+NSb$T:K,S\L))jr, U"$^]yjCh\]CmjC5mn0H$qZ:PB47I'Y.e8EuTS51eblHeY/\bN0q)_hdAuX>4Ff%^ U"J$d/dZ(]Go-vk][w#1#4Q U"^aXO0EF8tc+=*QJI*Q)0VCuZM>;k^hV;qa:-ivaF-xO8_?3gPsb_zA*9IkpX#AR U"DQQ'Rn[w'eRP06HE/?nZ*Z3W#%r<--Dbkr+O1#3E_=r=9bja^f;3wC=B56eFX)G U"5oHi3GbqB5BQgk\wSQAVj)nu(Z0B%N^V.Iejk-oEZl(S(e5L&vWmcb]R9N#A8AF U">2PBgW472Guu1OBnJ[Kpf[rUnmHqa]N+GxF*4wR_SgR U"E6bPeXFW(j%/+gAwE$g5R=pD<:3$9\fC.C)VZa]cIt=8lkJY[zP-/Y#5<\-g%=5 U":fyF_v0ha07b4etQJY:,yM9\_d(h;sTpXNM7cU^SESf*>C1nD<]Nn27M5f%L;]' U"/lJC5eWbU=-0(v\Ta=w.X]Or1)Y)$5SDm>6W-0L7N-:LRU1]cscR(BPC4JzaBgr U"kjV(A+d1Jv*>q.rOil9abm;/'d4'**b]eT(rLga0NiW%#I<[Z1dp3io>1s33f_[ U"O&7X0WvvVD;D$s#[]iFV_]*J3jol(&bnmZgEpI=&_60e#LIKMtKS)UnU3Q)mKSF U"fDl70s.JxPb>-=+Yi61/d%MGnwdSJ/;Ba&lY<7;d1Q?]0RJ,+I]_8\a14iD/69H U"wnrk86*0xu+A_Tk6HQc=*>$vM2H^Owpfec.w;*B02up'0?l>,h U"5sO:HJSl?s)(KTDyu2p4Wld]iJSL9l?Q-cP?2J2UO#NU/oTAx%*OC=E;c:)XUY= U"+(7XVU.0:$Y)]Y;QjVF$PR0hJD,g.T&C-/nHk-;QsS#z[^aE>;Keaun4\3fe=D] U"YA?43)0-TU+hWcg;#[?TN>7-4lHF:3kD>3.?]$jIb^ne9-TVQJE*Z&0E]ZrrcCz U"=?Xq[?o9iHc0.l5]ES5AX$h-wMme#?L%nbI64OG* U".)uRA4D-U+XAL-47BQ(xHS+jm?>'.,PNt*[2OHMo.,gyZIK$&g7eh1)0lP]&N%. U"gZPovX7SNGSnuIoiL\ph2QeecP;4N/I1.:g<^yKD_u+,gC U"nxBkoErl.bo/.kCh+nN$]i4nRv074l(UH:18t2r0fn&tXpph'NcY\Y&aXia&75U U"?[GUU,]nmstrP]D8D//]X,l\>#?aqjv;lvx%fCviwX42BQ3CzgnInP&,syV% U"9[Y.+x;+tbu^+-*Gn**Vr:]6&c#;^^xM*\e]r[.Q08jY^.;85i=):0[I-uCsvYx U"q*lL-E+qBtJdI)$iLCxXMa7f&Wm2kyaC&GSOnv%TQ5+q.,Pko_Ndk%cBsR-i&qC U"J:(I#JF(s1R06O+qCJtnsy(5&zgq*sFM0QwiSq(*Y-Ga')ff.xRDW]xJtK-g-X1 U"Sb&yrm2kM$aeM((7+kOFNcviSuNWr*-1f.LS:v7-#=:9o$vS'(7)Kr(xcPxdHIi U"G>8S'7P)O=&rJ]Km,Y[aoaPgO*G4kOY/Iqmi/z/HJaJ1:CS*wmrW-q=*6Y-Y7\* U"oOeFOcV#;avCg/+nXR_td9fJg]x&)\]\%R:Z/cb%I9faM&IBgPAi'RDSn U"e5yS5eQ7,O+s5][Yck/%Cj_,A_)XMuc(5IpNbpZrkl56D<0%iJj6z9B-^va'2A?/937g7Ilu?7[u5I?#+eu U"?J;MxoM3DcsT3M0KHZ_hdg?=%]-AW5:AfS49Yq]KL(('^%dFvCB#U,8iaBKmU^;siVsm/o U".:(PAYEK#,v(#wd?aZ\OiO,CZ%Dcfp$F=ny/4ve&,nAJxkzw6V)hfSMO) U"k)AkPF<=z$lyfuVm&n*D?O;RSMn.Vg2 U"ayX&Gf;[A5tr(#f/3bALL+g2<$^7wV^:?z5K U"K^N/\A.'lg54n=[r40E;2oiEC5Yqu1nvby9M0u,)4.qGLze97E^J$oa5GAhBkwi U"^gnQ;m^**%AgVg[+RV6%mHM?I-2d;cV.vEx:_n,H/CvIqgrmQ/m([/=x-&FUb=tI5+bw] U"V5n&z,5)I-(3[;n15k7+VZYc2-imU)IdK6qB+Z>Q1Hqi1r:Xim/s-MqKGi4:UaQ U"^0]6mw[jh4n(B)ScsB)Scu,ujXL$91iHlja^06JPrd3Xq;r^YMlT>I8j$KUv#?, U"Ya^C?vJ/KHA0M*0h$MLB2(nQuYQjtAmvrUuY#Yb/0-Mq]GI#8Th>N3C-M1mpCUY U"#u]E6#Zh9&)j.#>x,vJ4?3BZMm1=zFr']6IWv>2QnUhE,0PoD U"veT>0eTcBogciRbir)r=a8(>_XC[q'[_yY76e(mQZ-Q3c/0<6# U"r>UZ#EEc0=MaqOi^&:g1lASZ>ULDQw3C=]Ck*gnZP[8[C<\K1t3d?F9&L_,CEb= U"F4Frp*eF&LctwS\(sLF''7sp)K>uGL6[7sZOP3#Uf5cUgxn%bvOd>mT;7KuOPo: U"Go(Y+^,gJI'VVS5ZWkAI_Pa4%lB>t4IjLk47PU%m>Mt&i'q&-]3V_m^Z'X3ei&MEd:Z+oC[aN#?+ST*L$I_URd+sT/N&MiEr,uelZ,#X2-So/$c;Z= U"\L.rb+W-7mSW=Y)z>u)uT+.XM$\Dt#VS<^q;)iDu6>/b(BSOskvm1-Dbq16Sjir0K$_uhpFs2+((q3s2pQ,;v;Y98) U"[6/(1bFJFF#SSv9F#]:a1f^>nY)TVT9\x_VRGUJHKGUPlsxH9(/z U"Yjx;>pU#bo8f8Xvw^_uWC)a3I1eS)_NhN8q[im8i\MWI$fuHtZRCOEN6E5e;Wr$ U"p_mdWSH&HZ$WH6H-jB_8YQ8>t[7:zo3Se$uD_Sz_1ueszgNZ]kl1,wA?i^5RG8h U".>Td.*4%e+dDs?[qGrwa6BEMqRPhrJMgh'=e-M130o#T7R,p3(7jWN(PXFJ>3c/1_d U">H\X6,=t_FH?FsS)JDF?>AivbWF0b;CFZ/%f]wcsdQTDNir9mZ$4U&^HHdW.,V1 U",j-ofZr%$rFK+nPs4GpTe22t#XZVcmonrg6B6M=3lFRj0:-us9TAplvE7O4#^Hq U".lAoih'F1^=*[sz/tCs7#5+k?0z5q-xKU'BTJA6lBR\x:hK0HPD?B3g]r&T1=(N..j86F*]ASo4n>^ U"OMs?2OQe:x/;jRUvCkrc[S*cNtSk#8xJe7VnDD;)S^INXVs>j8<0KEYRikUt2Fr U"fxX/e+n4jVx8F7K^(LyHS:JuB/UIoE_3[#FL_99Dt/8\[nU<'VL43bO6:lE&?8U U"n8Pah*Accp_MCK._c#g2M5ZXkllG\mh>zEnZ'Xcjtf/r$Aj].V_Jptaydtfr-0*rn$ U"[S6PpoARbN+Cf=x?8Vp[.dZ,gjLghDTfI;=\[yIS2a='m',oVqM$%d2JgG\yB=>Jg1' U"/qR'5V$jm+;MNIzwNMaq'Lh$&xhK[?*p?,JO'l&K21#le[eqRa78_>BBj#E.kmT U"o(D6p=,(#fl=4bNfQzgmDGuJC::u;/6vC0q3>Guu8bojaep;d\AHg2yf%UWl_G4 U"/6nq1]*n/z*CtvL1:o7S\gOAgFkOpx/nt?_.W'I$N_-2=y[5^X+yiO52dM(>_z> U"\ZoOYvf]XoJ#e:8PsDXBU,xi.dH6JjzY%VY-E?bTRjVMNxaooPPA'-Mn=5ZGnr;h_OpR:(C?Zaq-8oERL.f$TL4i2VHTf#^k1axdJTcBV>Z)J U"$)q0-$wN_iu05]r)A?t;U)(k?$>$TZ5qi]Wd)upI&#a6#*DC$OVtO:JLn61-T+E U"'#-0(LjwIX%JKvT-*&'K+.v/H9Ox3;c=v1WI2xa\sbq?#sTwJs(Oq:tsIk58qV$ U"\G-RvTctD;FL7H)q=;l:YJqN)Rkl;:lmS(,Ug0coudl)oHq,^lQ4>5O>DY&kxX< U"X:YdT)e1\W12utEnm#HV<.xH;tgB:[qsU&2(]Z4loxkAjZ+u=)ljX,cx&/+(iX< U"yi1^l'IC/hv'hZ]JE3:oEFHLH09TuC/6K$)bErhko'%mu'l(Qtm4nM_d>yiP?gq U"W>4G#jmZ3gw[4EEkroWOXm9d<>)mrRau%/wSxFtmiq3+r5.bSN6IOpo_/lFMN%4 U"&f.v-Cqmgqeq:\;m\yxxsfQ/Q'?AAfRH3QvmGn2OC%$KQ[An_rF%,pQAEKO1$>^ U"K[R1(]r%tv9e7$_)I,Ql=(%%up(%)9%%%%-%iG(fK#cRKOw%)%%A%/%%.%%%%nM U"=CA>LSCGCM\%,>BTk5Ks<9x)'AhQ,>a[3m%69Mw9DD*6#^[Qr\=Dt]jo3W5Oxh] U"eurKXW0RJ8>/U0cUUI(]MuFEGb)sGYSN$Q=R>DB3:cVr?hpA8JI$UfKY2DhEK\? U"[=xZo8(#+[A+L]bz/SgVdEmSTC*zRF_F2#fI65qS+d+$m+83o,5$5boh)1.Sp$Y7[\TT?[pW1 U"aUU<[UD0C+Al%HGnO:/k,pA4hPnb_=x-b4Rqa9;,[L(xi-X17Q=t$xslD%$38_e#*h+0k6TZYXmdfG7Rlu6PrqKU1++XlYG1A_VDh U"RV/pjJGL87Xm$i'[I[Iy?0kyFYn8Jj/W#= U"EA]kS>\l^$p+94bRgk;3)q*YGU2m*LR4jA*WOqK-h%uBU-)6j\lfq9%]._^dPd/Hm\#,IOrIM6V*s U"_G+L?NlXt'n<#e2?-kl']ca-O]#(tU8oioF_6=N<;OMW))%;?Ir1Wr/cO(3EStangLnAuL7BS91s9uP(L<;WMMvAE3/SPF=)vf#%JQEJ3\Q/]0;GfO& U"%*hX,ENd=$.(lOQk8):]=tIIkT,%SF7mk0D-/5G#7*NJ''='L0-u>'-Wf#8xa1_ U"QRK*GmA\IBO<^G=hg>0^5yG52NH:v<(%F-qJ)0a;&E.s%R,_TA%'Q&$*d1+P%8y U"^:'h*MZD'-ym<8U9c7YkWPD;Juf)0T8cE+&b)TeOfIF'Rp*spfTo/9&LuVFnZ8- U"IiBAgpDwsp2^5:\VO?coS92UeFi(Vyrg(gDX]I(e.^Ogk]eE.Ju6zi+a<4abgeh U"ECUkuTc=apBPK%*$QB2Tu+&%^>'b U"jW_pd#,z;u$6Ztq9CTN+u3\\5e^)#W*1\)*XNX9-5 U"Aw$O;tun4dxq*$:vRQK\IOLVW)X[uvmLjN0TGe&F0TtiWl+0+2,z6'wVbd8mA6> U"TtwSYsR?TP^yc2V?HhW1e%tg$iomPqZiEh+0brp^NiiH;S.L[>Unorari0j9 U"MGc$Fd#YbHNqV<+fyBvj8c(MDO^Gn=DIrl(tOF5o2FAE%^D=h0D)A^9r&;lF-[c U"t;pt$f(=0kXA_d$Hn<4DS27ZFXwT*'w=[xU[ZkE$Y,=t?]FJrC%TP.'S(EfVSM&UIiT U"G7Rtt6th7$0Mxr'A/?oA_,lc_6>ks9)b\6'Yqq+*^EC^M3:T(//*-TsIY*jz]QZ END SUB SUB V2 U"Y\Z9E+QHE3(iX.FG#v]YHjp8wPK%l5'pJPiNw_eoH_hUvq[,Xk=7T2,kTWNv>$Z U"pKe2/%2LPWe'26R*563Z/iYOHqH(tv5y&q8#3JU(ZG/ZVK%S:n?y;Mz:z2Jk8WS U"Lq&]ZHh]d&$X'J5c=7.FJ^yk38yAb4?BR#g#m:BG2LyP5W[;iE34^NH4wYEP:Og U"5=?U3faDw1jm#W>'SKq0o=+147\MVsTJA3+sKHAETiOVC=_y U"zxkTbJJc0s&(>&-lpphzMVM5l]%xy^7eA)IRGk(43EF&y4L0-4fe#a,tUVr%noHdHpBh8 U"^.UV(dEAr6Xm1(X>$N=BLvNt1#%G;/9y81rDR^P7D]W5P-R'=a,N=\6Wz3Rt_D] U"^5.s6WHZ/,9\m\O9aFi$\IAX8ecLZj_bP:t?IQQ4rsS3UZ(G60,h7R=hqPWRa4) U"d[hm7?ic3xX:r*p$J'CQHmf5;$2tZyzB.2p'H<06Gu*ISLithU1rs8$u5N4q]58 U"ZN)?7orjUeOBU75,Y^&M8ZVe1ie3,AfVk5u9uU9PUjWXF=mlRTV)b+K8&u%p()9 U"%%%%-d%L*fLKvI8)bM&%+%s'%%%1%%I%u>AMCA08&CSgfCxlw,):RU98LBHFbQ=AZIX4n3Oe U",z=c2qQI0QR/yz;H(TUHX%?q3JK;PXa0%y/SIoc^L_t#,_jI:?29n&QE6=lf,,^ U"^hI-P2o5fGIebYoL;_[9M7kt(0iuIZK39y3'2H[DF.I#-a?h:H&Qx[:&uQ9Wc%0 U"qzyaJYYKKZCQgrduT05oT=B=pK,I.9V7Ya8gm,-6:ez>MXoENnU%&[H?=9%nsiX U"X3ZPcYu4lkVF6X.6U3]P)3,5XJe8W'FO'zDA-AKtj>\Qt*BTs$l?',82ny_YJcX U",UOOl5yTKiOjDN1?l3QBk8*-a5C((nw]QE?vh7U$*$6-TstEjq>4LQR(kdu'uR? U";KOt.hY]G>zVV^s;s3$qlfxftYr4c;J/K]ly?BjEai\HH?e=(c$7p=tfR%veV%/=1'<_+<6J[b.#:-'ao\Vj U"Au=64[E8U-ZEVlgl?,N(&oR%0:Zp1m#apqHS_4zYWuB>GE&n&.r)7GL)t4.erWX U".U)pS/Q[:(5X't>[Bb:Y&h5ofA:)[c*QJ)%f1\FHsZ:UgDX'>$E&KW[Km&-)$W3 U"^0Z.)#0*U0f+2?Q*IdirpF?,=bp1t[EuN:bK0YtSfp/X]<()zY97=/8z;Oz=Heq U"%:]Dr6\5)2[e[\Png,(UT#;RIA'1*GC+C1;yth-Z1DF=B.Hk7pO\BpXicWvAY9vyFtjis8bsBd\T7w[O#02=>W\*#goatQj)mZVK U"qO1l&X-i7/j31g?aL^sge4eBN9WtYINzzwuTh.D#zcTvD^b:'9L(tX2s5/%Se#r U"VWQ5>1YDts$][,4V>*,ISSYh&u#ZbiV(=/B0[=IS8eSkEri$.Fq=$6D#)Ggd'/X U"Yr?ZH\ep$9m''3c4hZ.fadDt3]F==(fGJ>%>>6E17ZpBXG:#UKVXpjrV=p?op9u U"r?90Ya=kKmb7*t%*w(0sKYzIEIf$r:qa/)8Jv$_b]Le]A4Oak\YpT3+^t>2$uI^ U"ksR$3H%qd986$RNht8>#t&Vs*C=1#d6#et9'kiF;_VNw-HOeXMN=u*T];BYD]VhJrvDJ+8xvht>mwPx_$JiQ9P U")xLEWyvChW0'S7'P1k-Si:S5o:MR,m_JQ>M9Vp\h:UH?+teCGeR/Y$b3cDl$Rx/ U"lu*':*Y7qC120:fksSf.1KCIbDa=4wQ\>Dz;B=<<,wj?YaGc:3D+4j%Bg[b-*O? U".ugVy**Y(I%=Ph-;*/*b&=Gt(k8I2L%5RJ9^3=z_l,e'SY5TE0Q37r+3[TOa:dUl?KuU$3$HhF*(d)CXVKBTV*q?+REqm# U"+k10q#Mrf_T:3Sc0AmYfR-s.8MY9Dr'X[f[UsL1v+_.l99&kEI[*<]vFc:g=gDT U"5SMUdZi>(rp<,-WRkcA;)M^<'n-+)EPn,(PLTbuRIrmIAHERigFL2G7s^(cUbn'HX&Aridd#B#:>s4COD<2DAd%up( U")%9%%%R-%Q+9fK/U18F%)%%%n/%%%1%#%%uAM=CB2DA=S1V0B&%;<>[]O5w-xNx U"0Y7sn3-DDJ8tFIw-u3+#eM[8Tmp*t7/]=g+]s3ZoXX[L8')E?,KbIXI#\H>5_ja U"3/xO?#_7K]\o)Y'ums%'hTh#VD U"hw>poR>5;:dTD+?RMCdu=U>64_Z$:Csu+.g+U_e;U?Tm(ZR&1x*]soEc211+VXu U"atO=?Zp+/neI->p(G-ULVRJn)(co2#R3ZY*Q6]D(Fytj'o=y)*(+(W,^b_Aiqw3 U"62Pm61OMZ0r%iTjmASSxMrj0skt&2t><9<_glZ_,hr4nuSlfp-YPCUAXTdjJ2Yu U":9E8f3Zbsomcl[E85j42aiF)BxDvz2$F]z+=S6\dU40;G6agTN8KjVM*'NT*r*? U"K:5VZx]q)#-gJZ(5qY1&^^qpJP=xn4w7:?f[S(4HzVeE\U1y-1J,w9[q0;Y:wu1 U"v2hN^uSReZ0r+$Z6(3Md\[Yq89(Pg'v/$:9ci-G>Onc+kd=;OTT3,8c]vn=qSba U"Aqt6X-?L_r$muijD1(5BA*#EFsg%OHWJ1/Q-Fe^Q+'MR)?E<$MbUfQ:r&Q$f5;, U"[;+.EwG9*2\Y#L($A]4pG9H?_ooJzgZoXERuO$*uoS$Ags)R/:'%W4U:AKv4Kj< U">>2SfKZS(hj?$KJ4ixvZ4ML,P9u_YGHIJfVmr]HCKM%6U%m9i)[8:'=8w9La4X3 U"7>FC?teGW5o\-Ju1j(lHCiz=#1qr,1:]5JNd+Ab1'r*.'[A U"Nh(qisQqj.(RW]>)[Jb:1oi6&Jl\..k^mEoc9l6sD<4FjmZY;r3rv6D>Fj'q

#8786mR.Vi3v_6QM7]kB_AG(IJ9z.OX)>[z^z U"&*bZ9>CR4AltNpo$Ua][77FOK^-Vbg=?uFVs#=n#8h3VEC&.xzMuFc:<\L#6F3pyYMLV?S'xA#$C195JiVP?%8:(n)ESLA=Wa U"r.BD:2bSORgJT;h43-A\#$[Wh,6'BBw[z7lp&+G4sf(0CZrBQ>W8b#6Uot$.Wf$B24V]P/r$MtzY&9Zd9DXCgtBiBcG U"0NA^lc8oF^1FLV8TuP/]O\?J3m>6cSxwt(Z1p4yaxHROD\wAF+5y.8lhkY7.nHq U"U1,*q$E\qUCshbL,SX6>dLMHq]h(o[B#lv>R\?ouhP4&aZ%$ZOqC< U"Ji/dVK6cfHxqrL2v?%Hd*u?#DJ1Z+J^nA;g'X&%c?\#h*u9LnU U"M:OR0#kTn(h#2'+,AF(fcXWs3fVS&CL;IVfh#&T:S+\55#oDd>>n8g>\;4(&[0N U"=$iUoue/GWlvXRK&CEo>[mLPRh(fCZ,Igby,&aRj^6op^7im:#x2Bl8rzlR>npi U"(<*1aLQ&qZnL>l^qX;aNXvF<&6Gj'XYapV)2qvda>5[fmWg$MtjF$qKN#.2)_8U U"ogS.joV=Qb\O\f.^HtPif>&Ba2oLtWmTsxdDjagH(lJMlT'6W#'42aDd#NMiT'6Q&P->40$0wuExsMT'>8EXhe5/3ean U"yGD57LQ<*5'f$ne-=-MJuND2A)gl2b2QPbPm0IYrJ,D9690z(,0=vP.45rO\jW5 U"t59oh+6m^fJS.NDUs>Q8qmqT5'Wvi:Ak7K\X[#dUPiUP:u2Q2%__;h3hNxTN0Lp U"Zbqm%^f6DXv>%m+#6Qfgu[%SL;Y*ZV&aab89C1H%=wTeV] U"a?^%Wq^bH\*LN:t^-#FtSgg]caja7ruVcD>9<[W3)yCgg:-hiiH)t't0*q96_eSpl;CR U"j.1MO%4]ZOp%JDb_-U1F&=TW;VR-kZmboCE[Do>O&fe8=nQH%geCfQSyb+87/ml U"bD7%8qtxm:0_pT-6 U"V2e+8]o72iN;'';(e?udMI,c?:Fvgii7#7D=r#+..XwI$(S$%Kq%+8T;8=v1A48b998+\,%MhAFze+w3c-''ELczOcw>tw?cJ;EU U"]81m:$'m)CZ&UIrd/,c5qcO4SIwGQV=0=vV_zP&1MZ5i-1;bt4m8y/^4un+,qNR U".]'z7Yf[*vR4bY4>$iK#HYYE\HS#0qL$Q4,>Ja;ZAQ6Kr6-uehM\\]hTAe6/5mQ]p$08V U"JH_28eM/n^frcN3iph$+\sa=B/NPx+ooqI>BJso'_$nnrQB#9wtJ&&x_Up]QWn] U"U^.'&d%\Vv##hd2CmrTF:ojfVVUGS1bhs#:PUT2TAeI$.CC-[Tobpw#-H-k8AJ\ U"Nm&]u\JI_+4k5w:7Oc43iVmAA7_Zs-4IW/$_mo3ooV%J-[SlAkG08>dv52i&,#5 U"tLc[3BFu)xiHCj)X2YApP%.1C;4#Z:A:IQY*OmZ/U95g&IM4=:AF^E>K#HV_pFg U"r1\il,96dzrFhWokpKITL86,eiBnhcej.U9LlT[dUpPw9a%/_Z99A84)kAQi U"%PVrEK-C-#?z1>5gY3VMLT^reSF3S8bQDNkPnqJ^h*F3Ro;FJY)\2OTOA,erb(3 U"2x'R2Zi&2c]^'H-lVnz4a[UsIoEj\IFnRWS59$::U3#a)]%ZThj1dP&/9DUhuFQ U"A(26C>GPGk.Q8H#+lE2]0/QN3c-WlEM^xEL:fB%&sDr1bW+\FPq7zy>r'8]4jL1^9g0/R;P^%X>P3%UB=M%Qnc1i&+'&]A?KR#5Dro U"?xoQWubofW5q_F;+cr?sIxBWG$Ubdo55TkQe5<6biD)uS-ioK%OQkgmO)^9a:Afg?Ja(jPy7qr%aP- U"8hEo2z\fKM3hL>u_FED595wP_w&*e6o^uS&Q0aDaf(y\JkbW3bz>Cm'e+^rh\1^G\KW+&7=d8SQj4,e(? U"%jxoYFOrg5<'j:wPD&6x[z>1MHzT1U(aJG^JeTF,iguZco9OTwV-[MUmfHK6'Tu U"B;CPumXACKEh84x?GAaP%i&2=oZi-d(5ERxi0F]ne=zR^;l'Rv]-M[2C>L>w:ntFGwTg:f: U"WrE8:8%4Pm=&crh5[.u70Ba)6fbJsYk%ziqM(r?1I\MAgF&ga.M94KXu%p()/%% U"%%%m%T8k%K%%%%%%%%%%%%%%%.%%I%z=CM4BC4&3Tup%()9%%%%-%:PweK*\lM' U"'='%%'[+%%%:%%%Lz=C4MBC43ITuA=MCB2AJ=S10GB&z<)>je1]wCNx':jn(+>f U"ET?FD-4:)];k(]CA0XmtKE*NeTz_f5wp6tE%839$U0 U"EH-I':5W6/v7GF0:(nLT55iT8Xa_N0i5D>6]7/Q$fE'_ULm9Bl*K%2-=xpUUDIO U"BrmM06uTXu1NSPHBP165xaM:1+*1>hSRbFD5OxZUt(fx<_&4GzU]&zDr*3lfT4s U"vs-]Q7+0cD(d(ijFM6UBo(Gg2HSWp'Wh=cfp,ibA9zwZ78.PZxS8_C6jTa]),D: U"S^iHCT#;5zN0]A%Old]e*)X(>u:U*Z];FM]j'/7b>Q]Ys04BOI.s>oNg10:S:m.k8Sjcp*s+YV[]UbPxs%$\8'r%(up(%)9%%[%-%%GueKs U";C24GCSM10BlIyv^i.e5M\Kjd[S7$f U"b*G;&=t1lKq\'s<=,$7lHWKuMDV;aSgu(V-:C]G62xjrm U"pBt$XNa\-viA[CVfXUV/SR;k?/c8Ds/+Ote6h1a+wc4';SGQTc3^I7R\i20%6d: U"c\,/fq1x$BT,+sg#XK9xZ7DAkOf(zP/]\IT$U=u(f^JR97dfO5+/Pr7sbkd.'\, U"dQ.4M?d?cas>A)0-.4RLD&fN-tL7.xgl[ktPcIa%ASf=jxK9x:Y^NNU>;h2,64mgS>/LnRso0PI8rp%Wo%stq U"eOGK<.J:Lp#0JVe:AIYmb2d2%z3F(V7HK[i)VctB=CMW7ZDG);nca7 U"vM(8xRF[b0?fRK?5=.Lzx,;P*1Dd#.?g_CJJ3R572IbVZd>Cpi[n7NU%1Ns6ejk U"VT>,4;tO(GS/5fHOJor/^TG9>T8Oj\*5Tt.c$NcXX5N['-r3?bjTPYXDE#Oujy2 U"zBMo36Wi6ND5-wv*4/L/p]QH9K?)XFi,MWgPt/[B*k(iR5t2iY]dmdEMm'=n2T, U"au+u%p()9%%'%-j%Q?sCK1F](S(&%%%d'%%%/%%I%jAA2>ABS2CGCz\$rs=dU1T U"p_dI,h(%8Y,G/#3%FQY'h*Ml?W2#WlN'6bTBGS=OY&NcddRdvM%p7bG]>Z],v;% U"fA8>TR2G0AY8Yb)2Wr2%GIAnV\6i?3mAp*A3fK<3NBy&HkQlI9O8#*2W*<]F+si U"#cPrCuc=E\;oH#l,lo+Pt[*[MfC(5U#bvVEU/Hc4eh'mCB/M=NMswfbl]WftlEE U"cif6#VtBPo+hNt%3_/agL]fKX2,-iSP_2F2bAwf U"t\WO\,mncOy]jbDDOg>-Vl[3kl5W<0[ov90[L_.NOE+.Dn:j52aH=+Vz7?>_=Dl U"UA_,e/qQ8HrRgR4sn*T;tf^=tJb*^H6shn(%.xUXFDt\cifr]k<;d8L+RPR:S[d U"d4-j/9&'I#WA-:AQ3'8WaeDCDJBSCG&Cup&%'9%9%%% U"%-d%3#q7KXj^,.^&%%%n)%%%.%%%%%%%%%&%E4%/PK%'%%kM>=CBLSCGC%up&'% U"9%9%%%%-%;x4qK15I?%&6*%%%v1%%%1%%%%%%%%%&%E%*/PW)#%%kAD44h>D34S U"C)GCup%&'9%%9%%%R-%pG9qKXT9r#I#RKO'w)%%%A/%%%.%%%%%%%%%&%E% U"S2CGCu%p&'9%%9%%[%-%_G*fKT)e2ip#'%%P%+%%-%%%%%%%% U"%&[%E%/,P[K%I%y4GJCS10&Bup&%'9%9%%%%-d%L*fLKvI8)bM&%+%s'%%%1%%% U"%%%%%%&%E4%/Px%N%%uM>ACA208CS%gfxu%p&'9%%9%%#%-%dG+fKYt4&%([)%% U"w%/%%1%%%%%%%%%&[%E%/,PtO%I%uA=MCB2AJ;S10&Bup&%'9%9%%%%-j%Q+f+K U"/U8)F%)%%%n/%%%1%%%%%%%%%&%Ej%/PM%T%%uMA=CB22A=S210Bu%p&'9%%9%% U"%%-%$Ci(LpZd^,&%+%%/%2%%,%%%%%%%%%&[%E%/&PyY%I%w40J3S<4%up&'%9% U"9%%%%-%9(zfK&U[F4%%'%%%2)%%%,%%%%%%%%%&%E%b*fKEAvI'Q%&%%(%(%%1%%%%%%%%%&[%E%/&P8d%I% U"q0=M3B20&?Sgf%xup&%'9%/%%%%%m%T8k%K%%%%%%%%%%%%%%%.%%%%%%%%%%%5 U"a%xf8%e%%zM=C4B2C43T%up&'%9%9%%%%-%:PweK*\lM''='%%'[+%%%:%%%%%% U"%%%&%E%M;C4GJCS10&Bup U"&%'9%9%%'%-j%Q?sCK1F](S(&%%%d'%%%/%%%%%%%%%&%E4%/Pp%k%%jMAA>AJB U"SCG&Cup*%+%%%%%6%6+%J(%+%El%%%%% END SUB V2 CLOSE:IF S=164AND 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