GoTo 0x0 0 ;
Get files Long 0 ;
SavePos base 0 ;
Math tonames = files ;
Math tonames *= 0x4 ;
Math tonames += 0x4 ;
Math fox = tonames ;
For x = 1 To files ;
GoTo fox 0 ;
Get namelength Byte 0 ;
GetDString name namelength 0 ;
SavePos fox 0 ;
Next x ;
GoTo fox 0 ;
Padding 0x800 0 ;
SavePos fox 0 ;
SavePos adj 0 ;
For y = 1 To files ;
GoTo base 0 ;
Get filesize Long 0 ;
SavePos base 0 ;
Math fileoffset = adj ;
GoTo tonames 0 ;
Get namelength Byte 0 ;
GetDString name namelength 0 ;
SavePos tonames 0 ;
Log name fileoffset filesize 0 ;
Math tonext = fileoffset ;
Math tonext += filesize ;
GoTo tonext 0 ;
Padding 0x800 0 ;
SavePos adj 0 ;
Next y ;