! s, a% P. b3 C5 Y- open FDDE DIR 18 m- P/ v% k( E3 n. ?! G- C |
- open FDDE TOC 2
) O+ Y; f1 x7 t7 x4 {. w3 w6 | - . z; A$ Q# F5 {% C/ ?
- do * ]* w! D0 L( @( U+ P
- getdstring CHUNK 4 2
6 w9 c' U) I4 d0 R( [6 l; V6 z - get DUNNO long 2
- }5 i3 H' v9 P* ] - get DUNNO long 2/ ^! ~0 e4 z/ E( u: D
- get FILES long 2# p1 ]8 { ~) m5 | ]
- get DUNNO long 2
4 F3 @% B& k+ ^5 Q6 ~ - get DUNNO long 2 l& l, v9 y* K4 X9 Y! ~* H8 N
- get DUNNO long 2 # new added
. p& J' X3 M) V8 ~5 Q' x - get DUNNO long 2 # new added) D5 {& ~. ]" X
- while CHUNK != "REST"7 O0 @6 F- i4 H7 @" w! D
/ }0 D9 \3 x+ Z- ~0 ^4 g) x- savepos NAMEPTR 1
/ Y& y$ G- d* `. G: J4 ` - for i = 1 to FILES) m$ j+ F0 z. S3 b) g' n
- get DUNNO long 29 w, v: R5 z: a# g2 s% X4 o9 O0 e
- get SIZE long 2
~. U) N; _; ^4 M8 O4 G1 O - math SIZE >>= 2, ^7 c% U) R8 r6 U0 W! Z$ N
- get OFFSET long 2( v, S$ F7 P3 g' | @3 W3 N) K
4 s# f$ P, y: y3 u& T0 M" v- goto NAMEPTR 1: _" Z9 F% T% t6 u. l8 r
- get NAMEOFF long 1
) p. i5 ~7 V* M - savepos NAMEPTR 1) w$ b% I# @8 q# Q9 J! P
- goto NAMEOFF 1
% U" a9 e5 N5 k4 A# ]- S0 J' ~ - get NAME string 14 P: W2 h' d) L, q' @
7 @! @/ A( P0 ]. F/ ^3 T6 j; D7 F- log NAME OFFSET SIZE8 {7 T$ q9 F6 F4 m
- next i
* ~# E% Y% \+ `7 Y
复制代码 |