0 f' \% I0 r p v& \- open FDDE DIR 10 M- p$ o0 h7 P" w7 [
- open FDDE TOC 25 U+ n0 V# w9 s) G ~* l
- 1 O( M% H- p; b/ L/ L- o* M7 X( X
- do
: v& _* t3 {) }; ~ - getdstring CHUNK 4 2
; `6 B% \* D: \% T4 T1 u& V: D- A - get DUNNO long 22 d. d. F; b* V" |) W! u% t3 c
- get DUNNO long 2
4 T; W2 h. ]% ]. G, H3 E - get FILES long 2
. @, u/ f% z% U7 A) w7 l - get DUNNO long 2
6 k, \* u& o( n- h$ S2 B - get DUNNO long 2
9 l$ }! \& Z+ h. P' H7 k( o - get DUNNO long 2 # new added7 C e3 x" C7 q1 m
- get DUNNO long 2 # new added7 m0 F- c: f3 i+ a# X
- while CHUNK != "REST"9 M$ }5 Z; B4 V% q7 n A# r/ N
1 J4 |4 D8 a3 _4 I$ J' { `+ F5 c; K- savepos NAMEPTR 1
$ R1 y0 {/ b- O4 @, s1 V9 q - for i = 1 to FILES' U) e! t% T+ L, k3 Y' L
- get DUNNO long 2) A4 x+ B' s$ e- m
- get SIZE long 2$ t- F6 N3 e& h( i+ f
- math SIZE >>= 2
. }7 Y0 k: b1 f - get OFFSET long 2
+ q% G% r1 C! m9 f: p; O' E - 7 l$ U, c! F- W; Y3 L; h! x5 c
- goto NAMEPTR 1
) ^. C f7 e& @2 P% e. o* b$ B - get NAMEOFF long 12 ]2 r% u2 ~' w0 P& l" f% h
- savepos NAMEPTR 1% C# X3 n) n. h& _+ q: k
- goto NAMEOFF 1
! Z3 ~2 Y/ C! w" v8 X - get NAME string 1
7 r7 k( x3 S3 c L3 G. Q' \7 `, @
1 F5 ?- J5 q p- log NAME OFFSET SIZE8 [8 E4 |* s9 B% r
- next i4 ?$ P h! f3 i+ x; W1 b7 w
复制代码 |