- / z/ u! Z [4 }% F' T9 T3 n
- open FDDE DIR 1
+ m. L. U5 H; C: C - open FDDE TOC 2
) ~8 M% W) s: F3 o( Q; e. s - # t7 X/ p, I. [/ O/ E
- do 4 }9 S( J# P# U5 m
- getdstring CHUNK 4 2
8 d# ^2 C5 ]' V0 L7 q6 I5 k - get DUNNO long 2) k7 x1 \! |$ c" R! P! `
- get DUNNO long 2+ {8 k/ Q# D# O0 m q- F# W
- get FILES long 21 a$ s7 Z0 r: M' D
- get DUNNO long 2. c x2 E* O2 t8 Z8 Q9 B+ p
- get DUNNO long 2
+ a4 _7 }6 C$ M* }% X6 P - get DUNNO long 2 # new added0 w' x; D- R# v& V- i4 I, x; i
- get DUNNO long 2 # new added; |. j9 g0 S5 ^3 p8 S
- while CHUNK != "REST"
! ?5 X5 m7 D6 t. l* ?& p - ' F# v' ^ U8 N. I$ [5 h6 q
- savepos NAMEPTR 1
9 q3 e2 _0 A& _ - for i = 1 to FILES
4 h2 v7 W9 ~! y - get DUNNO long 2* w. z) O3 R8 r6 C( s7 u
- get SIZE long 2
" z- Z; M. E* k, t; {) i% ` - math SIZE >>= 2
# f7 x8 k8 W% a - get OFFSET long 2
, Y, w2 y8 Q. o) f* E$ P q
/ g9 T% B( B0 h% h' N4 @- goto NAMEPTR 1
2 G& i) F( G1 ^6 y% K F - get NAMEOFF long 1
( b" k- P/ \/ f1 ~7 q; z; ^ - savepos NAMEPTR 1. H+ M& u9 s& }1 z0 d W- L
- goto NAMEOFF 1
) B& s: v5 K* h" |8 f) U5 x* h# D - get NAME string 1/ P T* M9 v# E( I
- 9 y0 I) D% C6 A
- log NAME OFFSET SIZE
+ B. z( p% J! {8 F - next i
3 |) w; e, m5 u# g* \
复制代码 |