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.
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