OPTION EXPLICIT
 OPTION DEFAULT NONE
 DIM INTEGER p
 DIM outputLine$, k$
 DIM HEXFile$ = "imageHEX.bas" ' name of the final BAS or INC file with DATA statements
 OPEN  HEXfile$ FOR OUTPUT AS #2
 doheader
 
 FOR p = 1 TO 5
   convert2HEX "TR_worm0"+STR$(p)+".png" , p
 NEXT p
 CLOSE #2
 PRINT "DONE!"
 PAUSE 2000
 CLS
 ' test the results
 EXECUTE "RUN "+CHR$(34)+"imageHEX.bas"+CHR$(34)
 
END
 
SUB convert2HEX imageFile$, p AS INTEGER
 ' convert supplied filename into DATA statements
 ' each group of DATA statements start with a numbered Label: and filename based on 'P'
 LOCAL INTEGER fs,n,m
 LOCAL k$
 fs = MM.INFO(FILESIZE imagefile$)
 IF fs > 0 THEN
   fs = INT(fs/32) + 1
   OPEN  imageFile$ FOR INPUT AS #1
   PRINT #2, "IMAGE"+STR$(p)+":"
   PRINT #2, "DATA "+CHR$(34)+"IMAGE"+STR$(p)+".png"+CHR$(34)
   FOR n = 1 TO fs
     k$ = INPUT$(32,#1)
     FOR m = 1 TO LEN(k$)
       outputLine$ = outputLine$ + HEX$(ASC(MID$(k$,m,1)),2)
     NEXT m
     PRINT #2, "DATA "+CHR$(34)+outputLine$+CHR$(34)
     outputLine$ = ""
   NEXT n
   PRINT #2, "DATA "+CHR$(34)+"***END***"+CHR$(34)
   CLOSE #1
   PRINT #2, ""
 ENDIF
END SUB
 
SUB doheader
 ' header is a sample way to read the DATA and to test the first image file
 ' you would eventually paste the DATA statements into your own program
 PRINT #2, "OPTION EXPLICIT"
 PRINT #2, "OPTION DEFAULT NONE"
 PRINT #2, "dim integer n, fs, m"
 PRINT #2, "dim outputLine$, imageFile$, k$"
 PRINT #2, "restore IMAGE1"
 PRINT #2, "read imageFile$"
 PRINT #2, "open imageFile$ for output as #1"
 PRINT #2, "do"
 PRINT #2, "read k$"
 PRINT #2, "if k$ = "+CHR$(34)+"***END***"+CHR$(34)+" or K$ = "+CHR$(34)+CHR$(34)+" then exit do"
 PRINT #2, "for m = 1 to len(k$) step 2"
 PRINT #2, "n = val("+CHR$(34)+"&h"+CHR$(34)+"+mid$(k$,m,2))"
 PRINT #2, "print #1, chr$(n);"
 PRINT #2, "next m"
 
 PRINT #2, "loop"
 PRINT #2, "close #1"
 PRINT #2, "LOAD PNG "+CHR$(34)+"image1.png"+CHR$(34)
 PRINT #2,"'"
END SUB