BASFILE - Converts small files to BAS code.

[Dav]

I have updated the BASFILE program once again - mainly to fix a conflict with the output code and this forum.  Now generated output can be safely posted on the forum without any errors (the posted code was breaking before because of the ' symbol in the encoded data).  

I've upgraded encoding method from Base64 to Base85 to make a smaller output code.  Although not the most efficient method out there, I decided to go with Base85 for this as it offers a good balance of space efficiency and decoding speed.   

Another change - BASFILE output now sets up the output code as a FUNCTION to call to decode the data and have it ready to go as a BASFILE$ string.  Having it set up this way makes it easier to incorporate encoded files to your programs, just insert the Function.

- Dav

EDIT:  Hmm.. looks like the forum QB tag still doesn't display encoded data correctly.  Not sure why, I'll have to ask @grymmjack for advice on that.  Still can post in the old CODE tag ok.  

Anyway, here's an example of what the new output looks like and can do.  Thanks to the new "memory" option in several QB64-PE functions now, loading a background image from code is easy.

Code: (Select All)

Screen _NewImage(1000, 650, 32)
Paper& = _LoadImage(BASFILE$, 32, "memory")
_PutImage (0, 0)-(_Width, _Height), Paper&


Function BASFILE$ ()
    'Returns decoded file as BASFILE$
    A$ = ""
    A$ = A$ + "3O.JPTD,^.<:rURPnd-DR*1\-EjLZcX/Iedwco;==\n0sP[mXXhRMvTg1NHRV5r{Y5U.1{,a"
    A$ = A$ + "}.ur^|bFNkq|^*mASvr)Y_Z9ks2+_ATwo]f2/H^Mv{*;odt-/i7dblw9Irun5eMQ0zjws7(c"
    A$ = A$ + "OUiwM5?m|JZS,/a5,/4=342ag{=bM=.rHu/VToy/g>lNLi3dk];]z^28SfO^mZ+F/PC<6UzA"
    A$ = A$ + "(VyuSilWG8_?L0s-\+CRH]mRu*8V[\n+4rhM:,rtHt'PJw2yK;un)Hi4)HwM.}V\(N.AIvB,"
    A$ = A$ + "r(:C^g64xIou*3zMi0-Mj*(qWoLntYWG60D>*JRk6y*.x[iTcEWT=O(eGYLF5L|2K55,:(9y"
    A$ = A$ + "x6SI.WS9*Ul^OI<MvqU>w_)/9_OOVP?b<[cw;G>6Ra=Rd*>yMhejpm<khM_ujEO/vXyj.p>I"
    A$ = A$ + "65=/f8LGFaP+.Q>\s}hP[IYTvMLCWZZfw'TEgdaM.Poym)Wzzzt}MsUyZ|4aC)j4sOnTiaPJ"
    A$ = A$ + "l,W?-H{nfHI^f:2nWrTfIiYOexjs6SI95pHY8od<36gEq}u{(MT41j5,f9O6RMb.b2FvCVQj"
    A$ = A$ + "O;+|I0(|YAG0foB-bnsJWN.io)iJ3Od_g8E0[g4nZM.iPerh{*MwK^gkx4P*{<WJB{:SRj'P"
    A$ = A$ + "zk4uf\+5WZkAd=q<P{.NOT7]w*mWM=T*^KSPIO\9Gp=B<5={ktobI>DkjT_IQ>0yh,pAXl]P"
    A$ = A$ + "z]4kOdgGc4*4{{Tr\1cxE.E}7p7cgE]4:F?Xu,GaE5yF:^DUg8]rK|FrU|aNP?oo'9o|eaNj"
    A$ = A$ + "C:pM7eEkMRDTBEg.sOBc>)J{nq/u|dqFQlJfa4e)GGQxpGTOq(yJxD,<5Zns:N'Piz=jho0Y"
    A$ = A$ + "A7L[wI2e:Jv(>dM^qb9(vM8{elxW-r+2r,ZRXuVCg7eqe7PN0J74Mdvr::\hH*d{,SzBaNGI"
    A$ = A$ + "CrEHhH_k9D)O=PacWM*rAFM6oevnwTjNg*^F=(l[P.WO9AvK({_4qabvJlaWt]LxSd\+tD[q"
    A$ = A$ + "HG[:.*F5.2-n,/e1xT871bQLauOko4}t+qMa9WC(9/hb-'{)yF^BzN>'VH7p}xDGYP's*qgp"
    A$ = A$ + "L2xAPUQfuGZ5^<5]pzc}k1f/91S4a]1+20Dj*s3yj]Em=U,BG=mhoytq1w:)67^.TJHR\/lW"
    A$ = A$ + "AqJzh=98Mhp=i_:?^^kYq:t7vI^_nWHdRrlLU}\O;'RGnY32{SQW\hhkm<NLlkqe[:ayjP>J"
    A$ = A$ + "gd2-lK:m=XhM^?S*liCQWrcpPj?(^1'MJhEhL4x[OD]Kg\>'85dNW0I_|8J->Qq4<bH9>2qW"
    A$ = A$ + "'CEw]Z4be6ow(NIW9XLg*1ecSQiFOo'*i2yI2+I?=e6X6^fd;ElEAEeVczNqCOWz4Wv<',.U"
    A$ = A$ + ")HRsy1A)vb(;?g/AgNy<AS\3Nc*ll'gxd-:EBIW8K3Ej/F/RD5SjcCIj?;J6X<P?5jD=m}Qx"
    A$ = A$ + "6IGED]DqD)U'JIZ03TtPs22L;'9sju7>WYEh(<Xp]kmIIx0nau48c4xMx.:{K]V,V:lhALL]"
    A$ = A$ + "KnGn+bQBdvLX]U3lUP<+vqpgPbqs3b0,]b,HqTMp;VRdL.i?UnU83FBf]mNY>a5la4(/(qvD"
    A$ = A$ + "[Pwgbp:>XZlYUCgVisk4Tie}-rW*tRu,BSaam1P26R(/(|b(a40\h\|nER>iXdpA,(wReeUr"
    A$ = A$ + "+=HM:_0=.7YPYkvEOdSLL,>>vSk{Gd)rF3NlV}S:-1|<PuBX[xguAcpCuoaQqq.DRmgkH0J<"
    A$ = A$ + "Yd8C]8X?Da0f-^i5VlU;s;.2kvxHzTwPF_eW.JUppDec=Rp5=a0b)T<*jxx,9t}F<x0R*s1D"
    A$ = A$ + "6B<YjwPY>r:6<I7qCqnwF(=zMm[>M?O^^OlnD,d|U?VS^>r]Bh/s7t.l9t(y:E4)ThpQP?By"
    A$ = A$ + "-fI(TrVtTWr1*dXtODu(O-N)6Jna4<-[yeC:36NeMw_N+axi}*k]mFtUH{7YWc,R9Rv6F/zb"
    A$ = A$ + "owAauf]=Vf-4QpvS;bNgt^V]X/DYuRtmjVkiVK8,R}:s0b7)[UMibza=_eLMGxSQ{OcQ<Y'("
    A$ = A$ + "S;?>bnIT(acYZTz,zv+xxM'w6dvLGSW,joa=(_)-M.{sEn7LO6AA6VIEjs>U?2w^0)IMag.["
    A$ = A$ + "1F:aVM,yV<3WLnc\l'0CERXKY.meXD.DtaklB>)ZKVexcEC[y_c9{6?J*\H?sYp\9P2F^D71"
    A$ = A$ + "4sx2YzBlzdW/V<|d\ULXX?mxIHJ2R;Od3fL+43kmo+2'xrbk*7|(0//6>{p^][N|(VCX]TtK"
    A$ = A$ + "8:u-[cW|w.U2r<s)M{TN^bm)tfU{_p^QG7;=bkEZpAOcP4543_r>P<4w3f5fjPg3^MChWNiy"
    A$ = A$ + "vqT}9reKiziDn[KX=TDU}LAzFUT.mwR*T{=4](FxgS*sVdeo8lkTP4ACMO+=mb<G[nez1A}>"
    A$ = A$ + "TVE7u1K;;kfR_R3LOy.4'Fu;C8,Sr['Eju\T)(RDZUHeiFCN.}mn7z:M[:}Y/]wbdvSm:h.g"
    A$ = A$ + "nrRoRcsWs70fLSN4.P-O4yLp9\|1vds0)hsLT(ow'wnqXGkM^t|z|*hWAwXlCHQi-Dwm(Aoi"
    A$ = A$ + "x0(djTrknXXnRtU?bVks/ahLafd2JRX=ro?p]Wo/JwAJ,eHPML-aory5f:')^dl:M;S^gDG>"
    A$ = A$ + "ZQp/\4Zd'5tOnQJ[D(XP3ktWlnVbbR5Bk)o1|'tHm\cm<gc7nw>B|>,r.=B_6adR^JD'/1M]"
    A$ = A$ + "->S_-xyL63+2+r>B}04pcnEf[l\jMWO'1oMR^.TlcsLHxyo)mEmST]T6E*{c:PqKR=VViqz2"
    A$ = A$ + "P]Ub3G(Zv?8HL|x5GnMO/2Bm}Q7RCG-RTPPdS'i|O)tnd-xUV(RQ\L2KgQA/m6S0G)cG]Bm^"
    A$ = A$ + "[VeNVzmr]KQUDEE9Pk?aD=FmIj8697M+M7r/Rp0KTrz*Tp+Z6o3LI4k-M?_]2Jpv'\eQNwxB"
    A$ = A$ + "+)<I3lSGZ(st|\;jV7j;9qpDk4'mdHKV+D;QW:Z*B[{r7h^v}5oQAq6VP(T{[={9skj^WRTp"
    A$ = A$ + "pRE?OvbdjGOn2EUOagN0j5D;1nDy3pB)Z2^+2/BzpnXtknA;D2Z{5|I/L>Wu>(QpmFpB?ZU6"
    A$ = A$ + "}wk)OQhv.ByALSQs|_r{f+v83\vndMdbNHYfA=/I0>Eh^:q>Z{Yt\:jBt+8A*]sjNO1Z3M;,"
    A$ = A$ + "2C(/25IU^9*gB{2[\MpWZSo/V;Ti:2-e/bn(7^Xu(}Ypuj;r^M7G>.>kqZ};,5Ty8zb\,WB'"
    A$ = A$ + "u3gNG/.2?cr,j3cPO}U6o\7QW[g29;YrZ(S1taqjV1o5cA/(gOrISzBWw^JhK[shMs_Hhj55"
    A$ = A$ + "^1w1-{9Vxa<2zFj4=l]|-Tx:D3/K-MafCG5W7_:*mr-Y1(TDsHxGbIL^xiQu9Jl|^n>^;>N-"
    A$ = A$ + "(k:RYzVJ[u_jxkOVk(H-_T9Gc_t{05uG|(rzC8ovnjkY[<1u3Lif=_7J9l;q.RSd5kJ\G5PL"
    A$ = A$ + "3Rt:-9x'_z)5]v_.PR'bb.f0[+Td/9aP;T_WvIfUqcx<\s142pvR,^5K5OeU:[UB5wAW3Q;u"
    A$ = A$ + "PUY32zawBc9)Q>[Qdf1O.f(r/u?,*OtNt9|RW*v>;>-.BelFhc_|hdt:,PVD)G]oe0Sm5_0y"
    A$ = A$ + "uG2FoOIiPhCL[1lW0{vh=+_u(P/7b41OhlWA0Y21+oF;a:2^:a^e\iN<XD-?4bcs054a6H1["
    A$ = A$ + "FFrGpSd0PH-?MQ-^49ip60A9xSKp4(LjhHR9h-{QPSE})RFb^^x_Pt};d,'3+L-.hL\B(w'f"
    A$ = A$ + "TWH?4gFAbEahyj4LreNA1o?{A)um\.6tFU,AW|-j^RQDH,,24;-EA1kv/,)iPTH4'1,o+UXO"
    A$ = A$ + "]0kX/<tBtFWVZ)^iDgUPN+9eQKoo1T._{3mSf'eVgzK9L/,:(iS+ZLhWQHKgK{cso(,8|9V,"
    A$ = A$ + "-TVaNG|>{m1}p)V+6xIuGoOa;p'qIqCHb-g6o|sx),8,1cW4x1vzey};'7[Pk|A/3x7pmO]j"
    A$ = A$ + "N63eL<0]fxM^B/6>ccX343ZDo?l5Z?Ihm]|M,b9839\HY<UzvYshS48uPH4xP\?HEy=G\Wlm"
    A$ = A$ + "uCMG7sv{ssNZhc)K;>Wj.CwKEST7Gw6t7\GfC.g5.2.Pf-5G},.-S8i=,|R<5_HunpAq=AbN"
    A$ = A$ + "pVoFOmWS)'7u/BqZ4BZ_?)S-^HD>l.?5XWec?P1^Y-mZ*gMMnGnOvi7IJ0Ck}o:n>ukb5ly}"
    A$ = A$ + "]J?:3fuH6MBo=yOG[<=uk2vv-TCFY|vmaJl3;Emd^D'[FQ\.b'5A\Bw361^1d(K+c1r2Ngdh"
    A$ = A$ + "*=zJt874L=_a<e5TJ34jFVIhb;,=rfInwKW]/J**Gs{Ov;q8FB8QzYvlHKiP-z=>Jdp('qaH"
    A$ = A$ + "5RbnCSkEr9{:MaYmC(h8:jm8DcH0>/o]:\y3C*N0{,rhfU8+>}YyDq)LM9:^0XoXEHcP'(Yf"
    A$ = A$ + "]yKFuD6lhz(4;Q20ewYVU8Af.0TJ-0?zJUgzsLUpSu5RI*0q;Kc;8ym+-\Rl^3}kQ)jZi:+y"
    A$ = A$ + "q2adMc(2dC\9.9)1XPdJZxpt:GL*9U*Y9t;qJ0;e\<o{(,)'pr'g<VA;+smC49jc_<p2caWj"
    A$ = A$ + "D1LjHlZc^\FLaT?,lz4GJOhf.JOguM,w8_6xbV^N}O1/Tz[]iRJ'B\*{c<=9d[H_B7qsQ;*]"
    A$ = A$ + "nLX2d;DWt*2myx|)0)<|.,-J:Y53=>RW46+MhNgAsu]M+hXP_:'b326Uf5Xq5B/zw)[lm)h}"
    A$ = A$ + "Qkb;.(sy;??F9)PUk.OjA87FwQS'?-lRbC>cB9M74-fM0lDEg5?fhB\1r*pKsEwSHm}5vlDU"
    A$ = A$ + "4PM71h6V<+|sxOT^5j(o\(/H(>-|Yc(c_q?r->Q=m7u/M8y>L^Y7;C_uqw9N+pLbe2eg+3Ch"
    A$ = A$ + "Z]4b0J?g=:C'\ncwJ_|n:a>)dxY\?RG?]7B'xy8Xt*+Qs??6l/u4Oo.(R0oSW*zNDmmH=xNs"
    A$ = A$ + "'oKfKtBsf0zrIR3l^G9zp8k*-?jaznhO1SIZn?]6(3Il[i1D4KuO*<ug\P9K6hv0?'_f5'-N"
    A$ = A$ + "VJo>\KX=Rqmw0gACjUSCH7_?rkAADSu-;6fD[taBp,jBu[6Lqwg(N=|,aCjMS8:9i/;iP=,U"
    A$ = A$ + "j(Ht6Y,>h,Bn1k4=qG+o63mJ3WDSS[TN\;1UJ]a|p_wPu-=+5OEPnhV>lfK_1W-u3)y(L|C9"
    A$ = A$ + "AsNHrhHr)JBN8,sYRM5/U.dUT(lcUq{UsxX(e_xhcXAwlr5FAkebM{O2oy/Sp'Da^G)(zc7+"
    A$ = A$ + "X^|FZp}i=N{mHyY>-N=KkDsGU*\;e3[sGG1d16UU7ror)/\hwM06PUgZbOBh_GS9;5.f-2q^"
    A$ = A$ + "XWY:'}6Q6rO\nOFx=Wc+:Vb'V|s7Mt?0K3Wx_'A_JrGzVgoB6/{C2NFz=tdt8RRRN25MFJ<b"
    A$ = A$ + "Ebk<\\Jagnp>4_WuU5kZ*gnsdl80j);IiULTM+\A;T4^N,R{6\<?zkloKg<._6-W1.5gH?2w"
    A$ = A$ + "5.*Jj-_1tBSyeTd|jR_R<h2DRzaW3Cu7qMe69]:W?;vUDvZ+//'[GD6Wi4jUR|hxGk2|s7m."
    A$ = A$ + "dSQO3a?vsad-(BGk7]yF1uF38_91]r0'PnzdBf{f0MsouLe?Njes1e2IGCvwfUmOwM\rosWw"
    A$ = A$ + "qLw[6.JcpIayrY*DAR4R^48e\WK;0Hu7/-s2}nUNpY(lIh\*COnV;7oPZ'hAy|Pn='I|k]Fs"
    A$ = A$ + "Tfz|:YrP{\J)7pjR7AhsD=f:kJ?1;^(L<U,81Z+;RbPtt\9Xz+r>[/;z58S9FYSGo;YJ0uWq"
    A$ = A$ + "cmVUG_CUfeP=qI3]\X6CcWt{<>w9Bw9N:mV>kK5psVPGV='^+B*z\4'S9qp:x*GT)vZP[_6n"
    A$ = A$ + "mN\:}mdi9jcaM-sjl<Z+c0V>0cyrD5Uu5XzPX_vW):aZMY'B)NIZ0V4YWd/i]EUMbiZ:d4:c"
    A$ = A$ + "G-s(iAgeX:IS.;8tA{i5lM?u5kW\^-;?;dTQ:9h;u6?.Ack|rb1tjpJ^kPEDgD,5rVRlzyrV"
    A$ = A$ + "\7d27|7=q]Y(*fX}69Y{5N.j)O0JoSHgSJd>'F0t){/n-fdEcwUb;lC0U_'c<R^BvZNj[ndd"
    A$ = A$ + "PEW{f4N/8xL=8,RcV\;YbbFecG\O[Sp-Asxztr11|hV0j9y\q8JkBvp}|/<^h==R6pk^7.}Q"
    A$ = A$ + "/2OZu*S[Rxn+[y]+SUczX9Mw=sbk_*8k?Z+grb}{2k]evAdyXw(RnAO'Xsl^Q5HQDBw(A,eq"
    A$ = A$ + "]XCGpjB(=L9nC]-6}.w2QtowC5]]B<c(gwCU)q:::_93D8ES;Bi/TJRJ1+Kf8s7]>p.2M\h6"
    A$ = A$ + "v:R]afQ4.9kOLqs'Ed(IRxm5Jl.>e,<6WB_9y3Kn\Gs5X?nl5wdra0hXU=ACrW0LrES5e>'M"
    A$ = A$ + "Dn;mu<ESeW3M{f=:3]>mG>81b2PTN(?i5cSQgW^Uu6nA6^0o;DBq\?82N>TYN?M}PE{}9\nI"
    A$ = A$ + "i-S^hO:hdR'fH;u1y3KVeVl9O8H]z'R.?,OqSMuQC_C,=[D_'j)IKOs-naVEap+Zi=4ZSGq7"
    A$ = A$ + "L'_nm7KCBT1<FUw.cdax9zS)p^Jo:Qk2O(3l_']Qa(mGNoo<yayzQaHX3SOiPWsgchzzV;hG"
    A$ = A$ + "8{NtJtBPWFlSUs-N0aXm*B]oClE3_t*g,>NWDkLV5ON];Q]o\+_Ak3J'M(97/^Q[Ec6h7\qw"
    A$ = A$ + "=SXSw[=2m1y]LG:wMO)r1CJtPwiy3s(4Jr-Vi}qb9(8r\vP,MqS.z6Q[(2?N\XwuUtkgU'dx"
    A$ = A$ + "Zx6dNT7fPoaQqfNF|}\<h(H7I{Em}>R(B\Cg:}Pmq+EOj5QfbN|MmoGZK<smlc/3\H^hNe:t"
    A$ = A$ + "9pSuabmS;LRqnsP>Y.3CSG.G9f__\lE/-{H/V2F/8y8akQb_)M:LUQA?NwW8)UVHAGcg68vi"
    A$ = A$ + "dcguP?cX(l/[Gu7]vF>Cf94SRa(jHGZ?lp|eFz2-_S+zR4';mjWz1?LpGm]*?i/gb+X3{Bsv"
    A$ = A$ + "O[nyH<DI:hn*UGBW508B4f|jR;xh9hsEJCDK[/8xtwos^82gOb^nmtv1\qxNj*NT)ZQHkN}="
    A$ = A$ + "=NVmvbp-8A'x<Wy_MT2WrJ{9oqrkrlQJESR3XETN,6:b;kVwaE8b((uKCpE5ON}hGyPjQ6}5"
    A$ = A$ + "i<xewC1Ur?]|2jc+kM68^r67fW5m:Jh85sXuz2jEheI8x3t3*.HGU}YTR.QBxuV88Ro*UVN*"
    A$ = A$ + "KBxASCQWbYkKx4PC6aX<NY.?};Bs2UB+,\k1-z[fBvo,Jv\T8Ik<3/TMoYYsP0(xKyPyv<IJ"
    A$ = A$ + "NP14UnW<cPTza3IXDzdZa3(}'0:<csj0O>7pG>Q7_4'fzX5pu<JsB3\QH2|v,t(pRq3|QW)5"
    A$ = A$ + "R8J0nBk84oczMpC2[1ZWWc:HQ^o1tq|X.J6u1YKY2c^{7zb/xh.dR83ROg+EfNKHUU{{sa=["
    A$ = A$ + ">F2Y9=JK1e9'6wvB2S3BOuP''zY}\s3Ju3{+eA_JWjYa:XIH^6(03ag8C{s85ETl*Y0Q>hjw"
    A$ = A$ + ",RIyt+dEMZ[LTwx|D0<w8')uKEs2XXzq*xM5UJ*3jKT9R30MRJb[y\9E[7;b94GyF(rgy'(9"
    A$ = A$ + "X'/(6v\fAYOfMiBRJjQU1R=:MRK5?5.ycvY0)/p(7G2Az:v16I:aWm[lxWWM/vz)24S-,Us}"
    A$ = A$ + ":2wlhhZJJ,M,zj\M^z[Ca^/D6+C]RTuGRv(3[rLod,ovkdDR>:T\S:kyeQ<ZKq1tPN.<lTQn"
    A$ = A$ + "7BIHP/D:S_{-N6B+HjzrlRDSILx12cl'HzUT=fA6KU2g5v/2Tq(nWjAbaim<as|+QV1x8-<a"
    A$ = A$ + "X3S:Ppt3t0BJFl2Go>l1y1pK2Ge'mm)u[ug,7t(ne(x\v<Kx^Im(soH*q*^xw)}O<]\b/Y^>"
    A$ = A$ + "ye>:hqia4kK=WJ.feVhTvg7oFJE'WpUN7TmWk0;c3x'h-ThsaOSc802*V_?t;>APOj=dMlfy"
    A$ = A$ + "}LW^s_bHYU/JfPC*wq;}TcC4|7Po/_||O3VEG4FQ3S<5N>DcFo\.mq((_5sr1Nl<e8Fo+>{-"
    A$ = A$ + "a^p|j;hGgfh;^,iEBhOw?a^)h;aud7)l{NJ2zLnFI^_kg[/zGAf\=3DN;NX:XAuue[H.yHG{"
    A$ = A$ + "H-+M7^V^zhB:mg)kAk6?icqq8lcH>PW6i4nSIFx|c,dsW(</-w)uQcyyFzdYK{9oAK>1;>[e"
    A$ = A$ + "2Lg<m1qx0RqMCBMVOi{8sY{AHsR:v2(q6,9LJk>Xbp_u8s[bFyat=X{-vLpo;1Am??aDq=u["
    A$ = A$ + "tznyn\/lv^3Em\;2N)ky-S*;KhqmvWwQc<iCveil,BR)ZA-}\tqU*K*50taKUYl4GH]vMNMM"
    A$ = A$ + ",O:{./W0M;p-7,\L.R<A5OH/\_o:W2/08fAFUn-Dyar{qem'DCL]>XqnL'\sVgXUb8yT_<b0"
    A$ = A$ + "]pX1_[efC.6Fo\jzW)C/iZGUM\X<HNW=9G[t5+)e+gkpv)\?:aQn0dh59}pSx'xuuWI)hmzV"
    A$ = A$ + ",5qhNW|PR\LV:RNtG/FUw'GkCacApBQ'QL28QmarGH->[Y^?hwk2(ZY8IWU9hNL0y-3wvmD?"
    A$ = A$ + "VeXQ5YZwR-x.DJc0aTe8=eioB6/4BZ;AAH9.IHkW\4WsFzVRJU'gFRE:FSwJKL-bdULT(o-<"
    A$ = A$ + "1Hcv0UQr(4aS^_HVANyL,fa<s<1}S9wfZ;crrnZi.(r/o=f-;kR<RrDV)f:?iv9DdH,8uV<;"
    A$ = A$ + "gXrwf:Zt>Io20O6^mDT}sid7]r]Mz.S[yX]hs'hVjT3gXIn26Q[RK<]>dr/Ow1kO/_HJGmN_"
    A$ = A$ + "E\.ixEVJSCv58wMyUJ^pHX\rQBmIesNQddBy\';GcXnk9Z/;1}4z)w8+Y_ILGOM;)bGD_<l2"
    A$ = A$ + "+0N8jn{dS0v\>:_dQTKj+zx:^Da\hzIvqx=/,vr5+/8r*V9+bhOoobb{FnJ>lA9t]94/x^o\"
    A$ = A$ + "R+4KCB(3Qn(?a\=uyCxHkPz1Y7eK)oql5Qr;;AgRP2|JBV8-yjm/'f2rR-a-,fT5U0].(C=L"
    A$ = A$ + "(4]G50ZZxd}Ez88L3+)n^b)dJidC5xvy0-8izkyBYsH>a.-G8MpAm]I;rK\rapQR8hrJ4BLY"
    A$ = A$ + "uZFjFM5Kt^Aw)W*rC]<}=P3abY*75.F,9BY27dc3Z6^C>.F'uU.buh_<y1y_v<S(4aOHVaN3"
    A$ = A$ + "aIE{B[+biVJCf.}fUk4{zoVwS>QKpdfG|-=*q>SC48{I^sEy93d'l1sV-7YnKvc7:P|F.90R"
    A$ = A$ + "AS-3tlE^[=8Hgy(;ox=7R\?3*uvl?ygf\PRg65Jrmemhgt^^8m1\z;=pz?N^61egQ93JzP+_"
    A$ = A$ + "h2g62mxc>),x'[5r8BG08o^Z2^*;[9W\rtE.,K_ZbG_d(9aAUyH/D?Ft^2R.yye(.)O^iRa]"
    A$ = A$ + "k2quHV>2)Nl9h;j,pRm]aH\DOTCy;Q{Y]=Jso)zOk)0UYdb>hX5aECuf^<vthJZwcq8rcJH'"
    A$ = A$ + "n/5qpGpz'+C)rjrroBPHv:=x\fI)4p]kvYFE(=LG*g2n>{de)Z)mnKPmo0nu=_XRXHVEj.Ix"
    A$ = A$ + "x,yLxpytM;k6GhTO/\.]p5qVFnK?fWOAx}qjkQaL52HRzF'/SKv.ar{_HjAzMx4c;Wp>2hOf"
    A$ = A$ + "-TW{)akFCI1N<qkTVDG;WYI6}vE0J(bd9_9RHkiKqiv65NprBtJ/7j3T0X>d]WIs\<Y).^yI"
    A$ = A$ + "YMasK5uk:r+]6)]CM70w.Pcs655\1Rbn4ohv>dBM<p6]1I+M1Uve+(HB1_KVix^}JT5/;T6/"
    A$ = A$ + "gVODo>r}F+a0:y3KZqa'=*ybcQ]b-^;'-/veq3Ys3AHLFmh9OF\/'Tc:NkX<SzwE)V4)Ryeg"
    A$ = A$ + "gvc-L4h[pA^u1J4NiHC93YiWZctf:+zUyo*mXuW.^GmJtugj-x;wsCMulwyO4CD>vwF=/xm/"
    A$ = A$ + "ki==Q/x-Ftm?k*r7n<oD/XHbXTaQW9+X}(V?7mdGqybd<9U</KPq)AOq7FR+LJHKfkS{I*4o"
    A$ = A$ + "^VrM.1yDnoD11d[+=kExVraO|({YKe9=c1Y^F6q0guCYgp-A<}*riGUzjWq{{DD<ruHYV[|K"
    A$ = A$ + "2=+zEFM*uNOh;;Htfy1MrY6Y,uG4TqHBq:T]_/=}LF1[1Bgj5l0XJa9cw[:fRXNk(g.C5YLQ"
    A$ = A$ + "{{BgDlAh}r*7Xws2i4F.JGjnSw[l4;29nP)'Lx*Pt-zvo(F9ARdZn2fg[q;v8*8:XFMN+5\u"
    A$ = A$ + "8qb^yRAkMysk=JanN.o.a5N88t44?E/zrJH1A\+pp_JJ{J^1SFB3m[.1?Qug,ez0Cs'v2RK6"
    A$ = A$ + "q3v=Dy=|N'Oa.b-?L{nlso,1qgdyn<6whboi]_zj)f}rV[{74,Q+jYaG1cHd_gOjwJpH1aLp"
    A$ = A$ + "YX}b<]9cZj<z-*_-zn\?eW\SAjDL8(k]cE(WRAJtssBj^w7THBh\g8l4dR7gNz8-E0oh.j]{"
    A$ = A$ + "B3q9U.V8-/D6q(|S:B7rf<?RO4zZ4j*E1cKZTlN*ZUV)]_oNIx{yl16Kzn{Fj1odF2*Em]V9"
    A$ = A$ + "k<UAo-TkmTZ?=>B[9?Sg_;vbKk,,slpBVhM?bxvd_I-if:Y91M5wNVG:6j})Zs)udQsyw?-4"
    A$ = A$ + "Qcy[0?cikOuct4MI9Yb<f67fn=KbvNR[TDfI>*D=Z.zJO,dKEl{:qp';-yXN4[PTgl2P>>:{"
    A$ = A$ + ")8.c|0_uG>.}[nsGh|ltN;cNZG(vk0uQ{;{P|2/fsD:TOU,RksHf/c'z]r|pqtab74.inUFs"
    A$ = A$ + "V45>'_PP^B[*=[NUcrlphds8xPQYp1xXBWesJoPG8CCXBFNt<[4|Ai*oIFObNipeZT1^rnDG"
    A$ = A$ + "vDIiNsL)dp^p_M'UyjCTQk+8<V8>DipMHw0t<'n:f;hAf<9>q{QISo;]+wrfXR4{1{qFM19["
    A$ = A$ + "nNY]],Hp]>l4O[sc:uIs:*2TiCSn>ID<r^;w9zvkBPVlu43AcLC{dUbnBe14|o}YT-Woiqh^"
    A$ = A$ + "anWp};mAdOgNwidlx>F]K]zl97.U]jF\nFqD7Er<4\sWW1b,(Uv.1Cdy"
    For i = 39 To 125
        If i <> 64 And i <> 96 Then c$ = c$ + Chr$(i)
    Next: Dim v As _Unsigned Long
    a = Val(Mid$(A$, 1, 1))
    For i& = 2 To Len(A$) Step 5: v = 0
        For j& = 0 To 4: p& = 85 ^ (4 - j&)
            c& = InStr(c$, Mid$(A$, i& + j&, 1)) - 1
        v = v + c& * p&: Next: o$ = o$ + MKL$(v)
    Next: btemp$ = Mid$(o$, 1, Len(o$) - a + 1)
    BASFILE$ = _Inflate$(btemp$, 8874)
End Function