5 O1 E; k- a" {! Z- open FDDE DIR 1
6 K3 f9 I5 {# z. q; z, K - open FDDE TOC 2
1 g9 y$ j( j% E) Q
+ I5 p2 p! e2 w. H: b; P- do 2 ~# q: m3 R' ]+ m* i( d7 p( p
- getdstring CHUNK 4 2
; c6 n A4 ^% \ - get DUNNO long 2
& l$ h/ |- V/ R3 ?9 a - get DUNNO long 25 N: b6 L8 M4 s! C; e
- get FILES long 2
# A# q) _$ A& p, s, l' G - get DUNNO long 2
6 s, J( x s9 _! W - get DUNNO long 21 D) ^1 H1 q* x0 l, d L
- get DUNNO long 2 # new added5 Z7 {6 l) W8 m" j) G4 s( v
- get DUNNO long 2 # new added0 w. u/ g) O7 H* P3 s0 p( k
- while CHUNK != "REST"& b# }3 I+ ^0 b! D/ {) M
- 3 h+ N! B6 A; s
- savepos NAMEPTR 1+ F4 j8 A3 G! b- e8 G1 G
- for i = 1 to FILES/ c8 r e4 L$ x! Y+ p# ?
- get DUNNO long 2. \8 w1 n$ J4 F) c; J
- get SIZE long 2
7 c( U/ \+ q, x - math SIZE >>= 2
* G, F2 I4 H$ C) @# s. T6 d3 [ - get OFFSET long 27 y, b" {+ l3 n0 I; S9 [
5 \* \1 W; f' i$ a# l- goto NAMEPTR 16 J7 D: y7 l$ t' @/ _: c* Z
- get NAMEOFF long 1
8 @8 J; r$ `7 a7 h2 n! F0 j - savepos NAMEPTR 1
4 ^$ J$ I0 n3 i% t% K; @' f, ] - goto NAMEOFF 1
5 a# {# t: g. e* f. p - get NAME string 1! C) O# @) ^$ u2 B& N: u
" H1 K* I5 A6 L- C. ^* L i- log NAME OFFSET SIZE
" b" T9 g+ U/ S3 V7 g5 T, g - next i% t( m2 P! ^$ F: {8 g( i0 r3 [
复制代码 |