OPEN "earthm~2.mov" FOR BINARY AS #1 lf& = LOF(1): ch% = -1: plc& = 0: cnt% = 0: CLS DO WHILE plc& < lf& k& = lf& - plc&: IF k& > 4096 THEN k& = 4096 z$ = STRING$(k&, 0) GET #1, , z$ FOR z% = 1 TO k& och% = ch%: ch% = ASC(MID$(z$, z%, 1)) IF och% = &HFF THEN IF ch% = &HD8 THEN f0& = plc& + z% - 2: PRINT TAB(10); HEX$(f0&); IF ch% = &HD9 THEN f1& = plc& + z%: PRINT TAB(30); HEX$(f1&) SEEK #1, f0& + 1: leng& = f1& - f0& OPEN "pic" + CHR$(cnt% + 65) + ".jpg" FOR BINARY AS #2 FOR zz& = 0 TO leng& - 1 STEP 4096 l& = leng& - zz&: IF l& > 4096 THEN l& = 4096 zx$ = STRING$(l&, 0): GET #1, , zx$: PUT #2, , zx$ NEXT zz& CLOSE #2 SEEK #1, plc& + k& + 1: cnt% = cnt% + 1 END IF END IF NEXT z% plc& = plc& + k& LOOP CLOSE #1