REM This program extracts an MPEG image from a binary file.

OPEN "_dvdrom.bin" FOR RANDOM AS #1 LEN = 3
OPEN "dvdrom.mpg" FOR OUTPUT AS #2

FIELD #1, 3 AS a$

mpgbeg$ = CHR$(0) + CHR$(0) + CHR$(1) + CHR$(&HB3)
mpgend$ = CHR$(0) + CHR$(0) + CHR$(1) + CHR$(&HB7)

offset = 0: mpeg = 0: s = 0: e = 0

GET #1
hi$ = a$

WHILE NOT EOF(1)

GET #1
lo$ = a$
c$ = hi$ + lo$

s = INSTR(c$, mpgbeg$)
e = INSTR(c$, mpgend$)

IF s = 0 AND e = 0 GOTO 100

IF s <> 0 THEN
 IF mpeg = 1 THEN CLOSE 2: OPEN "dvdrom.mpg" FOR OUTPUT AS #2
 mpeg = 1
 PRINT #2, MID$(hi$, s);
 mStart$ = HEX$(offset + s - 1)
END IF

IF e <> 0 THEN
 mpeg = 0
 PRINT #2, LEFT$(lo$, e);
 PRINT "MPEG starts at offset 0x"; mStart$
 PRINT "MPEG ends at offset 0x"; HEX$(offset + e - 1)
 END
END IF


100 IF mpeg = 1 THEN PRINT #2, lo$;

offset = offset + 3
hi$ = lo$

WEND

CLOSE