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