Updated BASFILE/BIN2BAS programs. Generates MUCH smaller code.

[Dav]

I have updated the BASFILE (BIN2BAS previously) code to use the new _DEFLATE/_INFLATE commands which drastically shrinks the outputed BAS code.

BASFILE/BIN2BAS converts binary files to BAS code that when run can recreate the binary file.  Here's the new version for QB64GL 1.4.

- Dav

NOTE: Code now updated to v0.21 to fix problem with the @ symbol when posting code to forum.

Code: QB64: [Select]

1. '==================
2. ' BASFILE.BAS v0.21
3. '==================
4. 'Coded by Dav for QB64GL 1.4, MAY/2020
5.  
6. 'Fixed in v0.21: Replaced the @ symbol in encoded BAS output to a forum
7. '                friendly character so code can be pasted in the QB64 forum
8. '                without breaking it.
9.  
10. 'Added in v0.20: Now uses _DEFLATE/INFLATE to make smaler output
11.  
12. '======
13. 'ABOUT :
14. '======
15.  
16. 'BASFILE helps you include binary files INSIDE your QB64 compiled programs.
17. 'It does this by converting file to BAS code that you add to your program
18. 'that will recreate the file when you wish to use it.
19.  
20. 'BASFILE will ask you for a file to convert, and will output the BAS code.
21.  
22. '=========================================================================
23.  
24. DEFINT A-Z
25. DECLARE FUNCTION E$ (B$)
26.  
27. PRINT
28. PRINT "============="
29. PRINT "BASFILE v0.21"
30. PRINT "============="
31. PRINT
32.  
33. INPUT "INPUT File --> ", IN$: IF IN$ = "" THEN END
34. INPUT "OUTPUT File -> ", OUT$: IF OUT$ = "" THEN END
35. OPEN IN$ FOR BINARY AS 1
36. IF LOF(1) = 0 THEN
37.     CLOSE: KILL IN$
38.     PRINT UCASE$(IN$); " not found!": END
39. END IF
40.  
41. 'Grab whole file as a string
42. INDATA$ = (INPUT$(LOF(1), 1))
43.  
44. 'Compress it
45. INDATA$ = _DEFLATE$(INDATA$)
46.  
47. OPEN OUT$ FOR OUTPUT AS 2
48. PRINT: PRINT "Encoding file...";
49.  
50. Q$ = CHR$(34) 'quotation mark
51. PRINT #2, "A$ = "; Q$; Q$
52. PRINT #2, "A$ = A$ + "; Q$;
53.  
54. BC& = 1
55.  
56. DO
57.     a$ = MID$(INDATA$, BC&, 3)
58.     BC& = BC& + 3: LL& = LL& + 4
59.     IF LL& = 60 THEN
60.         LL& = 0
61.         PRINT #2, E$(a$);: PRINT #2, Q$
62.         PRINT #2, "A$ = A$ + "; Q$;
63.     ELSE
64.         PRINT #2, E$(a$);
65.     END IF
66.     IF LEN(INDATA$) - BC& < 3 THEN
67.         a$ = MID$(INDATA$, LEN(INDATA$) - BC&, 1): B$ = E$(a$)
68.         SELECT CASE LEN(B$)
69.             CASE 0: a$ = Q$
70.             CASE 1: a$ = "%%%" + B$ + Q$
71.             CASE 2: a$ = "%%" + B$ + Q$
72.             CASE 3: a$ = "%" + B$ + Q$
73.         END SELECT: PRINT #2, a$;: EXIT DO
74.     END IF
75. LOOP: PRINT #2, ""
76.  
77. PRINT #2, "btemp$="; Q$; Q$
78. PRINT #2, "FOR i&=1TO LEN(A$) STEP 4:B$=MID$(A$,i&,4)"
79. PRINT #2, "IF INSTR(1,B$,"; Q$; "%"; Q$; ") THEN"
80. PRINT #2, "FOR C%=1 TO LEN(B$):F$=MID$(B$,C%,1)"
81. PRINT #2, "IF F$<>"; Q$; "%"; Q$; "THEN C$=C$+F$"
82. PRINT #2, "NEXT:B$=C$:END IF:FOR j=1 TO LEN(B$)"
83. PRINT #2, "IF MID$(B$,j,1)="; Q$; "#"; Q$; " THEN"
84. PRINT #2, "MID$(B$,j)="; Q$; "@"; Q$; ":END IF:NEXT"
85. PRINT #2, "FOR t%=LEN(B$) TO 1 STEP-1"
86. PRINT #2, "B&=B&*64+ASC(MID$(B$,t%))-48"
87. PRINT #2, "NEXT:X$="; Q$; Q$; ":FOR t%=1 TO LEN(B$)-1"
88. PRINT #2, "X$=X$+CHR$(B& AND 255):B&=B&\256"
89. PRINT #2, "NEXT:btemp$=btemp$+X$:NEXT"
90. PRINT #2, "BASFILE$=_INFLATE$(btemp$):btemp$="; Q$; Q$
91. PRINT #2, "'==================================="
92. PRINT #2, "'EXAMPLE: SAVE BASFILE$ TO DISK"
93. PRINT #2, "'==================================="
94. PRINT #2, "'OPEN "; Q$; IN$; Q$; " FOR OUTPUT AS #1"
95. PRINT #2, "'PRINT #1, BASFILE$;"
96. PRINT #2, "'CLOSE #1"
97.  
98. PRINT "Done!"
99. PRINT UCASE$(OUT$); " saved."
100. END
101.  
102. FUNCTION E$ (B$)
103.  
104.     FOR T% = LEN(B$) TO 1 STEP -1
105.         B& = B& * 256 + ASC(MID$(B$, T%))
106.     NEXT
107.  
108.     a$ = ""
109.     FOR T% = 1 TO LEN(B$) + 1
110.         g$ = CHR$(48 + (B& AND 63)): B& = B& \ 64
111.         'If @ is here, replace it with # to fix the
112.         'problem posting code with @ in the QB64 forum.
113.         'It wil be restored during the decoding process.
114.         IF g$ = "@" THEN g$ = "#"
115.         a$ = a$ + g$
116.     NEXT: E$ = a$
117.  
118. END FUNCTION
119.  

[SpriggsySpriggs]

THANK YOU! I used your previous version for my GUI adaptation and I had been racking my brain trying to figure out how to use the _DEFLATE$ and _INFLATE$ with it! You are awesome!

[Dav]

Glad to do it.  The only thing is that _DEFLATE doesn't help much on files that are already compressed before encoding, like zip, jpg, rar, etc.  But on other files you should notice a great size reduction on the encoded BAS output.

- Dav

[Dav]

The posted BASFILE program is only set up to encode files.  But with a little modification you can use it to encode screen memory instead.    I thought I'd mention this for those of you who have always wanted to include resource images in your EXE instead of having to include them as separate image files.   With this program you can do that.  Like this example program below does, it loads an image to screen and never has to extract an image file to disk first to use.  So the image data stays in the EXE.   (I can post that modified version if you want it).

EDIT: Code below now works - made with program v0.21

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(150, 150, 32)
2. DIM m AS _MEM: m = _MEMIMAGE(0)
3.  
4. 'decode screen memory...
5.  
6. A$ = ""
7. A$ = A$ + "haIkMf2NDld4479BTHAR49FT8AR59BTaR4ITHA69B\AR49FT8o;OOc\I[iZ]"
8. A$ = A$ + "fJV\Kb]g7QBDll`Mk]O<c_=m<MgC??i9?iomToaeKNe;6dkNm;gKje_l53ji"
9. A$ = A$ + "?kY32GSR>f?_AQ[R>o4jWOe;NnPn`KOEEGmU?nPdWNg[7TbG<SM\OnS2G5MJ"
10. A$ = A$ + ";fN4dWo`K7dg_lCEmkOnS1mgonW1mOogOW[bWOSnc_oEEolkOK#Gmi?<X?N3"
11. A$ = A$ + "KmAR_:j5?oI3:leS75^:J;hYgoVGEeGodk64HYol[OF5HWKnWkDP_H6kGohZ"
12. A$ = A$ + "1Qc=\;bf6En:<fiW2G55^:jDG:?1FZXOle??8UUF:?II\aOoOoc_7TbG5QaL"
13. A$ = A$ + "Qk]<Gac?5^:J;iY_lag>8`B<?Qil]FfI9LUbG51OL1njE_likdX_d2OMJZ`E"
14. A$ = A$ + "AkKFRSe7h9e_D3nVJ\?_>^KSM#`L<SPaVScc?onG[2O6kC[K?f[[27;la5kW"
15. A$ = A$ + "O<VNU_2S5^:LeS;5^:J[h98h[8`Cojj_?8f7EEF1\39`GEfiZ_FeeGMiDm]M"
16. A$ = A$ + "273c_gZ[9=mLbcA5lU6Cl<V[`EQ[>_5JWOk=fk:RmYM?N2ZjKYKVKFA8nc5Q"
17. A$ = A$ + "nGH7Uo^;_YooBR1`e_8fVFAhg`c7D_?HV]5OEDRGMhZ`EWGRKWAOY;?GVaC8"
18. A$ = A$ + "^MSONAJ>\`nm6OfG_hM3RIF8HORoM#?KD_l6>X8<6mRV=fNVa67C?la6cc]h"
19. A$ = A$ + "[`HQ[2GMJZ`EQ[f2NR7;36WCUULSQAle4O<>N#So;^6<?YS13mc5m\Wnd1YW"
20. A$ = A$ + "?V?`eogojj1YnjRiO>^C]h[<V[`EQ[>=d<oWOCk:Tj3M^O1nV2Og?nfG64WW"
21. A$ = A$ + "ijeRkkA\Qal1Mf1aa0KU5QhLScYJGM`fZV?Qlm]hOOf7HhI`Ucl9?K2G5^jh"
22. A$ = A$ + "bB\#Kig_lRZZS=gH71m5`?h`N6\CETN^In0<Sj[:fWDhnPmg>l56j_Oi=S[_"
23. A$ = A$ + "8fn=4HFff\6OB>VU]h;Ua::lEhZ`EQ[2GMn9dF`]?khYkN>O^lc4n<2mUleC"
24. A$ = A$ + "W?YKm`kRSc5_o=32SCRi:dWc7OAlj0Jfk:S\HAmh:T??8nehJeJ<G<Om_<S5"
25. A$ = A$ + "^:LeF`CJ>^`cib5cfMcIjjI2mcPWPo_inJhG8L=HK\P7EOFETnI>kW87J`iS"
26. A$ = A$ + "c56=gmH>H9i>_bG3<fhcB;njOAKSQ[2G]5\4N^EFbaCjjLQma3KS4L5\mX\T"
27. A$ = A$ + "CC\1>bEmlOEUE^H^HKS5aa7\>VnaH7bi^gJFoRLN8Rf0H?EGSR>M\IP`EQ[>"
28. A$ = A$ + "eUkiC[UIL>7h6CN[e_`TeXgHO8h9]ONX_F6S^S?LSK72OWc>84HFf>84jkal"
29. A$ = A$ + "0:BmknBG3fk\=>U_Li3aSA6;LEhZ`EQ[>eE;FJPW6I0`B<kX[;MW?eA^`acW"
30. A$ = A$ + "Ci9dob7SZNLE?inMcHFRWZafNliV_7`l8achB6WE?nZGNflHXNS4^:LeF`CH"
31. A$ = A$ + "n>8OGhi7QJb9J;MebCGNSDS1hHO1O>QDKOLkLG^JT1P?iMl4^6;Q[Le:IU_^"
32. A$ = A$ + "]]HL]C?^nLL]5;R_TH:b<Vc^hiFn16^:LeFHc3nXAiY9ai3lTY>9\4^bEW3F"
33. A$ = A$ + "ToZ46da7:Wan[bI73BIGnjZSOW_7#K2NGKBmTHUeCYFnhZgJb0mGWRSY?LEh"
34. A$ = A$ + "Z`EQ[>ei:mN[8d?3oYhb5_FS=H:?MKlEIN4S5AI9N<;:;=9fbM63TjC[NcO\"
35. A$ = A$ + "gHfLLU^61Mbi_=d6h6WejlaedHEk6c5g7N\i[`EQ[fBNR]71NZngb5oBibQ]"
36. A$ = A$ + "NaF6f7:2]ghJ=afRT_:]\m=83?EI2:WkZJ<?0A>ein^F7KAeLF^^n\9oG1>J"
37. A$ = A$ + "lnfmNdmM>Rggi:N\ZCBQ[2G]_I9njZ\d4NZgnG4hYaSIBMlAfo6hJ^X>nIGn"
38. A$ = A$ + "0[n3b=^oNZGl9M_SDS;`hm_kLf:nV\Z[9JcWe;WQLe8>]]_f>gImEco]QFle"
39. A$ = A$ + "F`HQ[2G5^:LeY>Ge=?GThbDD[W9FefgajPQ;_?aHAnf5__:egBL<Fdj;<?o6"
40. A$ = A$ + "84cEgcYN<\dS5i>?[Fe]8^f5ilETV;>lcKMm3=n>k\jL:9gkAcGSUkb?N`E^"
41. A$ = A$ + "HRY]UKA>c7^:LenT[FDN^dI=c0^Bok^3o]gAKF8Gdic=F?=mZQImh3Emnm;E"
42. A$ = A$ + "hLQHeRed<;UWjMOjh_NGOgk8J^bSf=NM;b[?jR0WFDM^ZVJl<jOMi<o3U_2G"
43. A$ = A$ + "5^JOaE>KN^mK=gH<[n5Iln5gohifI?J=laBUN>i[SngdMe#1^OAkOP]:]oRU"
44. A$ = A$ + "^6Win2\G;ee6;E?907kn>XedF`2WKlnl4KZSSY1nHcEG8FS?^2G5^:LEhZCM"
45. A$ = A$ + "^BmG1kK:`BL]\Gm_2cL:kdKl3K1?]TaKDG?ldmmUMdRbWV6iMZCLoTbN;U;f"
46. A$ = A$ + "G2l5?WDMNTL<YdhnPfk`EQ[fJ^Bo>gJ67\4?O^Z_`7o^]d?omH8nc0?36bEo"
47. A$ = A$ + ">D>aa>;9GJJ^FlGH>h`nM3l5N?NY_gMOH^NWKnm_FcY_8<WAdVjNO8LEhZm5"
48. A$ = A$ + "GiRcG]nKHFW8mRU5>g7:fAI8N<hcbMV5`9flaSnKnZLiNG;ekgg;G3IOim#H"
49. A$ = A$ + "Xe:^]4LU;_;1OQkGT_iQ[2G]5L5[IkaJDLj#LTZaYO<FN51kOJ];o#9ln0og"
50. A$ = A$ + "^eh[i\CYmmL^B<GO[SL7g]oO^=DGC4hHV>WnYO6Gk6ZcmI1nD#I`kb76jnTa"
51. A$ = A$ + "4kPMF_6hk2G5^:LEhZ73L5n>GlSgUWJcGG<J]ll#aCX=#gKC;Z6?e>[iUiSW"
52. A$ = A$ + "Jgn<WVWi^mWImM]YiaglJNJ[O_K\ZJKKAZ?0GBKdBm5_:NLgmbQNlMQ[2GM\"
53. A$ = A$ + "h:=7PMi2fTmWm>LeQ`Wj`W?CZ97`NghlIQm#VS`WiZIJEoeIFgamTV_dmbWH"
54. A$ = A$ + "ggYfOI^BcEXmEkWkLaLeBFK?Q[2GMdh:3?=[FVALUFGcfJkOJkB]n:#agCcM"
55. A$ = A$ + "fNiZPVORlJ:4f<kaB^eoG;oW[[cA]n<dc?Q?di5Y<Tc69>6^oM9[Aa`EQ[2G"
56. A$ = A$ + "5^ja4GiF?kjlMji[W3ELW1chR1B]NM<^fELgWJ^L?Y^K8Ogdl2b_WYhl5Vco"
57. A$ = A$ + "E:_dcWHlkdH\O^L<J=aVFm36kg:TOn^eMHhZ`EWbLeTh;:n_RkODO]`c[jHa"
58. A$ = A$ + "EEkHbjNVm]M_lMA[G#<GEk[7KC\<K7OhgK=AgjH;2nTcaCJnB^F^27SjcZkZ"
59. A$ = A$ + "fR\Vi36^:LeF`Efego\J:`e4S9akR\7\4O`g[]0?g8GHh_[VSoM\3eJ?RHX^"
60. A$ = A$ + "[;SKfi;NLnhnN=NI>OY[nbW_7de_WSSLmUXMfa5]lYnB]ARkKG=Y^Wm?=?I`"
61. A$ = A$ + "cHhZ`EQ[2GMFcE^JNSD?LhH]f;f3#^lYo^h\RdmiI>?61OhReRFCodl#aYNn"
62. A$ = A$ + "XRONefKgHALeEYMjfk=MM1DD_n#LlH<#LnhSfTNnXB5cj[I^OCb_mafE7?5^"
63. A$ = A$ + ":LeQP[LkoA]ZgWgZYcAdaE86_^ehL;OnbL5H87G];GFVc1jl\hi3ZnCJbk=R"
64. A$ = A$ + "mNGMD[glSj=^1MnT]ZAKZ`m9j3ifGegF;InPLKQF7YL?CjJ`Q_^JmI9LEhZ]"
65. A$ = A$ + "V[dhT=YOB6?gD6KjHFmiX;FSogVgLleMFM7Pl7SjS:G=J7laBkkGSL_CY]g?"
66. A$ = A$ + "d[Q[?\WM#W=mFc?R[36`VIUU`nkQ97SM[i6eV7cCJ=R;LEhZ`EQ[>Gh:GM^d"
67. A$ = A$ + "Ug8^aPd<VdVLXYeh]haLi670n>7GQ?cM_iJO^?<PkmX7:WLO_Gj5coFcgV7?"
68. A$ = A$ + "j^im>Mo#a=gfNciSceXFke9Q[2G]5LUKn2hHhjW3H0e^HAmm5oDkP>>3a6fE"
69. A$ = A$ + "kRef4ng1KZcVW5I_N]miZdWaebE?Dan#4m_hnPW?W>gJ]nicmIfJknXFB]8J"
70. A$ = A$ + "]k9CQ[2G]5LE;nR]=jZ[J;9_UW_VOKWK9ljhCGke>OZkRYeJhZMn7RlaT\VT"
71. A$ = A$ + "h_K9lenJ<mlH[e[kTj_>JO`j#gl^F_mR2llZ\Tc7jgglf<LEhZ]P[j=VNL^i"
72. A$ = A$ + "ln_7OY?O^eOh<nRnkkhi\G\kLnZ^5kh4nmm^WLiAL_mPVm6GeiM5G<?Vi3o>"
73. A$ = A$ + "ahU[a6]\iamik[L;?LEhZ`EQ[>Gh:FjiV]g>S_<kcK]6gUO\GcmG_6[Hf_cF"
74. A$ = A$ + "O4QaUHlodlh4d^fLhZKO:[a_7POWNmg7Le\L\dd>?kM63GQkaNcic=NZm9?5"
75. A$ = A$ + "^:LeQH=kaomAEfi:fH?HdaJcmeUFcbV^7^S?[W]]NB]WblA[lJVWg:no;a_I"
76. A$ = A$ + "[ef8>FgNHUe6GSlbcmNTK>O]\iMXZYeQ[2GMXi;gHjKUSPCHZ>[=aFl5;GoU"
77. A$ = A$ + "NMjaE>NF]oi_fccoiFcKH]foL\o\WU5<_1ff^^G5ibIhS1;5^:LEhZ`EWSL5"
78. A$ = A$ + ";\OWQk9No?ASoiBjWW6[VYmQ^aldMlEBk=ccJmnHbn1P\>jMiW^SedL#I]lD"
79. A$ = A$ + "_a7^4OaYS;SK_>GhY`EQ[>Ff61OYeW\Uj?YInRg\FOLf5JIcPIf9eA=EcZK8"
80. A$ = A$ + "6OZ9[=A>gPEOc_di3ZnVbaEmnmjk<KIlS3G5^jLV[F2OY[eQQj4_`0^adk6o"
81. A$ = A$ + ">Jk\eKnk`OBFK>6OCk\a<kgKhIM?oL]LeJ^n\mmSELn2G5^:LEhZ`ENYkOV^"
82. A$ = A$ + "J2L=_?=aZFWGhTaF9kGjCleCSHOd[?eaL^iXRk=GokB?ogeeME_?lWMijna>"
83. A$ = A$ + "naQ[2GmH#hI2i9X[NV_K>DccG5Gnf]c?Fc]AfZVN`i;NCONamGVh>3]6F]7["
84. A$ = A$ + "dcFWC`V;?FR7;ci;LEhZC9Yl5cH:OaLQOMl<e7l^nNml`fHenEKOXh?9f>M_"
85. A$ = A$ + "JjC?VYga\6NR7;aiToc3G5^jLAQ[2GM8h[R#=Nc=GaFl5W7l^hYXnfb]^FGc"
86. A$ = A$ + "HPNXbaE^acY7?kK<LOgRUnGVW2G5^j#cH8OKhi:Rl\YbBlndjEGfD]b1`NiP"
87. A$ = A$ + "gF:;Ge8Glh_S_Oem0?lnHAQW2G5^jh`GHoK\8=^Rm6K^M<m;PgLn=CG[#^nl"
88. A$ = A$ + "U`A>KMch9bWJm6K^^GMn_R_Y2G5^jDF^lP0R[OTml_`lH8fnH\O7nML=K#T;"
89. A$ = A$ + "W3jUGN]h:nkDNRO7CiYSModiV2G5^:LEhZcAeR_:2kS9XVnibmmk[de?XkHL"
90. A$ = A$ + "caD[YOjoWi:<f=foJ:?aech`CQ[2GMN8=_0IYlEA]Z?JmZY8>oPYeHTNaNTU"
91. A$ = A$ + "enWTWemRcWF?k2?5^:LeiWL[93dGlUbn\kXjUcO]I]i<SCJN?g]F2ITbCLlm"
92. A$ = A$ + "^?e5mX`EQ[>=EhZX35SifS>em4]:G<FgT:JF^g#O76OV;6AJ^gkZG#]H97?M"
93. A$ = A$ + "OgG#R2G5^jlCX_PgobJ5_JgJ<dE[CGRZn=gXMn_JJ>^`a?f]6o>f]UAQ[R>\"
94. A$ = A$ + "l5gGQmi^eFG8j>fkE`C`N<k_=MN77kf]X`EAQ[2GmhCJOG]NWbkYQ=ZEcJ^_"
95. A$ = A$ + "dDB>NjFc<J>NF4n\SMKDDhZXC;eR_6V[hH=4M;T;?GJ]Wa7MnY`EA72nb]6Q"
96. A$ = A$ + "gWZ5?M\OnS2G5MnX`E7FmoAY%%L2"
97. btemp$ = ""
98. FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
99.     IF INSTR(1, B$, "%") THEN
100.         FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
101.             IF F$ <> "%" THEN C$ = C$ + F$
102.         NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
103.         IF MID$(B$, j, 1) = "#" THEN
104.     MID$(B$, j) = "@": END IF: NEXT
105.     FOR t% = LEN(B$) TO 1 STEP -1
106.         B& = B& * 64 + ASC(MID$(B$, t%)) - 48
107.         NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
108.         X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
109. NEXT: btemp$ = btemp$ + X$: NEXT
110. BASFILE$ = _INFLATE$(btemp$): btemp$ = ""
111.  
112. 'Load to screen memory
113. _MEMPUT m, m.OFFSET, BASFILE$
114. _MEMFREE m
115.  
116. SLEEP
117.  
118.  

[SpriggsySpriggs]

That's dang cool! I really appreciate all the work you guys do with your little programs y'all make. When I try to run your code snippet I keep getting an error on line 1615 saying memory region out of range. I tried it in both 32 and 64 bit versions of QB64 v1.4

[Dav]

Sorry, SpriggsySpriggs.  Looks like the forum won't let me post BAS code properly that has the @ symbol in it.  Looks like the forum is seeing it as a member tag and changing the code.   

At first I thought the code was too large, put I've posted a smaller one and it still messes up code because of the @ symbol.  I wonder it there is a way to turn off that @ conversion in the code box?  If not I could update BASFILE to work around the @ problem.

EDIT:  Yep, that's it.  See, I can't post an"PRINT @ Dav"  (without the space between @ and Dav". 

Code: QB64: [Select]

1. PRINT "[member=33]Dav[/member]"
2.  

- Dav

[Dav]

I have updated the BASFILE program in the original post at top to fix the @ in code problem with the forum.  Encoded BAS Code now can be pasted in the forum without it breaking it.    Also, I replaced the broken program example in the embedded image post above to a working one..

- Dav

[SpriggsySpriggs]

That's freaking cool, Dav. I tried it out and it worked perfectly. That's amazing!

[SpriggsySpriggs]

I think it's amazing how just adding:

Code: QB64: [Select]

1. _ICON m.IMAGE

allows you to use the embedded picture. I've never messed with MEM before so I guess I'll have to start! And if you can post that version that encodes screen memory that would be awesome.

[Dav]

Yes, _ICON is very handy.    I will finish up and post the companion program, called BASIMAGE, to use for specifically adding screen images this way.  It will load an image, convert it to BAS code that you can use to easily make a callable image handles to use by _PUTIMAGE. 

- Dav