>lcBinary = FILETOSTR(lcFilename) >IF ASC(LEFT(lcBinary,1))=0xFF AND ASC(SUBSTR(lcBinary,2,1))=0xD8 > lcBinary = CHR(0x45)+CHR(0x50)+SUBSTR(lcBinary,3,LEN(lcBinary)) > STRTOFILE(lcBinary,lcFilename) >ENDIF