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