'===========================================================================
' Subject: USING XMS MEMORY                   Date: Unkown Date (00:00)    
'  Author: Sequential Software Inc.           Code: QB, PDS                
'  Origin: XMS,MEMORY                       Packet: MEMORY.ABC
'===========================================================================
DECLARE SUB V1 ()
DECLARE SUB U (A$)
DEFINT A-Z: DIM SHARED K, S, B&, Z&: V1'Created by PostIt! 7.1
CLOSE : IF S = 168 AND B& = Z& THEN PRINT " :) Ok!" ELSE PRINT " :( Bad!"

SUB U (A$) : FOR A = 1 TO LEN(A$): C = ASC(MID$(A$, A)) - 37: IF C < 0 THEN C = 91 + C * 32
IF K < 4 THEN K = C + 243 ELSE PRINT #1, CHR$(C + (K MOD 3) * 86); : K = K \ 3: B& = B& + 1
S = (S + C) AND 255: NEXT: LOCATE , 1: PRINT STRING$(B& * 50 \ Z&, 219); : END SUB

SUB V1 : OPEN "O", 1, "XMS.ZIP", 4 ^ 6: Z& = 7405: PRINT STRING$(50, 177);
U "%up()#9%'O%-%%%If=QJ9*;P'7%%;)%%%,%.%%'r%xStgLolc..m9<9??Ht_?GE"
U "Gs*4qkiheF,qbP:7MbTCSGl-4s'P\\vu*'oufn3f4KgDQT3*Q#Q[&wzOmup;cC_"
U "z/FqZqiXa*K\66'KjIF*Q,<f+jL^X[G/FJl>tjlpcJW$&H^$qT?,Kd:0fdH=B&7"
U "a.,]fRtRiM6nK5]g*O]&xfh[T_)Sutqdm5jZ$5[2_[zMDI(G5iE-EK4z:Ec,D&H"
U ">iR\9I_TBf,'W=3hF*[&=>b)U$UskB1eT_RY=N7r9T&G]_O?uhd96<Ta[u_hziB"
U "iX\iWYq0c<f_?RS7rV3Jd3XgC.*ucsO=3]=A&&om,*=UGIbFcu7&I(L0W;vip&o"
U "Gdo:rAf%x=9all''5O^_,2tg<f%a%Z'4R$^<hU%lo6o*-F(e]Y3K)p1*;HnOFOK"
U "*^K?Dw*RQP+hoo3%uz?%&w&$1N)a8,/)M''99($gN*aMl8]IVV;1Ysg4/b6n^3t"
U "U3<(+2XQ>x(W*6tfm]Zwd8DC-lW=DYhFKmo&6QNCkfR_bU<R;SHlks:_7ZlxPg("
U "Y$e4Sw[fbY>Q:^WHn<avQn>Tc8fsY9nBG:b*+Y2tsx].l2Vk=>wf>HkG1D?v[g>"
U "/7qeg7n8Bw7KMY3eqtD,O(45kSp1x5mk4FjR.+Z?3aycHZ>uxvBrk84#,dCBaLf"
U "K#i8MoiGoNG'hi7hkA5UkyM2NaIFDwSDWT'#7,ugB9[pxRl_Fxj#\pumrOk6FV)"
U "TfL&Ug:D*<hWe3]/%exW*,f.Inpc'ZQ9pUDKY5?Rb#j5I'.B:t^W<uq-bFPfY_["
U "dnGZ\l^2SUZ^90-n0,y+L83.\M:bs[N9Z^Z*9Z$c3#;0O01dpeU5/+TF#OS6=^5"
U "=6Ah;0ii7+$WvWjXiT<i\i8**'h]>8+>)4:6SfE;Hgi8_FUFA[8C2pT,f^Ss)qp"
U "9C%5B<>6c<%up()#9%'O%-%%%%f=$S7:]57%%%4^%%%,%.%%'r%xSwjjkN*VGBT"
U "]akNXyvCDIxdLbJ%%P;##5_AD4+nrI3jZ#=k3/alW)+J%ne1(O%YkNvp4C&a7tg"
U "IBfVGylh1hX/rt-PX2=l;H.xp'.xrAGbB]tuP4PJ]dJxqBh<.i%[,<D:zCtPT;'"
U "Gq.zeZJ1Yl+u;RiqXDuwm%B4S4QZ]vnUs0/UYxu6e]SPv;0M9MJ9%A9ik6<>Yro"
U "fZfR5SE6tGjuDMzvuaBOndOnnd:RubRjbuJjjPn-'11Pg7QR?l\lhMG#MAum[^r"
U "6rP->iNM0e+P1XXPtZD,+9dC9C\5*:%xhKY0MsQqhw%[c&POeaI/zY(dN4p)Yu;"
U "neLnCO-S)X0qGA)wMX&x%lI,&T+nPxN+hc0R+SCh1.#M,p$UbW23=?Z>lAdp<e0"
U "T_&zRueQ&/8T<FmW.W9u4Bnq8I]vY3Vt,5^_6oZZ4DT:#]D+Xb:(YKK-W<_.HJt"
U ":;y&v6%9#=W>hiZ\%PpNA)Mdm>N8_Etd'EdIM9(f0LBi2QLJ&%5W7+0O.I%UbtW"
U "(P)#1?\),cY<g.d]g#M35[nZY09wCj/IgCl8(&e_>lB\t,8)fPqx>R(Fa?'+7Sa"
U ">CD9ue][[q&%WMcZ#PL:OoHh]Hu59,Wva/)LiVPlWi=fXlGEy+IygJ'F>t%b3i."
U ",k8S;[vVQeaAlq;KZ[vIL<kNq965S9'5[4^-16q)4yBtKgF?\p8sug?P\Yjtbz("
U "CELf>fkp_p-VojZ\jb^T$5]n7nD]gTAXbk#f;i/j^egeGFL\q$)\F<-:Um[UzcN"
U "XnD%a)u(3LG-o&6+(^67o7H5#lsJYko?_F]R%c#'OuKBFf8<W#z<9b*IlU0l&R7"
U "_Y2^BZHkPT-*c6;OMFuZCqSCbj)7<D6POl,?h;[d#rhUfMU[kYLtE^ypWZkdJj-"
U ".3c-t[4FMI\TlfMJ2iE=Jte7TNGh*<hKV2k\ZrWtkSarrr5R_drT8qU9VW?+LjP"
U "Of&0QePFKa\Fjjw_.riceFE>Gb3<u*APK*k<0*q$^.0*r7r'EiA+(UzbpV=C250"
U "Jz3&Vh2.>R-\2hrW^''jkpbT;j&I8%#b#BF[$)T'jTjI\E6Xt,vEa9/y1Kpt$(B"
U "#tdGCSCZ)xi'<qFC/\z-ghx5%QBn5ch(_yo+Ma&bZZZq\gj%3iU]uqD5DP[u5;)"
U "tK44oH82ErMIu.Ik7(aGHNp<W-u\o7ot?Tfw+/^ggVI#C0xe)5TIXdxzPe73=aL"
U "\?,u&m(Vq#Z$Cv6,+)gp,^XPl4I.wIn9\?O8oxf#9?#RLK-%ARu?Ik]cIcjRJYZ"
U "7'$F4FcoK\k5B8=G3<I6qk,Mo6[[5#]*hQ_1Id/7d2lkAfMG^C?\&E#*h;v8Mu\"
U "y,n_K3DmjtnZRhNHkKD6s[k&%>GM&bz:ePW^/oJ%^$$3RTkL2orVFNI3^GN:&6<"
U "<p(?nEtH^d9Zt>tzbZ,<=sW8VpRqYHOK4[z]R&+rUXUn;I\aVugkW#aZZpH'gS_"
U "0X3O0+xmow[:l#+O6_Fu78$DdEO^<oh/0Sw?4tYi0\j?jVa/q==h#B48+Tt$E]+"
U "L8=rm^[4=;=$,;1#[E5zuSrfIB/Qzu=UH#7;Pw=e,Vhu;^qTi7J,Ctnn'?9>uqF"
U "fV7=KpU*7HbBRG$=1;_tRE5O+)mt\xDHZC48<eag6#,_O;M2gA6fA:4pr$-F(i2"
U "%3A%<K6<Ko<.6g]*9u(KU5-b-h)k5NjgL1g-=G0*KpN]UU*;D.5F0M[Z_4.3oy3"
U "xRel+AV5[Xb>1<tX=>,1OoIA#OI?0=0&%9GJ\MAu)=kD__DLb4&)6'19/D.5N[R"
U "Ja_1-RVl4e6PdAsZhgjoR;+gntseOl_QP#-^l.O-[pX1;5gapT4-X%U=$W_JCB#"
U "4[)l9CbqPoOyWfW;^mDC&[fqf.G)A=i)\M=;5Sck4KLumEMg%Yh3j3sHriso\x1"
U "mwf9jo&aO'G4F:F;eleDw5H/?/o2oc7sq0fi6Af>?Lq4AR3awH]3%rjHD7+Q$vg"
U "^Z)$S%+U_6l9(%7u]88Vl+2VSUiXa*GUUOZD1^ENwFq_0^_d&(kbNz1G*SjR5=P"
U "o,YFR:U<cS;gPb:54Z3LunHF&M7>O0MW>k6#HDPK)<r^Px89T1X?+KP;o0ikJ=i"
U ")in<J_/u_=b1N#nf+9/wypI.Lo()8,[wo8,3$_0-'.<.jDx..lh;?%ywK_DHTc7"
U "(_n+Ud&v$.:VL'?MqKhx\ew$oN-Qy?1nJb6GE.U;$[%q<C:ec:=x#MF.J9y#)^l"
U "gq00yXk1x'Xb2H*j+KVS394o%CpVrl;SJQ1paJBvXHAG$azspCK]Yp4r3:W&cfg"
U "w;l=oC'_.3)%7T.^(WQtz&AO<Up&NOWQYPOm>,;nbIsYW=BdS9U/IOfA;'k[Z+:"
U "GTY:4IW%SijW2X&ckY>%0'D)<cd)Og_Zss6_2t(to._>7wIu(vz/fp2b<0\-8h&"
U "w$W>w]73UW*$PHfA24,h:;JHk]MG'QY5f(rrJXIRYK]J6/:VrF5/$>-8cwF_Pn#"
U "#f(W^S$*6=[N')K)2vIMpSJRdp]]7D7tOiLTpD(v-(Yg]_d0+SFv],;%GEynMCi"
U "]t(zUA0LrTsAgrU0A,hI3UY1(Resn1_Dr\UDJ'Nz/^4,p7s7t,Q2asNDkubZ'g4"
U "I%OHM[X'?E)6*4)HP&D/]swv1i:i#ebD1#dKM\K6p45u'aUo$UD2&TG)0HsjBl$"
U "A,*Yf:qXn)V6JBOVlSYWUB(WZDkU4EXsk)LmPVPNUHRSpFKQ'X4]gS_p6FO'P.*"
U "'cl'AWN#+vV88\W\fQ3h7Fqd/Pc4Z4T43nFj&,</\X[-7mYK[<s3*1MY$3+oZa:"
U "0trTiD$hn0nG3IqTf<B9;jYCOjAnW;Fp47e/1lYVWF_BF0r>1aoCiF.dR*tmhWY"
U "a]=Q2Eo%fhQ>&C8(,+c$)CuWHt/NlIKHaZ3#<2j.>SQ*v=yE3v,LgxnIZb:p9wV"
U "z,.F%2A&AMVdS'LPLOTt:EV,iPrbwLPkFQe+Oe*]6bd>$r:)88zp;>Td84=;qZu"
U "q-<:GvGY7s(B?Rwi)pg>,[nyZp)Z2KCK-B6m9F(M;%KoOT/w56<pQt)TECl9*XX"
U "0/knpG.n=cm1zNYV5Ue%/6mEZ/p-oUL>r;d'4y(Nt;%o<%oS>0b:Q/)z6=7?\>5"
U "T4PK/BRTo6lY0TCm;D#Usy%i<kUPWENPq;EQE4b0,KgnE1xC%](s_&T&l\j]o/4"
U "<hRC;W]?4Ba#8Rgcv<2jS/t$,ie\0HG/0kK+)OQ;FwE#y3?]JM($n5Y.[jlg_5n"
U "cP(+L1j2T>bA=_-=j18>vD1Pr>n/%+n#5:Me9G;CeZw5ZxX=$[dDgWLoCvv7,HC"
U "W7$w_$8a;\-sTV2kX\-:&a$W_SIUZUmTj#;#*IW-tHQ'yr=[m-C:##Pe0i[w9[t"
U "r+fBub3YblsHf\$plvU&4:l$ZZX\9p\Q\tF\j08ctZf59QH;/aWGX;.h&HW]JCm"
U "(\%oysm=3(R_S(b.Oy.,CEkxB-6*<+QOM[x1/:5a%7.-LLcxf;eVgXXu/i<;./("
U "9$7?o^#+p7:XV:>)hZ9k*h[a6hae?GEub-Sob4=B8Mi)219$\;Q?,s9&jRJ9sAm"
U "'Y;qCkw7J5$98SX#g4VRq9wb$h#rs()vatBSV4b)q(4r7=5R*C3Qw$&S*W2hPiL"
U "8hr\\g0gknsNxcd4G52+$SQDoS[#%;;;EYiY?jgQG366Y3dsvju%I+B1kS?1DTK"
U "$Hjh2vZ,Goo8^n,RqnjW59&i9EwBE>5>Hi<f1dQ5O-KB_;W;Ea7Cx'PySP),j?$"
U "%[pk7&Et'[HoJqM&7cflp3HSF_4%ov$0<9B9JkA?*;LUB-8^ttg47%uim?_uA:%"
U "\D_DPf^3hV.$tzgGZr/E1qim0S'M<yxkp,qf$iTqGs>TVo)f[r=Z=MG1$*iCAMR"
U "O8<xa:S:K'gr,l-j0BFVsN/_J'2>D(ROtSVYDKP*'8U?qGrYUa#Mf<*O_3(=)CY"
U "MacZF%nb^^?]/Q9D<^]lvt[vZV1LNN7.>u0x+QQW?0qUZrF/Xv(9VkDQ<PR__o:"
U "w1Q8SE7mHAB^laBI=*IMU(#J27<he6?[q/;2<6KCON_rdd*x,QY6Y\Co&]It,^t"
U "qd^CMr'3PDQ4J3z$CYvT[YFlb4THGvS?A*d\CL'X2;K1tBsH^?9Ff\8Z4Ulj36A"

U "2]$7>,O?F6b_l$60PKuk^;[bMKZ.=zj5ud5:KdJ<-mKDE1vin5f5U^fGva)RE'S"
U "#sP/ov*8uq]]rx9VTteiw*llQfqMK[j<i7<]m67Yat?=To84AR[OQO0awI9,%j9"
U "c02GiJ^DY+3G%BlU#DFM4V'.Oa2LMRsR\Gimr<lBmr\*b#OJVE7HVch3n1%ZJbd"
U "Mtbqfj3s;Aj*d#>*N*PnSjh6K/Pe]lPz3Jhy^+TMV-GTn*^]mEJE/Bf<2=]?J.N"
U "dY&V-[Y2W=/5=CC.t>Im#j9'.kba$2_Chz,h3UtMkB5p;SbSBGB39_ccW_QG%7#"
U "q?Ifuhx5h=5>p4VQV8#nf+ALoaNV=6uvDjDB^YxH[h\;a/R&u7(1sf>+=N[lj,-"
U "$c/tQICA*f/bQ*hq#2kJDa]66+4ojT4/IEA_p6]&ct[TI\5Y0h;JB31;_Cj9v)p"
U "N'Ej1S$]A#YNpQvX8#AHy9JAa;1rp;u1p1_$+C5Z55^65bldTa>/7^o3eZsPtpF"
U "s.qWnA\OqsJC)GtSfY='F=IR\ZK'$Sot3>)>4$jcx:D-t],3mkx13i6HZxcX8#<"
U "uNq_fBv$KErtU7sOU3j[=S'?Uth;q<rq5DdZIF[0WQf58u;7J5(:,K5CWH380od"
U "rx/UQWr;un'5TIq[.j5WvX=9Wp9CjC_lk2hY:H2F9;FT*^9GIpA0HBi?u3budf&"
U "YiYRM<[/0cCUj9HI[xYM.eGA[j[qL/P6.V7-eLUWCt48MGc\F4ZT\UiDf<H6>$8"
U "nbQh4fG>hKfThcw.e^5I<Cuk[oM:cY)mAKKWmJ]9L&+;dupobo<gFvyoe=lJh)&"
U "R9SAlNT3RAjKU5=)T7QENrstr\VEEv*LTnlVk'rlUD9[4s.4HDoQY$rDD[2Bxtr"
U "F8)+90%Qj+\uXhcFA0ZvfYa>XLZ=^b?og-\h=LAsRHA:b(\8Zk&gKKc?rwo_OBX"
U ">)?dPTU2mFuxX/oLuIc.'D>oXLXprt$$F,mTxt2XU)),$gvnY1AA8?d(#gJ3TsP"
U "'OE8(A-q9)dp/KMKQh;?GIiGt4&\>D,V\me&w95e;xfj97v\9e=->a<e'Yz9tf5"
U "x;_Yp1s4^\&h_]pi0VxiVf:f*Fb21GcYl9U[OQ\EV/<XP/W9*W44N$qN4rQ9(U#"
U "cfcY-O]V;u],p_;jq&PB0Hl-c7f9NBvQwM<a1422Tmx(JH1lt?s[>#UK[u$McLb"
U "dOXlO_U4(7TJp.qS(vXe/yjM,I#HhF<GookhQ.GgAZvS-]-n+RV+f_:k;62)50$"
U "14Y^b>rCvC$q>oT7==YbWz<e14;uUv)xqw;(#2u2T2uG[NSuhhFttMA<ZZkonGp"
U "/F\tk.h=?W(FWhTgC'DPL3B>JqN>2EA;g2Nu2Ve];%AXH]:'ir<-E>sV:=8XraV"
U "\G9(_dKKp\60[8?0=I<\wFCjWjF875i,j%k\*Ye>tOnhj-Yir_jbGSE\N1u-ip="
U "DJN3PU=8XwdC=\xQ=5JBiLMBMzOXgo(GuMJZGMnVG>l8sS%=WE000&s*d&MKG\F"
U "6ei>or)?HS5VH^&#k?kvo#6NALsIMEj/ie+gyh3]/D,\ss3LK$tG[Y8b0Z>9H4d"
U "vOsx+&CfHO,Jdb^J:R4V6fhK8(JiR0Iw$+HCNrGBtmg]oP;HiNJxoJ\L,rl2u4P"
U "w)luottVj?VBr.+u:<taaB%0h8nn[5purMRzCPts,HjH<87A>L,,Yfkt$6FclMN"
U "2]fJfe3PlHqPqL*F672=T$6fR(K*B7=)&tJ&;y:lMKb_3KGjwyxs9D-]LLO.Spz"
U "M6T(_-+i^TG)#uc9XTJvLlv\jtsLa8sL\e:d0deqYz-1KOIjLh&p)aB71k<X11<"
U "TYO5Wt3ZPdDZ\peb8^pMR[cv^>wGf*1fMK\=rB/VEued6-uZ,=ll>OF?Qi<4tNv"
U "Dx%%up(%)9%'&O-%%#%f=O:fACS%+%%<%5%%0#%%%'%rxij%rtSgRfx&&<v>SmF"
U "8wBXNx0QA=2-Mo)qksr$Kk][Dsw)Atgm\N6tD1T?n/oSE0-hKtNvF%ddFs3_^qM"
U ";ZdRRhN$H5E:]IrH=dfO6tK3l'lV4xllT9RP3YXG:h#'8nFj,=[;QO#o[KkX<0B"
U ";SYe+ThH_0xYu8m/x#\=B2BuPo$Ep^M^9jBD/:Cfv7c#)KXW\hD/B4&0.tLb'Bl"
U "#-JBCM/LCV.b=yzku>fI69Bj\tv)A9N\Ns+a?:GiQMK;gT_3EG<=(;(./oP.4Vi"
U "C6%.D':1X0,'%1w8O\L3X.m57'Lo^W<ngD[24YDfW[^KB=5<w.wY.A45SBUaqU6"
U "lJCg6I2)PKv8CJ2J-N1eTDMs,m>R\Ka(.U[q+6xnxl#-t*lHpjS=(9:1:05,C<D"
U "2UEdWKp[iU;#p]$=?0UBZ/_F<=k]6EdSMk*E*_pmOW'XakH$=ghmKmJK8AC\PGl"
U ":kg?):1(\RMGLFs^U5_.$z&(wR)L\OIZnR8eAXL[J;a%P2tX#z-#eB9k02l1%Lg"
U ";k)c*3Gkn&bp)C%:);Ma:5Go<$YAR-eaVf?UNL.*o0xhZs\q?,,d_nw#RHOR'j="
U "kw45?,hb0oNd=iuBR$Ir#)ezUN$7sQIr#-pjVOQb+cTt5tb?\L,<O<I(3d)OQBB"
U "Oqi;+6Rw_u91U*T$[VHsod%X7)BVpP4clcF2SHta^(=R-8uAFkLCv3P5Ar)t)8x"
U "ZABI1KCr$srRE.Nu6VCt/S>0jERpixuB82,nKB(ZM&(dZ&?0Lr94]&#>mafk5Rg"
U "YnL3]IhkdvkXS2[RiKGs$b'&QQD;gv1K#0Fi<M1T.B'.Qv#F8,O5gHJNX#3?wMY"
U "hg;TiY9F+)QI7aXam%oNp7c]9[HsgFr&.\W<,2ihhuh>I^l1YSs7h4kk<0;Y7T5"
U "ZBBJbhG,_l8;pVPV;17_k,+a)e<+CxtVt+Z8\R<;kLBgK/B&]Go)$bU]n9<g.,e"
U "e.h?%aoU]HmKEw_)=ANUiM_-Y^g9C[t%.Gq\JMKTCSP=fVq6i&W3?;>Hldc9oAT"
U "&KX;dXSNJ17?0Y3(*(w\C)q4hRQN?E:i[MihQZX2:6E,BvCAF&l$;>g+5wddi4y"
U "-b&^fKo3lpU*CkvPV5aGs)gTDW0v?sWN[AqX#GCSgbPWF$E+/C7KJ*PCnOWBq+N"
U "SSmhQqBXgaMyCOcG;n([qsSZPQK=4RM6)T')vg#(KB\T->wX'*Rc/,.e^^FsO$U"
U "(7+UTx0Ft0)SFEK;qSN/FBb1AxKH4Ec\4^#%dpfEs7m47:C%y/VK(t&02%R;%?/"
U "3o4*:gBXiR>Q.YL#)?9e/,HN#Rz9x72:E/Lr&u.aUZ7IKOdbtKTcKoZN[-IszbS"
U "&od2fG:l$tT.Sw9m9n506[v)QrJ58pp6&o%9*>e+M71,URYR=G>C0=[s8s8Kff,"
U "9Sm\rY6d&KKYy;GCf$iIWcrM0D9ia9,%N>6,PJU5x$))l</aq-<DbtI3(bP.3&g"
U "%jDSd/+6K=R9Gn:)MB;$Zi,KVBi;CUOmx0FUYHhMjcEj;SG_6V5VBKYCS;_=p,u"
U ",kTZh\0iq=EQ=bv>3O.1BCb2PT(Sy<nTaj(Lp74)?;H18gv&.gx>KWy/,OGWG+$"
U "rGzoWHuXI8O=BZnZi)T0n?Uja7NwReG#.fkR$]V'ZA-BrS2Pe^(QvgjR_v&B]K-"
U "GqM467kqEW,eq'B4f5(GU%9UybeOQxw.PYI2=]7T*R%?ZLTQ3(%gj#-$bqmtKOr"
U "GpBo*BSfS^2&]/30Y/0jA7gWvXgifcO)$k\_kgnca+W/m#pVUa%F.4<8c3(_JS5"
U "t$IFZCl8u[6w]P/c1cLrJ3i6d;XlhP^$Z';HTqZR75PXtdZ47)J(M<YWg&s<uE7"
U "5g;(PkxVQhJ4554Ybp=S=h<*,F\Jfz&[5iH[Oh\ptqTF-;Ok'KNsTJvFTS*gQPb"
U "I($UIqd1<;^dC]D*DybjqIdFf%.,$Oc8X4t%U>=I)gcAo#NIrEq=YE^F>t/Y?HZ"
U "rWnWh56gu0[>80w'%up&'%9%9%%'%-%%%%f=;QJ*;'P'%%';)%%%,%%%%%%%%%%"
U "%E%%%%%%.%%'r%xStg%oup&%'9%9%%'%-%%%%f%=$S:+]57%%%4^%%%,%%%%%%%"
U "%%&%E[%%%u#'%%'%rxSw%jkup%&'9%%9%'%%-%%%.f=Of,ACS+%%%<5%%%0%%%%"
U "%%%%%&%%E%%%'V:%%&'rxi%jrtS%gfxu%p*+%%%%%(#%(%r%%%%Y%A%%%%%"
END SUB

