'===========================================================================
' 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)upIa6#*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$Ubdo55Tk.Xetf9L8^]XxY/1Y3^T_XaG09q+FB8u%p()9%%%%-d%>*f4KEvI('Q&%%%((%%%1%%I%q
U"0=M3B20&?Sgf(xlwr)>Qe5<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